[XL-2007] Macro qui plante [Résolu]

[Shades]

Bonsoir,

J'ai un code pour enregistrer un xls en prennant comme nom S1 B3 et B4, il fonctionne, il enregistre bien le fichier avec le nom désiré mais plante à chaque enregistrement ? Quid du PB ?

Code :

1
2
3
4
5
6
7
8
9
10
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
 
A = Range("S2").Value
B = Range("B3").Value
C = Range("B4").Value
ChDir ActiveWorkbook.Path
Repertoirefinalperso = Application.ActiveWorkbook.Path
ActiveWorkbook.SaveAs Filename:=Repertoirefinalperso & "\" & "Recapaie " & A & " " & B & " " & C & ".xls"
 
End Sub

Merci à tous

[jfontaine]

Bonjour,

il enregistre bien le fichier avec le nom désiré mais plante à chaque enregistrement ? Quid du PB ?

Et c'est quoi le plantage? num erreur et descriptif

[Shades]

Bonsoir jfontaine,

Et je trouve ses informations où ?

cordialement
Sylvain

[Philippe JOCHMANS]

Bonjour

Ce que l'on te demande c'est quel est le message qui s'affiche lorsque ton code plante, et de plus est-ce qu'une ligne est surligné en jaune ?

Philippe

[Shades]

Bonjour Philippe,

C'est pas un message de plantage de la Macro mais c'est carrément Excel qui plante, je l'ai essayé sur d'autres postes au bureau mais c'est pareil, ce qui me fait dire que c'est la Macro et non mon Excel qui à un pb, je joint le fichier Excel, cela sera plus parlant.

Cordialement,
Sylvain

[Shades]

Re bonjour,

Alors voilà une nouvelle question sur le sujet.

J'ai réussis à faire en sortes que cela ne plante plus, mais ...

Pourquoi en changeant :

Code :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

par :

Code :

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Cela ne plante plus ?
Cela aurait été plus pratique d'activer la macro sur enregistrement et non pas sur fermer, car à chaque fermeture cela me créera un fichier "Recapaie 2012 .xls" ....

Cordialement,
Sylvain

[BlueMonkey]

Bonjour,

Appeler une fonction d'enregistrement du classeur,
dans une fonction qui est appelée avant chaque enregistrement d'un classeur,
ça ne créé pas une boucle infinie ?

Code :

1
2
3
4
5
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'[...]
ActiveWorkbook.SaveAs Filename:=Repertoirefinalperso & "\" & "Recapaie " & A & " " & B & " " & C & ".xls"
'[...]
End Sub

Pour éviter la boucle infinie, essaye de désactiver la propagation des évènements, en faisant.

Code :

1
2
3
4
5
6
7
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'[...]
Application.EnableEvents = False
ActiveWorkbook.SaveAs Filename:=Repertoirefinalperso & "\" & "Recapaie " & A & " " & B & " " & C & ".xls"
Application.EnableEvents = True
'[...]
End Sub

[Shades]

BlueMonkey,

Ahaaaah effectivement je comprends mieux merci bcp je vais donc mourir moins bête ce soir .

Cordialement,
Sylvain

[BlueMonkey]

Content d'avoir éclairer sur ce point.