GetOpenFilename fait planter Excel

Bonjour,

cj un bug très mystérieux lié au sélecteur de fichiers.

Dans mon application, l'utilisateur peut choisir une image pour l'attacher à un item choisi dans une listbox. Pièce jointe 162130 Je stock le chemin de l'image dans un endroit du fichier Excel.

Et chose surprenante, après le double click dans le sélecteur de fichier, les informations "sautent". Cad à dire que la userform active derrière le sélecteur disparait et l'appli perd l'item auquel il faut attacher la photo.

Est-ce que cela vous dit quelquechose ? merci !

Code:

---

1 2 3 4 5 6 7

Dim img As Variant Dim i As Integer Dim Repertoire1 As String 'Nom du répertoire à scanner Repertoire1 = Environ("USERPROFILE") & "\Pictures\" ChDir Repertoire1 img = Application.GetOpenFilename("JPEG (*.jpg),*.jpg", 1, "Choisir une image:")

---

Bonjour,

Difficile de savoir avec le peu de code que tu nous proposes... Est-ce que tu peux mettre ton classeur - sans données confidentielles- en PJ ?

ok je te prépare un fichier sans données confidentielles.

Bon, j'ai allégé mon fichier qui contient le code pour ne laisser que le module qui sert.

mais le hic c'est que là ça fonctionne très bien là ! et je ne peux me passer du reste pour faire marcher l'ensemble de l'outil

Il est possible que ton vrai classeur soit corrompu. Recopie les feuilles, les macros et les userforms dans un classeur vierge, enregistre et teste.

j'ai fais comme tu as dis, et les premiers essais étaient concluants et ça a fini par dérailler à nouveau.

Pour faire ouvrir le sélecteur sur le dossier Images de chaque utilisateur je procède ainsi :

Code:

---

1 2	Repertoire1 = Environ("USERPROFILE") & "\Pictures\" ChDir Repertoire1

---

l'utilisation de la variable Environ("USERPROFILE") ne serait t-elle pas responsable ?

Je sais que par le passé sous Excel 2003, mon application était devenu très instable quand j'utilisais Environ("USERNAME") pour un autre besoin. J'avais cessé de l'utiliser du coup.

Vous n'avez jamais entendu parler de ces variables d'environnements qui font planter VBA ?

Merci en tout cas

Citation:

---

Vous n'avez jamais entendu parler de ces variables d'environnements qui font planter VBA ?

---

Personnellement, non. D'autant que le classeur de test fonctionne...

Bonjour.

Citation:

---

Envoyé par punky_brooster

Je sais que par le passé sous Excel 2003, mon application était devenu très instable quand j'utilisais Environ("USERNAME") pour un autre besoin. J'avais cessé de l'utiliser du coup.

---

J'utilise encore Excel 2003 entre autres versions et je n'ai jamais eu de souci …

Tu as peut-être quelque pat dans ton code l'instruction "On Error" qui masque un message d'erreur. Fais une recherche pour voir si c'est le cas.