Enregistremt de fichier : choix du répertoire et du nom de fichier VBA - VB/VBA/VBS - Programmation
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
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