Bonjour,

tout d'abord situons le contexte j'ai voulu recuperer l'adresse de certain fichier j'ai donc utilisé:

adresse = Application.GetOpenFilename(filefilter:=" fichiers Word (*.doc), *.doc ", Title:=" selection de la feuille PQP proposition où stocker les tables ")

puis je me suis apercu que dans la boite de dialogue qui apparaissait quand on cliquait sur "annule" il y avait un message d'erreur , pour palier a ca j'ai donc fais ca :

line1:

Dim adresse As String
adresse = Application.GetOpenFilename(filefilter:=" fichiers Word (*.doc), *.doc ", Title:=" selection de la feuille PQP proposition où stocker les tables ") 'on va chercher le lieu où se situe la feuille Word'
If adresse = False Then
Dim reponse As String
reponse = MsgBox("souhaiter vous quitter l'application ?", vbQuestion + vbYesNo, "continuez ou arreter")
If reponse = vbYes Then
Exit Sub
Else
GoTo line1
End If
ElseIf adresse = True Then

End If

Maintenant je n'ai lus de mesage d'erreur lorsuqe je clique sur "annule" en revanche il apparit quand je clique sur "Ouvrir" ce qui est nettement plus genant, aidez moi s'il vous plait et merci d'avance

clben23

Configuration: Windows 2000
Internet Explorer 6.0