Macro et boite de dialogue Sauveguarder Sous

[Totoro]

Bonjour à vous,

Je me casse les dents sur un pb de macro Excel. J'utilise une macro dans une feuille qui fabrique un fichier texte à partir de certaines de ses cellules.

Je souhaite que ma macro lance une boite de dialogue pour récupérer le nom et le chemin de l'endroit ou sauver le fichier texte (mais comme une boite de dialogue windows classique).

InputBox ou Application.Dialogs(xlDialogSaveAs).Show ne fonctionne pas vraiment dans ce cas.

Merci et bon courage à ceux qui se pencheront la dessus.

 

[Zon]

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+++

 

[Totoro]

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