Enregistremt de fichier : choix du répertoire et du nom de fichier VBA

Enregistremt de fichier : choix du répertoire et du nom de fichier VBA - VB/VBA/VBS - Programmation

Marsh Posté le 04-05-2006 à 10:12:07    

Bonjour.
Je fais des sauvegardes à partir d'un bouton dans une feuille excel.
Pour le moment je ne peux choisir que le chemin ou sera enregistrer le fichier (ici CSV).
Voici le code du choix du dossier (de Watashi je crois) :

 

Function ChoixDossier()    Dim Dossier As FileDialog    Set Dossier = Application.FileDialog(msoFileDialogFolderPicker)    With Dossier        .AllowMultiSelect = False   'Pour ne permettre la sélection que d'un dossier        .InitialFileName = "C:\" 'Pour définir l'emplacement de départ dans la boîte de dialogue        .Title = "Choix d'un dossier"        If .Show = -1 Then chemin = .SelectedItems(1) & "\" Else chemin = 0   'Pour faire apparaitre la boîte de dialogue renvoi chemin =0 si l'utilisateur annule    End WithEnd Function

 

Voila mais j'aimerais avoir une cellule en plus dans la fenetre affichée, pour choisir le nom du fichier a enregistrer.
En fait, la variable chemin aurait l'arborescence + le nom du fichier.

 

Quelqun a déjà fait ça ?
Merci.
Ciao

 

Reply

Marsh Posté le 04-05-2006 à 10:12:07   

Reply

Marsh Posté le 04-05-2006 à 14:51:06    

dim a as variant
 
a = Application.GetSaveAsFilename(, "Fichier csv (*.csv), *.csv" )
MsgBox a
 
Cela t'ouvre une fenetre de dialogue pour renommer un fichier en .csv
Le 1er paramètre (où j'ai rien mis) c'est pour définir un dossier d'accées par défaut comme le "D:\" ou autre.
 
Pour tester si la personne a cliquer sur annuler c'est (donc aucun nom de rentrer :
if a = false then  

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed