[XL-2007] Macro pour enregistrer un onglet en point CSV [Résolu]

[algerien73]

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

[kiki29]

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

[mercatog]

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)

[algerien73]

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

[algerien73]

Merci pour votre aide , le pb est resolu

Amicalement