Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2923 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  ouvrir un nouvelle feuille exel

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

ouvrir un nouvelle feuille exel

n°1065464
blaise_lap​orte
Posté le 29-04-2005 à 11:20:36  profilanswer
 

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

mood
Publicité
Posté le 29-04-2005 à 11:20:36  profilanswer
 

n°1065571
karoli
Posté le 29-04-2005 à 12:26:30  profilanswer
 

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

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  ouvrir un nouvelle feuille exel

 

Sujets relatifs
Ouvrir un *.exe local depuis une page htmlOuvrir une anim flash avec borland c++
Ouvrir une nouvelle fenetreOuvrir Excel
Récupérer en php les valeurs d'un tableau excel d'une feuille Htmlouvrir boite de dialogue dans excel
Ouvrir un powerpointDesactiver macro / activer macro / ne pas ouvrir le fichier
ouvrir un .doc d'excel avec un chemin composé de variables 
Plus de sujets relatifs à : ouvrir un nouvelle feuille exel


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR