Application.GetOpenFilename
Bonjour,
je ne comprends pas pourquoi ce code ne fonctionne pas. Je n'ai rien écrit, c'est un code que j'ai récupéré:
Sub ChoixFichier()
'La variable est de type Variant car elle peut prendre les valeurs :
'Booleenne: (Vrai/Faux) quand l'utilisateur ne sélectionne rien, ou annule l'opération.
'String: pour renvoyer le nom du fichier sélectionné.
Dim Fichier As Variant
'Affiche la boîte de dialogue "Ouvrir"
Fichier = Application.GetOpenFilename("Tous les fichiers (*.*),*.*")
'On sort si aucun fichier n'a été sélectionné ou si l'utilisateur
'a cliqué sur le bouton "Annuler", ou sur la croix de fermeture. CA BLOQUE A LA LIGNE DESSOUS
If Fichier = False Then Exit Sub
'Affiche le chemin et le nom du fichier sélectionné.
MsgBox Fichier
End Sub
si je supprime la ligne en rouge et que je relance ça bloque au niveau du Msgbox (exécution interromptue)
si je clique sur continuer le message s'affiche
comment éviter l'affichage de cette fenêtre VBA
Merci
Bonjour Chgnd,
J'ai exécuté le code et n'ai constaté aucun problème mais je suis en version 19 d'EXCEL. Obtiens-tu une erreur lors de la compilation de ton projet VBA ?
Merci de ta réponse, en fait lorsque je clique sur "débogage" ça me surligne cette ligne en jaune.
pas de n° d'erreur de compilation simplement exécution interrompue
Si je supprime cette ligne, ça surligne la ligne Msgbox Fichier !
Ce n'est pas la 1ère fois que j'utilise ce code (ou équivalent) et jusque là ça marchait parfaitement.
par contre, si je clique sur "continuer" ça fonctionne ... mais pas très pratique
pb de configuration ?
je me rends compte que je me répète (la frustration sans doute)
merci d'avance cdt
Chgnd,
Une piste : un point d'arrêt "fantôme" existe dans le code...
Pour en venir à bout :
- Tu effectues une modification quelconque dans le code (par exemple, tu supprimes une ligne vide)
- Tu supprimes tous les points d'arrêt (voir capture ou Ctrl+Maj+F9)
- Tu recompiles le code
- Tu sauvegardes le projet
Re,
Je viens de me rendre compte que cette macro fonctionne sur un autre PC que le mien ...
Ta piste ne change pas les choses malheureusement mais j'aurais appris un truc
à suivre
Cdt patrice
Gérard, en redémarrant l'ordi la macro fonctionne ... maintenant
merci de ton aide patrice cdt