Discussion :

[daniel_gre]

Bonjour,

j'utilise la fenetre de dialogue Application.FileDialog(msoFileDialogSaveAs) dans Excel.

Mon probleme est de recuperer l'information de la fenetre d'Alerte affichee par cette boite de dialogue lorsque le fichier existe deja:
Ecraser ou Non le fichier existant Oui/Non


Quelqu'un sait'il dans quelle variable/object je peux recuperer le choix qu'a repondu l'utilisateur ?

Par avance merci,

Daniel.

[Maxence HUBICHE]

Aucune idée, mais tu pourrais regarder du côté de GetSaveAsFileName plutôt...

[ouskel'n'or]

La voilà ta réponse, râle pas...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub test()
Dim LeTruc As Object, ok as boolean
    With Application
        Set LeTruc = .FileDialog(msoFileDialogSaveAs)
        ok = LeTruc.Show
        MsgBox ok
    End With
End Sub

N'empêche, tu la mérites pas
Tu auras vrai (-1) si la réponse est oui, et faux (0) si la réponse est Annulé
Youki content ?
Bonne journée quand même

Edit
Tiens, en relisant je ne pense pas répondre à ta question. Désolé mais je pense être comme Maxence, ne pas avoir de solution. On a effectivement -1 que le fichier existe ou non

[Maxence HUBICHE]

par contre, en utilisant GetSaveAsFileName... on doit pouvoir arriver à quelque chose.
Mais encore faudrait-il lire un peu plus loin que "Aucune Idée"


EDIT...
Allez, comme le monsieur a du mal à lire, je vais l'aider un peu...
Il faudra peut-être aussi utiliser MsgBox et Dir pour y arriver à ce que tu veux...

[ouskel'n'or]

Hello Maxence,
De mon côté, comme je ne connais pas l'utilisation de FileDialog (j'utilise toujours - hé oui, je suis un vieux - les boîtes de dialogue intégrées d'Excel) j'ai testé msoFileDialogSaveAs dans tous les sens et je m'aperçois qu'avec FileDialog(msoFileDialogSaveAs ) on ne peut pas enregistrer un fichier sous un "autre nom" que celui d'un fichier existant. Et donc la réponse Oui/non est la seule qu'on peut obtenir.
Par contre, comme je ne vois pas l'intérêt de la chose, pisk si le fichier n'existe pas on est contraint d'utiliser une autre syntaxe pour l'enregistrer, j'aimerais une confirmation sur mon "observation" : C'est vrai ce que je dis ?

Edit
Tu n'as pas répondu à mon mp, qui ne dit mot consent ?

[Maxence HUBICHE]

hello ousk' !

voici ce que j'ai envoyé à notre ami par MP suite à ... bon, c'est pas grave, ca passera :

GetSaveAsFileName n'enregistre pas, mais récupère un nom de fichier proposé
Grâce à un Dir, tu peux vérifier que le fichier demandé existe ou pas
Ce faisant, tu peux reproduire le message proposé à l'utilisateur (écraser ???) avec un MsgBox
Et, en fonction de la réponse au Msgbox (que tu pourras récupérer cette fois, contrairement au DialogBox) tu pourras faire ce que tu souhaites faire derrière.

Edit : Si ! J'ai répondu ! Et je consens !

[Maxence HUBICHE]

C'est clair !
Et la solution est maintenant toute simple !