Macro Enregistrer sous

CBernardT

XLDnaute Barbatruc

• 15 Juin 2006

• #2

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

 

Vote positif 0 Vote négatif

M

Mathou

Guest

• 15 Juin 2006

• #3

Merci beaucoup bernard

 

Vote positif 0 Vote négatif

M

Mathou

Guest

• 15 Juin 2006

• #4

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à?

 

Vote positif 0 Vote négatif

Bricofire

XLDnaute Impliqué

• 15 Juin 2006

• #5

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

 

Vote positif 0 Vote négatif

M

Mathou

Guest

• 15 Juin 2006

• #6

Merci beaucoup, ça fonctionne très bien!

 

Vote positif 0 Vote négatif