Msgbox dans un workbook_beforeSave, réponse automatique

Version imprimable

Bonjour,

Ayant eu des soucis avec le mode read-only, j'ai rajouté le code suivant pour demander aux utilisateurs confirmation avant de sauvergarder.
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Select Case MsgBox("Voulez-vous vraiment sauvegarder ce fichier?", vbYesNo, "Sauvegarde") Case vbYes Case vbNo Cancel = True End Select End Sub
Aucun problème de ce coté là.

Par contre j'essaye de faire une macro pour mettre à jour tous les fichiers mensuels et j'aimerais que cette msgbox ne s'affiche pas, ou pouvoir répondre oui automatiquement, mais je n'y arrive pas.
J'ai essayé displayalerts = false, et un sendkeys "enter" mais sans succès.
Quelqu'un aurait une idée?

Le code:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub Mise_a_jour() With ThisWorkbook.Sheets("liste") dl = .Range("A" & Rows.Count).End(xlUp).Row For i = 8 To 8 nom = .Cells(i, 1) & "\" & .Cells(i, 2) Workbooks.Open (nom) Application.Run (ActiveWorkbook.Name & "!" & .Cells(i, 3)) ActiveWorkbook.Save ActiveWorkbook.Close Next i End With End Sub
info complémentaires: la sheet "liste" a en colonne A le chemin du fichier, en B son nom, et en C le nom de la macro a lancer
Oui ma boucle est ridicule mais c'est pour testé sur un fichier pas trop gros.

Merci d'avance.

22/06/2016, 16h17
Marc-L

Bonjour,

peut-être en définissant une variable publique de type booléen en début d'un module standard,
au début de ta procédure de mise à jour définir cette variable à True (la basculer à False à la fin)
puis dans le code de l'évènement tester si cette variable est à True alors Exit Sub …

En plus simple, désactiver les évènements au début de la mise à jour (EnableEvents)
et ne pas oublier de les réactiver à la fin !

_________________________________________________________________________________________________________
Je suis Paris, Charlie, Bruxelles, …

Si je l'ai bien réalisée, la solution barrée ne fonctionne pas, code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public maj_globale As Boolean
 
Sub Mise_a_jour()
maj_globale = True
With ThisWorkbook.Sheets("liste")
dl = .Range("A" & Rows.Count).End(xlUp).Row
For i = 8 To 8
nom = .Cells(i, 1) & "\" & .Cells(i, 2)
Workbooks.Open (nom)
Application.Run (ActiveWorkbook.Name & "!" & .Cells(i, 3))
ActiveWorkbook.Save
ActiveWorkbook.Close
Next i
End With
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If maj_globale = False Then
    Select Case MsgBox("Voulez-vous vraiment sauvegarder ce fichier?", vbYesNo, "Sauvegarde")
    Case vbYes
 
    Case vbNo
        Cancel = True
End Select
End if
End Sub

Je teste l'autre solution.

Edit: c'est la bonne.
Merci encore une fois Marc-L

code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Mise_a_jour()
 
With ThisWorkbook.Sheets("liste")
dl = .Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To dl
nom = .Cells(i, 1) & "\" & .Cells(i, 2)
Workbooks.Open (nom)
Application.Run (ActiveWorkbook.Name & "!" & .Cells(i, 3))
Application.EnableEvents = False
ActiveWorkbook.Save
Application.EnableEvents = True
ActiveWorkbook.Close
Next i
End With
End Sub