• Initiateur de la discussion Initiateur de la discussion gueval
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

gueval

XLDnaute Junior
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
 
Re : chemin repertoire

Bonjour

Code:
.SaveAs Filename:=("C:\DOCUMENTATION\MONSTER\Taxt\BIZ\" _
& ActiveSheet.Name), FileFormat:=xlCSV, CreateBackup:=False
devient :

Code:
.SaveAs Filename:=(thisworkbook.path & "\" & ActiveSheet.Name), FileFormat:=xlCSV, CreateBackup:=False
 
Re : chemin repertoire

bonjour gueval

A tester
Code:
Sub Export()
 
X = "Gammecsv"
[COLOR=red]chemin=ActiveWorkbook.Path[/COLOR]
With Sheets("Gamme")
.Copy
End With
ActiveSheet.Name = X
Dim classeur As Workbook
Set classeur = ActiveWorkbook
With classeur
.SaveAs Filename:=([COLOR=red]chemin & "\"[/COLOR] _
& ActiveSheet.Name), FileFormat:=xlCSV, CreateBackup:=False
End With
classeur.Close True
 
End Sub

Salut wilfried 🙂
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
660
C
Réponses
8
Affichages
1 K
M
Réponses
1
Affichages
1 K
MOA_Excel
M
Retour