cabsen
XLDnaute Junior
Bonjour à tous,
Je rencontre un soucis avec un test If dont voici le code :
Lorsque l'utilisateur sélectionne un fichier excel dans le dialogue "Ouvrir..." tout se déroule correctement et le chemin est placé dans la cellule.
Lorsque l'utilisateur ne sélectionne aucun fichier ou clique le bouton annuler du dialogue, ça ne se passe pas comme je l'espérais. La valeur FAUX est placé dans la cellule et nom le texte d'information "aucun fichier sélectionné !".
J'ai testé Null, false, "FAUX", rien ne semble fonctionner.
Si quelqu'un a une piste, je suis preneur.
D'avance merci à tous
Je rencontre un soucis avec un test If dont voici le code :
Code:
Option Explicit
Dim chemFic As String
Public Sub selectionFichierAMettreEnForme()
chemFic = Application.GetOpenFilename("XCEL,XLS8")
If chemFic = Null Then 'Si l'utilisateur annule la boîte
Range("ficSel") = "aucun fichier sélectionné !"
Else
Range("ficSel") = chemFic
End If
End Sub
Lorsque l'utilisateur sélectionne un fichier excel dans le dialogue "Ouvrir..." tout se déroule correctement et le chemin est placé dans la cellule.
Lorsque l'utilisateur ne sélectionne aucun fichier ou clique le bouton annuler du dialogue, ça ne se passe pas comme je l'espérais. La valeur FAUX est placé dans la cellule et nom le texte d'information "aucun fichier sélectionné !".
J'ai testé Null, false, "FAUX", rien ne semble fonctionner.
Si quelqu'un a une piste, je suis preneur.
D'avance merci à tous