Macro Enregistrer sous

[Mathou]

Bonjour le forum,
je souhaiterai créer une macro Enregistrer sous afin d'enregistrer un classeur ou le nom serait de la forme 'Planning'&Année contenue dans la cellule A1 de la feuille Feuil1.
Merci de votre aide

 

[CBernardT]

Bonjour Mathou et le forum,

Exemple de code de la macro :

Sub EnregistrementSous()
Dim Nom As String, Fichier As String
'Nom à donner au nouveau classeur
Nom = 'Planning' & ThisWorkbook.Sheets('Feuil1').Range('A1').Value
'ThisWorkbook.Path permet de recuperer le chemin du classeur actif
Fichier = ThisWorkbook.Path & '\\' & Nom
'Enregistrement au format normal du classeur
ActiveWorkbook.SaveAs Filename:=Fichier, FileFormat:=xlNormal
End Sub

Cordialement

Bernard

 

[Mathou]

Merci beaucoup bernard

 

[Mathou]

Une petite précision.
Ce code fonctionne très bien, mais si je fais fonctionner la macro et que le classeur existe déjà, une msgbox s'ouvre en disant 'un classeur...existe déjà, voulez vous le remplacer?'
Si je clique sur oui tout va bien, mais si je choisit non et bien le débogueur se met en route.
Comment éviter celà?

 

[Bricofire]

Bonjour tout le monde, 🙂

Avant la ligne Saveas, tu ajoutes :
Application.DisplayAlerts = False

Après tu ajoutes :

Application.DisplayAlerts = True

et tu regardes dans l'aide VBA les détails ! 😉

Bonne journée,

Brico

 

[Mathou]

Merci beaucoup, ça fonctionne très bien!