Discussion :

[punky_brooster]

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. 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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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:")

[Daniel.C]

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 ?

[punky_brooster]

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

[Daniel.C]

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

[punky_brooster]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Daniel.C]

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...

[Marc-L]

Bonjour.

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 …