Probleme avec la boite dialogue openfile

bonjour forum,

je voudrais savoir comment faire pour gérer l'option annulé de la fenêtre "Application.FileDialog(msoFileDialogOpen)"

ou plus généralement des boite de dialogue Windows

a fin d’arrêter l’exécution de mon code (je sais pas faire non plus mais ça j'ai pas encore cherché )

je vous remercie par avance pour vos lumiere

Bonjour

Exemple extrait de l'aide

Sub Main()
Dim fd As FileDialog

  Set fd = Application.FileDialog(msoFileDialogOpen)
  Dim vrtSelectedItem As Variant

  With fd
    If .Show = -1 Then
      For Each vrtSelectedItem In .SelectedItems
        MsgBox "Le fichier : " & vrtSelectedItem
      Next vrtSelectedItem
    Else
      ' Annuler
      MsgBox "Abandon"
    End If
  End With
  Set fd = Nothing
End Sub

Pour voir l'aide

Positionne le curseur sur le mot FileDialog et appuies sur F1

bonjour banzaï 64, bonjour forum,

j'avais bien vue l'aide, mais je n'arrivais pas a l'adapter sur mon code , je ne comprenais pas ou intégrer le if

je te remercie pour ton aide, j'ai finit par trouver en relisant l'aide, a l'avenir j’essaierai de plus chercher (mais hier soir j’étais crevé)