Bonjour à tous,
Voila, j'ai une macro que je dois modifier mais je ne sais pas comment faire.
Cette macro enregistre une feuille d'un fichier dans un nouveau fichier sous format csv.
Ce que l'on me demande c'est de rajouter une variable pour que le fichier s'enregistre sous le même repertoire et au même emplacement que le fichier
xls car tous les utilisateurs ne le place pas aux même endroit. De même il faudrait que la copie de la feuille se fasse à partir de la ligne 4.
Voila ma macro de départ :
Merci d'avance pour votre aide.
Sub Export()
X = "Gammecsv"
With Sheets("Gamme")
.Copy
End With
ActiveSheet.Name = X
Dim classeur As Workbook
Set classeur = ActiveWorkbook
With classeur
.SaveAs Filename:=("C:\DOCUMENTATION\MONSTER\Taxt\BIZ\" _
& ActiveSheet.Name), FileFormat:=xlCSV, CreateBackup:=False
End With
classeur.Close True
End Sub
Voila, j'ai une macro que je dois modifier mais je ne sais pas comment faire.
Cette macro enregistre une feuille d'un fichier dans un nouveau fichier sous format csv.
Ce que l'on me demande c'est de rajouter une variable pour que le fichier s'enregistre sous le même repertoire et au même emplacement que le fichier
xls car tous les utilisateurs ne le place pas aux même endroit. De même il faudrait que la copie de la feuille se fasse à partir de la ligne 4.
Voila ma macro de départ :
Merci d'avance pour votre aide.
Sub Export()
X = "Gammecsv"
With Sheets("Gamme")
.Copy
End With
ActiveSheet.Name = X
Dim classeur As Workbook
Set classeur = ActiveWorkbook
With classeur
.SaveAs Filename:=("C:\DOCUMENTATION\MONSTER\Taxt\BIZ\" _
& ActiveSheet.Name), FileFormat:=xlCSV, CreateBackup:=False
End With
classeur.Close True
End Sub