Bonjour tout le monde,
J'utilise la fonction :
Dim filenames As Variant
filenames = Application.GetOpenFilename("Text Files (*.csv), *.csv", , , , True)
Qui me permet d'aller chercher plusieurs fichier (que je colle ensuite sur la feuille)
Le code fonctionne, mais lorsque l'utilisateur annule l'ouverture du fichier, on retourne sur la page de code avec l'erreur 13 : "incompatibilité de type" sur la ligne
While counter <= UBound(filenames)
J'ai regardé ce que renvoyé la fonction, Excel me dit False, je place donc un test pour lui demander s'il prend la valeur False, ça ne fonctionne pas, même erreur (Excel me dit False = Faux)
J'essaie donc
If filenames = False Then
Exit Sub
Dans ce cas là cela fonctionne, mais la recherche passe en erreur 13 si l'utilisateur ouvre un fichier.
J'ai cherché sur internet pour voir ce que renvoyait comme valeur Ubound sans vraiment trouvé de réponses tangibles, j'ai donc essayé le test avec 0 ou Null (avec juste la variable filenames) sans plus de succès.
Je commence à arriver à court d'idées, je joins le fichier et merci à ceux qui y jetteront un oeil.