VBA macro Enregistrer sous .csv inopérante Résolu

Question

Bonjour, 
J'ai récupéré la macro ci-dessous pour enregistrer ma feuille active d'un fichier Excel en .csv mais j'ai beau cliquer sur Enregistrer au bas de la fenêtre Enregistrer sous, rien ne se passe or je veux laisser l'utilisateur choisir l'emplacement où enregistrer le fichier .csv

Sub Utilisation_FileDialog_Sauvegarde()
Dim objSaveBox As FileDialog

Application.DisplayAlerts = False
 
 'Définit la fenêtre "Enregistrer sous"
 Set objSaveBox = Application.FileDialog(msoFileDialogSaveAs)

With objSaveBox
 'Définit un nom par défaut dans le champ "Nom de fichier".
 .InitialFileName = "wNom1" + ".csv"

'Définit le type de fichier par défaut:
 'rang du format .csv dans la fenêtre enregistrer sous
 .FilterIndex = 15

Application.Wait (Time + #12:00:02 AM#)
            DoEvents

'Affiche la boîte de dialogue
 .Show
 'Enregistre
 '.Execute
 
 End With
 
 Application.DisplayAlerts = True

End Sub

Quelqu'un peut-il m'aider ?

Merci


Configuration: Windows / Chrome 84.0.4147.105

pijaku · Answer

Bonjour,

Enlève l'apostrophe devant .Execute pour pouvoir enregistrer...

Sub Utilisation_FileDialog_Sauvegarde()
Dim objSaveBox As FileDialog
 Application.DisplayAlerts = False
 Set objSaveBox = Application.FileDialog(msoFileDialogSaveAs)
 With objSaveBox
     .InitialFileName = "wNom1" + ".csv"  '??? Me laisse perplexe !!!!
     .FilterIndex = 15
     .Show
     .Execute
 End With
 Application.DisplayAlerts = True
 End Sub

FafaM · Answer

Cela fonctionne parfaitement !! Merci
Pour info, le nom du fichier wNom1 est en fait le nom de ma variable auquel j'ai ajouté des "" pour l'exemple. J'ai intégré ce code Enregistrer sous dans une autre macro.

VBA macro Enregistrer sous .csv inopérante

2 réponses

Newsletters