Enregistrer dans le même classeur avec valeur d'une cellule
Résolu
DanGg
Messages postés
8
Statut
Membre
-
DanGg -
DanGg -
Bonjour,
je souhaite enregistrer un classeur ouvert sous un nouveau nom qui sera fait du nom de l'ancien classeur (qui s'appelle ici "CLASSEUR') et du Numéro se situant dans la cellule F28 de la feuille SOMMAIRE du classeur initial
je souhaite que l'enregistrement se fasse dans le même dossier que le classeur initial (sans avoir à en donner le chemin) et souhaite que ce nouveau classeur nommé reste ouvert.
Dans un module VBA, je fais ceci, mais le nouveau classeur est enregistré dans le dossier Documents de mon ordi. Comment corriger ? Merci de votre aide
Sub EnregistrementNouveauClasseur()
Complete_File_name = Path_name & "\" & File_na
Dim chemin As String
ActiveWorkbook.SaveAs Filename:="CLASSEUR N°" & Worksheets("SOMMAIRE").[F28].Value
End Sub
je souhaite enregistrer un classeur ouvert sous un nouveau nom qui sera fait du nom de l'ancien classeur (qui s'appelle ici "CLASSEUR') et du Numéro se situant dans la cellule F28 de la feuille SOMMAIRE du classeur initial
je souhaite que l'enregistrement se fasse dans le même dossier que le classeur initial (sans avoir à en donner le chemin) et souhaite que ce nouveau classeur nommé reste ouvert.
Dans un module VBA, je fais ceci, mais le nouveau classeur est enregistré dans le dossier Documents de mon ordi. Comment corriger ? Merci de votre aide
Sub EnregistrementNouveauClasseur()
Complete_File_name = Path_name & "\" & File_na
Dim chemin As String
ActiveWorkbook.SaveAs Filename:="CLASSEUR N°" & Worksheets("SOMMAIRE").[F28].Value
End Sub
2 réponses
-
Pour utiliser ThisWorkbook.Path, j'ai corrigé ansi
Sub EnregistrementNouveauClasseur()
Dim chemin As String, fichier As String
chemin = ThisWorkbook.Path
fichier = chemin & "\" & "CLASSEUR N°" & Sheets("SOMMAIRE").Range("F28") & ".xls"
ActiveWorkbook.SaveAs Filename:=fichier
End Sub
Cela fonctionne - et même encore mieux avec xlsm en extension pour que le classeur nouvellement enregistré accepte à son tour de reproduire u la macro si besoin, avec une valeur nouvelle de la cellule F28
Résolu ! Merci à toi. -
Bonjour,
Utilise plutôt ThisWorkbook.path pour le même chemin
