ouvrir un nouvelle feuille exel

ouvrir un nouvelle feuille exel - VB/VBA/VBS - Programmation

Marsh Posté le 29-04-2005 à 11:20:36    

Bonjour
 
Je cherche à faire une macro qui me permetrai d'ouvrir dans un classeur exel contenant deja plusieurs feuille un nouvelle feuille à partir d'un fichier text (en théorie, le formatage du fichier ne pose pas de probleme). Pourriez vous m'indiquer la manip exel, si elle existe pour l'enrengistrer, on la commande vba que je n'arrive à trouver nulle part?  
 
Merci
 
BL

Reply

Marsh Posté le 29-04-2005 à 11:20:36   

Reply

Marsh Posté le 29-04-2005 à 12:26:30    

Code :
  1. Sub New_Sheet_Import_TXT()
  3. ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count)
  4. With ActiveSheet.QueryTables.Add(Connection:="TEXT;"le chemin de ton fichier texte", Destination:=Range("A1" ))
  5.         .Name = "leNomduFichier"
  6.         .FieldNames = True
  7.         .RowNumbers = False
  8.         .FillAdjacentFormulas = False
  9.         .PreserveFormatting = True
  10.         .RefreshOnFileOpen = False
  11.         .RefreshStyle = xlInsertDeleteCells
  12.         .SavePassword = False
  13.         .SaveData = True
  14.         .AdjustColumnWidth = True
  15.         .RefreshPeriod = 0
  16.         .TextFilePromptOnRefresh = False
  17.         .TextFilePlatform = 850
  18.         .TextFileStartRow = 1
  19.         .TextFileParseType = xlDelimited
  20.         .TextFileTextQualifier = xlTextQualifierDoubleQuote
  21.         .TextFileConsecutiveDelimiter = False
  22.         .TextFileTabDelimiter = True
  23.         .TextFileSemicolonDelimiter = False
  24.         .TextFileCommaDelimiter = False
  25.         .TextFileSpaceDelimiter = False
  26.         .TextFileColumnDataTypes = Array(1)
  27.         .TextFileTrailingMinusNumbers = True
  28.         .Refresh BackgroundQuery:=False
  29.     End With
  30.    
  31. End Sub


 
y'a d'autres methodes mais celle-ci fonctionne...a toi de voir pour tous les parametres de la methode Add
 
edith : c'est excel qui m'a genere le code...quand je sais pas : outils/macro/Nouvelle macro
puis je fais toutes les manips grace aux menus et je vais voir le code généré...


Message édité par karoli le 29-04-2005 à 12:28:37
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed