Enregistrer dans le même classeur avec valeur d'une cellule
Résolu
DanGg
Messages postés
8
Date d'inscription
Statut
Membre
Dernière intervention
-
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
A voir également:
- Enregistrer dans le même classeur avec valeur d'une cellule
- Audacity enregistrer son pc - Guide
- Aller à la ligne dans une cellule excel - Guide
- Comment enregistrer une conversation - Guide
- Excel cellule couleur si condition texte - Guide
- Comment enregistrer une video youtube - Guide
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.
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.