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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.