Bonjour à tous.

Je me lance.

ci dessous je vous joins la procédure que j'ai écrite.


'*******

Sub mac_SelectionneFichier()

'Sélection d'un fichier dans une liste ouverte dans un dir
Dim fichier As String
'ouvrir un dir et sélectionner un fichier
With Application.FileDialog(msoFileDialogOpen)
.Show
End With
fichier = Application.FileDialog(msoFileDialogOpen).SelectedItems(1)

'Suite Sélection du fichier (le problème est juste ci dessus)
Dim reponse As String
reponse = MsgBox("le fichier" & Chr(13) & Chr(10) & Chr(13) & Chr(10) & fichier & Chr(13) & Chr(10) & Chr(13) & Chr(10) & " est copié en cellule T_PARAM27", vbYesNo, "Sélection d'un fichier à garder")
If reponse = vbYes Then
'Copie du fichier dans T_PARA
ws_TP.Range("c_TPara_Mail_Annexe").Value = fichier
Else
Exit Sub
''Workbooks.Open fichier
End If
End Sub
'*******


Cette procédure marche très bien, SAUF si je ne sélectionne aucun fichier
Dans ce cas il me retourne une erreur
erreur 5
Argument ou appel de procédure incorrect

J'ai essayé différentes méthodes pour passer outre, mais NADA

Pouvez-vous me donner une solution svp

Je vous en serait reconnaissant

Gérard DEMAN