Macro enregistrer sous en format csv ne fonctionne pas

gilbert_RGI

XLDnaute Barbatruc

• 7 Décembre 2011

• #2

Re : Macro enregistrer sous en format csv ne fonctionne pas

bonjour

peut-être comme ça

Code:

Dim nomfich As String
Dim chemin As String
chemin = ThisWorkbook.Path & "\"
nomfich = "machin"
Sheets("Feuil3").Select
MsgBox chemin & nomfich
 ActiveWorkbook.SaveAs Filename:=chemin & nomfich, FileFormat:=xlCSV, CreateBackup:=False, local:=True

 

Vote positif 0 Vote négatif

S

Sobas

XLDnaute Nouveau

• 7 Décembre 2011

• #3

Re : Macro enregistrer sous en format csv ne fonctionne pas

Désolé ma sa me met juste le mot machin dans la feuil3

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 7 Décembre 2011

• #4

Re : Macro enregistrer sous en format csv ne fonctionne pas

faire une recherche dans l'exploreur et il y a bien un fichier nommé machin.csv dans le path du fichier lancant la macro

 

Vote positif 0 Vote négatif

S

Sobas

XLDnaute Nouveau

• 7 Décembre 2011

• #5

Re : Macro enregistrer sous en format csv ne fonctionne pas

OK c'est bon j'ai fait ça et sa marche merci a toi Gilbert

Sheets("Feuil3").Select
ActiveWorkbook.SaveAs , FileFormat:=xlCSV, CreateBackup:=False, local:=True

 

Vote positif 0 Vote négatif