Application.GetSaveAsFilename

Salut,

Essai ceci:
Application.DisplayAlerts=false

ton code

Application.DisplayAlerts=True

@+

Message édité par: Minick, à: 17/05/2005 10:11

Bonjour thomas
salut minick


je pense que tu fais référence à la macro que je t'ai donné concernant la création de fichier texte.

Dans cette macro, le fichier texte n'était pas crée, d'ou mon utilisation de Application.GetSaveAsFilename.

Par contre une fois le fichier crée, tu n'a plus besoin de l'enregistrer, tu fait simplement référence à celui ci :

[....]
fichier = 'D:\\thomas\\Mes documents\\' & varmois & '.txt'

With Sheets(varmois)
tablo = .Range('A1' & .Range('A65536').End(xlUp).Row)
End With
Open fichier For Output As #1
[....]

En somme il faut créer le fichier une seule fois, au début.

En espérant t'avoir aidé.

salut

Bonjour Minick, Hervé,

Merci pour vos réponses.

Oui hervé c'est bien pour la macro que tu m'as donné hier.

cela fonctionne tres bien.

Encore merci pour votre aide

Thomas®

bonjour a tous,

j'utilise moi aussi un Application.GetSaveAsFilename(.....),
et j'aimerais bien ne pas avoir a valider le nom de mon fichier.
En fait ma question est exactement celle posée au debut de ce fil....mais j'ai pas tres bien compris la reponse.

TheFile = Application.GetSaveAsFilename(nom_2)

Open TheFile For Output As #1
.....
close

et le probleme c'est que je voudrait que ca se fasse sans que j'ai a intervenir.
(mon nom_2 peut exister, comme ne pas exister)
merci