Choubidoua
XLDnaute Nouveau
Bonjour !
Je suis débutant sur VBA et j'aurai besoin d'un coup de pouce.
J'ai besoin d'une macro me permettant d'exporter deux feuilles dans un même fichier texte.
J'explique le fonctionnement de mon classeur:
- j'importe un fichier texte
- qui s'insère dans une feuille
- suite à des formules, je "tri" les informations dans d'autres feuilles
- j'exporte certaines feuilles, une par une.
L'importation et l'export se fait avec des macros. Mais impossible d'adapter l'export pour deux feuilles !
Il faudrait que les feuilles "Export Covadis" et "Point Sup Covadis" soient dans le même fichier.
Voici mon code d'export:
Sub exportation_covadis()
Sheets("Export Covadis").Select
Sheets("Export Covadis").Copy
fileSaveName = Application.GetSaveAsFilename( _
fileFilter:="Semis Covadis(*.txt), *.txt")
ActiveWorkbook.SaveAs Filename:=fileSaveName, FileFormat:= _
xlText, CreateBackup:=False
ActiveWorkbook.Close (False)
Sheets("Transferts").Select
End Sub
Merci d'avance !
Je suis débutant sur VBA et j'aurai besoin d'un coup de pouce.
J'ai besoin d'une macro me permettant d'exporter deux feuilles dans un même fichier texte.
J'explique le fonctionnement de mon classeur:
- j'importe un fichier texte
- qui s'insère dans une feuille
- suite à des formules, je "tri" les informations dans d'autres feuilles
- j'exporte certaines feuilles, une par une.
L'importation et l'export se fait avec des macros. Mais impossible d'adapter l'export pour deux feuilles !
Il faudrait que les feuilles "Export Covadis" et "Point Sup Covadis" soient dans le même fichier.
Voici mon code d'export:
Sub exportation_covadis()
Sheets("Export Covadis").Select
Sheets("Export Covadis").Copy
fileSaveName = Application.GetSaveAsFilename( _
fileFilter:="Semis Covadis(*.txt), *.txt")
ActiveWorkbook.SaveAs Filename:=fileSaveName, FileFormat:= _
xlText, CreateBackup:=False
ActiveWorkbook.Close (False)
Sheets("Transferts").Select
End Sub
Merci d'avance !