Macro enregistrer sous en format csv ne fonctionne pas

[Sobas]

Bonjour, j'ai ceci comme commande pour enregistre la feuil3 du classeur ouvert, mais sa ne marche pas:


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

Est se que quelqu'un pourrais m'aider, je vous en remercie.

 

[gilbert_RGI]

Re : Macro enregistrer sous en format csv ne fonctionne pas

bonjour

peut-être comme ça

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

 

[Sobas]

Re : Macro enregistrer sous en format csv ne fonctionne pas

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

 

[gilbert_RGI]

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

 

[Sobas]

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