NoMercy007
XLDnaute Nouveau
Bonsoir à tous
Je désire sauvegarder la feuille DATA de mon projet, en forçant le nom "Export" et en donnant le choix du répertoire.
Voici mon code, où je rencontre une erreur que je n'arrive pas à corriger.
Merci de votre aide.
Dim Plage As Object, oL As Object, oC As Object, Tmp As String, Sep$
Dim Repertoire As FileDialog
'-- Choix du répertoire de sauvegarde
Set Repertoire = Application.FileDialog(msoFileDialogFolderPicker)
Repertoire.Show
'-- Sauvegarde de toutes les fiches saisies
Worksheets("DATA").Select
Sep = ";"
Set Plage = ActiveSheet.Range("A1:AB" & ActiveSheet.Range("A65000").End(3).Row)
Open "Export.csv" For Output As #1
For Each oL In Plage.Rows
Tmp = ""
For Each oC In oL.Cells
Tmp = Tmp & CStr(oC.Text) & Sep
Next
Print #1, Tmp
Next
Close
MsgBox "L'exportation du fichier 'Export.csv' est terminée", vbInformation, "Exportation"
Je désire sauvegarder la feuille DATA de mon projet, en forçant le nom "Export" et en donnant le choix du répertoire.
Voici mon code, où je rencontre une erreur que je n'arrive pas à corriger.
Merci de votre aide.
Dim Plage As Object, oL As Object, oC As Object, Tmp As String, Sep$
Dim Repertoire As FileDialog
'-- Choix du répertoire de sauvegarde
Set Repertoire = Application.FileDialog(msoFileDialogFolderPicker)
Repertoire.Show
'-- Sauvegarde de toutes les fiches saisies
Worksheets("DATA").Select
Sep = ";"
Set Plage = ActiveSheet.Range("A1:AB" & ActiveSheet.Range("A65000").End(3).Row)
Open "Export.csv" For Output As #1
For Each oL In Plage.Rows
Tmp = ""
For Each oC In oL.Cells
Tmp = Tmp & CStr(oC.Text) & Sep
Next
Print #1, Tmp
Next
Close
MsgBox "L'exportation du fichier 'Export.csv' est terminée", vbInformation, "Exportation"