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

Signaler
-
Messages postés
12235
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
6 janvier 2021
-
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

2 réponses

Messages postés
12235
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
6 janvier 2021
2 555
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

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.
Messages postés
12235
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
6 janvier 2021
2 555
Mais de rien.

A++