Bonjour !
A partir de Vb, j'ouvre plusieurs classeurs
et je veux que, lorsque l'utilisateur ferme l'appli, tous les classeurs
se ferment un à un en demandant confirmation
Cela se passe bien pour 1 classeur mais pour plusieurs, le message de demande de sauvegarde apparait bien mais la barre des taches correspondant au classeur en bas de l'écran, ne clignote pas.
Global WApp As Object
Set WApp = CreateObject('Excel.Application')
WApp.Visible = True
Set Wbk = WApp.Workbooks.Open(fichier, ReadOnly:=False, WriteResPassword:='OASIS', IgnoreReadOnlyRecommended:=False)
If Not WApp Is Nothing Then
Do Until WApp.ActiveWorkbook Is Nothing
'MsgBox WApp.ActiveWorkbook.Name
WApp.ActiveWorkbook.Close
Loop
WApp.Quit
Set WApp = Nothing
End If
Merci pour votre aide
A partir de Vb, j'ouvre plusieurs classeurs
et je veux que, lorsque l'utilisateur ferme l'appli, tous les classeurs
se ferment un à un en demandant confirmation
Cela se passe bien pour 1 classeur mais pour plusieurs, le message de demande de sauvegarde apparait bien mais la barre des taches correspondant au classeur en bas de l'écran, ne clignote pas.
Global WApp As Object
Set WApp = CreateObject('Excel.Application')
WApp.Visible = True
Set Wbk = WApp.Workbooks.Open(fichier, ReadOnly:=False, WriteResPassword:='OASIS', IgnoreReadOnlyRecommended:=False)
If Not WApp Is Nothing Then
Do Until WApp.ActiveWorkbook Is Nothing
'MsgBox WApp.ActiveWorkbook.Name
WApp.ActiveWorkbook.Close
Loop
WApp.Quit
Set WApp = Nothing
End If
Merci pour votre aide
