Demande de sauvegarde à la fermeture VBA
plastickman
Messages postés
66
Statut
Membre
-
vordano Messages postés 1981 Statut Membre -
vordano Messages postés 1981 Statut Membre -
Bonjour à tous,
Lorsque j'utilise le code ci-dessous:
A chaque fermeture de fichier, il apparait malgré tout la box me demandant si je veux sauvegarder. Je ne comprends pas pourquoi. Quelqu'un a-t-il une idée?
Merci,
Lorsque j'utilise le code ci-dessous:
Sub essai()
Dim ScanFic As Office.FileSearch
Dim NomFic As Variant
Dim Nbr As Long
Set ScanFic = Application.FileSearch
With ScanFic
.NewSearch
.LookIn = ActiveWorkbook.Path
.SearchSubFolders = True
.Filename = xls
.MatchTextExactly = True
Nbr = .Execute
For Each NomFic In .FoundFiles
If Right(NomFic, 13) = "modif.xls" Then GoTo suite
Workbooks.Open Filename:=NomFic
Sheets("Lettre de relance 1").Range("C17").Formula = "=Renseignements!E15"
ActiveWorkbook.Save
ActiveWorkbook.Close
suite:
Next
End With
End Sub
A chaque fermeture de fichier, il apparait malgré tout la box me demandant si je veux sauvegarder. Je ne comprends pas pourquoi. Quelqu'un a-t-il une idée?
Merci,
