Discussion :

[Nako_lito]

Bonjour tout le monde,

tout est dit dans le titre ^^
Quand je clique sur le bouton annuler de ma GetOpenFilename, ca me fait planter le prog avec un erreur 1004, et

Faux.xls introuvable.verifier l'ortographe du nom de du classeur et la validité de l'emplacement.
Si vous essayer d'ouvrir le fichier a partir de la liste des fichiers les plus recents, assurez vous que le fichier n'as pas ete renommé, déplacé ou supprimé.

Mais si je clique sur "ouvrir" ca fonctionne correctement, v'la merci par avance .

[Krovax]

Juste après ton getopenfilename teste la variable qui recoi la réponse si elle est égale a Faux tu quitte (ou alors tu repose la question ou alors tu ....)

Code :

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

1
2
3
 
QuelFichier = Application.GetOpenFilename("Fichier Excel 97-2003 (*.xls), *.xls")
If (QuelFichier = "Faux") Then exit sub

Ou alors (plus méchant pour l'utilisateur )

Code :

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

1
2
3
4
 
do
QuelFichier = Application.GetOpenFilename("Fichier Excel 97-2003 (*.xls), *.xls")
loop while QuelFichier = "Faux"

[Nako_lito]

quand je met ca:

Code :

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

1
2
3
4
5
6
7
laRequeteEnCours = Application.GetOpenFilename("Nom fichier,*.xls", , Ouvrir, , False)
    If laRequeteEnCours = "Faux" Then
 
        End Sub
    Else
        Application.Workbooks.Open (laRequeteEnCours)
    End If

Il veut pas compiler et me dit que l'instruction If doit se finir avec un End If.
J'ai essayé dans l'autre sens avec

Code :

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

If laRequeteEnCours <> "Faux" Then

et inverser le else, mais rien n'y fait ...

[Krovax]

Code :

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

exit sub

pas

Code :

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

end sub

Regarde les codes que l'on te donne

[Nako_lito]

Merci beaucoup
Problème résolu