enregistrer sous

Bonjour,

je ne suis pas sur d'avoir tout à fait compris la question notamment la partie sur la
macro qui s'arrête sans attendre la réponse de l'utiisateur.
ceci dit, je te donne une piste que tu peux d'ailleurs obtenir dans l'aide VBA d'excel.

Affiche la boîte de dialogue standard Enregistrer sous et lit un nom de fichier tapé par l'utilisateur sans réellement enregistrer les fichiers.

Syntaxe

filetotopen=Application.GetSaveAsFilename(InitialFilename, FileFilter, FilterIndex, Title, ButtonText)

FileFilter Argument de type Variant facultatif. Chaîne spécifiant les critères de filtrage des fichiers.

Cette chaîne est constituée de paires de chaînes de caractères représentant le filtre de fichier suivies de la spécification de filtre de fichier à caractère générique de MS-DOS, dont chaque partie et chaque paire est séparée par une virgule. Chaque paire distincte est contenue dans la liste déroulante Type de fichier. Par exemple, la chaîne suivante spécifie deux filtres de fichiers (fichiers texte et macros complémentaires) : « Fichiers texte (*.txt),*.txt,Macros complémentaires (*.xla),*.xla ».

Pour utiliser les expressions multiples à caractère générique de MS-DOS pour un seul type de filtre de fichier, séparez les expressions à caractères génériques par des points-virgules ; par exemple, « Fichiers Visual Basic (*.bas; *.txt),*.bas;*.txt ».

Cet argument devient par défaut « Tous les fichiers (*.*),*.* » s'il n'a pas été spécifié.


Cette méthode renvoie le nom du fichier sélectionné ou le nom tapé par l'utilisateur. Le nom renvoyé est susceptible d'inclure une spécification de chemin d'accès. Renvoie la valeur False si l'utilisateur annule la boîte de dialogue.

Cette méthode est susceptible de modifier le lecteur ou le dossier en cours.

si tu veux enregistrer réellement ensuite ton fichier, il te suffit si filetopen<>false de faire workbooks(filetoopen).saveas "le chemin et le nom que tu veux".

Bonjour

je souhaite ouvrir la boite de dialogue
"Enregistrer sous" d'excel (si possible au format TXT)
et que la macro s'arrete sans attendre la reponse de
l'utilisateur

Est ce possible ???

Merci de votre aide

Freddy

Est-ce que çà te convient ? sinon, précise davantage.

Sub OuvrirBdEnregistrerSous()
Application.Dialogs(xlDialogSaveAs).Show
End Sub

Cordialement

dadda

-----Message d'origine-----
Bonjour

je souhaite ouvrir la boite de dialogue
"Enregistrer sous" d'excel (si possible au format TXT)
et que la macro s'arrete sans attendre la reponse de
l'utilisateur

Est ce possible ???

Merci de votre aide

Freddy
.

bonjour Freddy,

fileSaveName = Application.GetSaveAsFilename( _
fileFilter:="Text Files (*.txt), *.txt")
If fileSaveName <> False Then
MsgBox "Save as " & fileSaveName
End If

isabelle

Bonjour

je souhaite ouvrir la boite de dialogue
"Enregistrer sous" d'excel (si possible au format TXT)
et que la macro s'arrete sans attendre la reponse de
l'utilisateur

Est ce possible ???

Merci de votre aide

Freddy