Microsoft 365 VBA la commande ne s'exécute pas

[danielco]

Bonjour,

la commande n'affiche aucune boîte de dialogue :

Application.Dialogs(xlDialogSaveAs).Show

Comment faire ?

Daniel

 

[vgendron]

Bonjour

je viens de tester .. ca marche très bien chez moi..
1) est ce valable pour ta version d'office??
2) une spécificité de ton fichier..?

 

[sylvanu]

Bonjour,

est ce valable pour ta version d'office??

Ca m'étonnerait, je viens de tester, même sous XL2007 ça marche. 😉

 

[danielco]

Bonjour,

Ca m'étonnerait, je viens de tester, même sous XL2007 ça marche. 😉

Bonjour à tous. Vous avez raison. Ca fonctionne après redémarrage de l'ordi.

Désolé.

 

[danielco]

Par contre, ça semble ne pas fonctionner dans un évènement before save :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  Cancel = True
  Application.Dialogs(xlDialogSaveAs).Show 'Format([A1], "yyyy-mm-dd") & [A2]
End Sub

Daniel

 

[vgendron]

et si tu enlèves le cancel = true....

 

[sylvanu]

Chez moi, en invalidant les events, ça marche :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  Cancel = True
  Application.EnableEvents = False
  Application.Dialogs(xlDialogSaveAs).Show 'Format([A1], "yyyy-mm-dd") & [A2]
  Application.EnableEvents = True
End Sub

 

[danielco]

Désolé encore une fois. Ca fonctionne après redémarrage d'Excel...

 

[danielco]

@sylvanu

Ca fonctionne même sans :

Application.EnableEvents = False

Mais effectivement, la ligne provoque une réexécution de la macro. Je ne comprends pas pourquoi ?

 

[sylvanu]

Peut être est ce du à autre chose que cette macro.
Si votre fichier est anonyme et non sensible, partagez le, on pourra le tester.

 

[danielco]

Pas de souci :

 

[sylvanu]

Chez moi, Win10 XL2007, ça marche. Désolé.
En l'état il ouvre deux fois la fenêtre SaveAs. Donc j'ai invalidé les events :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  Cancel = True
  Application.EnableEvents = False
  MsgBox "Macro Workbook_BeforeSave"
  Application.Dialogs(xlDialogSaveAs).Show 'Format([A1], "yyyy-mm-dd") & [A2]
  Application.EnableEvents = True
End Sub

Le Msgbox ne sert à rien, juste à vérifier qu'on passe bien par cette macro, et pas autre part.
J'obtiens ça :

 

[vgendron]

@sylvanu

Je pense que tu as deux fois la boite de dialogue lorsque le fichier est enregistré pour la première fois.
si tu réouvres le meme fichier (déjà enregistré donc), et que tu refermes, tu n'aura plus qu'une seule fois la boite..
je viens de faire le test, c'est ce que je constate.

 

[sylvanu]

Je pense que tu as deux fois la boite de dialogue lorsque le fichier est enregistré pour la première fois.
si tu réouvres le meme fichier (déjà enregistré donc), et que tu refermes, tu n'aura plus qu'une seule fois la boite..

Non, il est bien enregistré.
Quand il y a le Msgbox comme vérification, on voit qu' passe deux fois par la macro.
Une première fois le MsgBox s'affiche mais pas la fenetre SaveAs, une seconde fois où c'est ok.
Tout du moins sur mon PC.
Regardez bien le Msgbox s'affiche deux fois :

 

[vgendron]

Bizarre, chez moi, je n'ai pas ce problème.
après THE question: c'est quoi le besoin?