Macro pour enregistrer un onglet en point CSV

Bonjour

Dans le fichier ci-joint je voudrais rajouter une instruction supplémentaire à la macro , à savoir lui dire d' enregistrer l'onglet RETRA en format CSV (point-virgule)
Merci de me donner un coup de main

D'autre part je travaille actuellement sur la version 2007 , mais je vais utiliser cette macro sur une version 2003 , cela va-t-il poser des pb de compatibilite ?

merci

Salut, pour cela tu as l'enregisteur de macros, une option à ajouter au code sera Local:=True ou False suivant séparateur désiré dans le fichier CSV
Voir l'aide en ligne sur SaveAs [ F1 ]

Sinon une double boucle Ligne,Colonne pour faire une concaténation du contenu de chaque Colonne d'une Ligne avec un séparateur du style ";" entre chaque élémént de la chaine résultante qui sera enregistrée pour chaque passe dans un fichier texte portant l'extension csv

Bonjour
L'enregistreur de macro dans ton cas est ton aide (en plus de réajustements)
Ci-joint proposition

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub SaveCSV() Dim Chemin As String, Fichier As String   Application.ScreenUpdating = False Chemin = ThisWorkbook.Path & "\" Fichier = "RETRCA_" & Format(Now, "yyyymmdd_hhnn") ThisWorkbook.Worksheets("RETRCA").Copy Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:=Chemin & Fichier, FileFormat:=xlCSV, Local:=True ActiveWorkbook.Close Application.DisplayAlerts = True End Sub

---

EDIT: Bonjour Kiki29, désolé pas vu ta réponse. (Effectivement tu as raison)

Merci kiki pour ton aide , mais j'ai utilsé l'enregistreur de macro , mais il me copie en CSV L'onglet RETRA AVEC FORMULES, au lieu de RETRA du coup je suis un peu bloqué d'autant plus je suis assez novice sur VBA

Merci pour votre aide , le pb est resolu

Amicalement :ccool: