Excel bug après macro pour enregistrer

Version imprimable

Bonjour le Forum,

J'ai un problème avec Excel qui bug après l’exécution de la macro ci dessous :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim chemin1, chemin2, fichier, nom, NomRep, NumOE 
 
Sheets("Front").Activate
 
NumOE = "OE" & Range("E2") & Range("H2") & Range("K2")
nom = "OE" & Range("E2") & Range("H2") & Range("K2") & ".xls"
Application.DisplayAlerts = True
Application.EnableEvents = False
If a = 1 Then
    a = 0
ElseIf ThisWorkbook.Name = "OE excel.xls" And Range("R56").Value <> "" Then
    chemin1 = "F:\etude_daco\renault\0 - Suivi\Suivi des OE"
    NomRep = NumOE & " - " & InputBox("Rentrez le titre du dossier à créer.", "Création dossier")
 
    If NomRep <> NumOE & " - " Then
        NomRep = NomRep
    Else
        Application.EnableEvents = True
        Application.DisplayAlerts = True
        Exit Sub
    End If
 
    chemin2 = chemin1 & "\" & NomRep
    fichier = chemin2 & "\" & nom
 
    If Dir(chemin1 & "\" & NomRep, vbDirectory + vbHidden) = "" Then
        MkDir chemin1 & "\" & NomRep
    End If
 
    Filename = Application.GetSaveAsFilename(fichier, "Fichier excel (*.xls),*.xls")
 
    If Filename <> False Then
        ThisWorkbook.SaveAs Filename
    End If
 
    a = 1
End If
Application.EnableEvents = True
Application.DisplayAlerts = False
 
End Sub

Tout se déroule bien jusqu'à la ligne 34. :?

Dès que le fichier s'enregistre, excel bug et redémarre tout seul.

Mon fichier est bien enregistré au bon endroit, mais y a t il un moyen qu'excel ne plante pas quand le fichier bug?

Merci d'avance à ceux qui pourront m'aider.

Gaëtan

10/07/2015, 19h59
tototiti2008

Bonjour Gaëtan,

Visiblement, le problème est que tu es dans Workbook_BeforeSave, qui se déroule avant d'enregistrer le classeur
Et toi tu enregistres le classeur dedans, ce qui relance Workbook_BeforeSave... etc...
Essaye de commencer ton code par Cancel = True pour désactiver l'enregistrement prévu à la fin et assures toi que les évènements sont bien désactivés quand tu enregistres (SaveAs)
10/07/2015, 20h10
Qwazerty
Salut

Tu peux aussi désactiver la génération d'autre événement avec

Code:

application.enableEvents = false

(pas tester, j'espère ne pas me tromper de méthode)
[Edit]
C'est ça, pas d'erreur, en plus c'est exactement le cas de figure présent dans l'aide Excel -> F1 sur EnabledEvents
[/Edit]
Code:

1 2 3 4 5 6 If Filename <> False Then application.enableEvents = false ThisWorkbook.SaveAs Filename application.enableEvents = true End If
++
Qwaz
10/07/2015, 20h40
parmi

Bonjour,

Tu pourrais aussi sauvegarder une copie ... (?)
SaveCopyAs plutôt que SaveAs
15/07/2015, 11h21
gaet76

Bonjour tototiti2008, Qwazerty et parmi,

J'ai testé le cancel = true et ça a très bien marché merci beaucoup.

Je n'ai pas testé les autres solutions mais merci de votre aide quand même, je les testerais plus tard afin de voir si elles marchent aussi.

Merci à vous tous.
15/07/2015, 12h24
patricktoulon

un truc que je n'ai pas compris
Bonjour
Code:

1 2 3 4 5 Filename = Application.GetSaveAsFilename(fichier, "Fichier excel (*.xls),*.xls") If Filename <> False Then ThisWorkbook.SaveAs Filename End If
si filname=false filname est rien du tout donc ta fenêtre de save as renvoie un string vide voir une erreur
j'avoue que j'ai du mal a comprendre la condition "if"

si ton but est de "sur enregistrer" un fichier portant déjà ce nom un screenupdating et un displayalerts a false
et save avec le nom construit plus haut dans la sub
d'après ce que j'ai compris