Macro et boite de dialogue Sauveguarder Sous

Salut,

La collection dialogs te permet uniquement d'enregistrer le classeur actif. Passes par un leurre =>Application.GetSaveAsFilename, voici un exemple où on demande à l'utilisatuer de séléectionner un dossier avec comme "Toto" en nom de fichier par défaut , et on crée un fichier texte avec 2 lignes.

sub Princ()
dim NomF
nomf=sauv("Toto")
if nomf <>false then
ecrirefichiertxt nomf,array("Coucou", "Le bonjour d'XLD")
else msgbox "Désolé, le chemin sélectionné n'est pas bon
end if
end sub

Function Sauv(Optional NomF$, Optional Filtre$, Optional Titre$)
Sauv = Application.GetSaveAsFilename(NomF, Filtre, , Titre)
End Function

Sub EcrireFichierTxT(ByVal NomF$, T)
Dim I&
L = FreeFile
Open NomF For Output As #L
For I = LBound(T) To UBound(T)
Write #L, T(I)
Next I
Close #L
End Sub


A+++

Merci merci ! C'est pil poil ce qu'il me fallait en plus c'est élégant.