Fonction VBA loadpicture n'est pas prise en compte sur ma tablette surface

Bonjour à tous,

Je suis retraité depuis plusieurs années et pratique VBA EXCEL en amateur . Je suis nouveau sur ce forum et j’espère y trouver une solution a mon problème.

J'ai sous VBA confectionné un programme qui marche très bien sur mon PC équipé de w10 pro et de EXCEL 2010. Je veux le mettre sur ma Tablette Microsoft Surface 3 équipée de w10 famille et de EXCEL 2010 et m'aperçois que les images ne sont pas prisent en compte en utilisant la fonction loadpicture (voir extrait du programme ci-dessous).

On Error GoTo Defaut

photo = "photoregion" & "\" & region

Image7.Picture = LoadPicture(chemin & photo & ".jpg")

photo = "photodepartement" & "\" & departement

Image8.Picture = LoadPicture(chemin & photo & ".jpg")

photo = "blasons" & "\" & villecimetiere

Image9.Picture = LoadPicture(chemin & photo & ".jpg")

Exit Sub

Defaut:

Image9.Picture = LoadPicture(chemin & "Defaut.JPG")

Il n'y a aucun message d'erreur à part que les images ne sont pas chargée dans le Userform.

J'ai effectué des recherches sur le Net mais n'ai rien trouvé.

Quelqu'un pourrait-il m'aider à résoudre ce problème ?

Merci d'avance

Bonjour,

Vu l'extrait de ta macro, les erreurs sont redirigées vers l'étiquette "Défaut". Donc pas de message d'erreur lors des 1ers LoadPicture.

La procédure "Défaut", n'a pas de fin, elle doit tourner en rond !!

Il faut traiter les éventuelles erreurs dans cette sous-procédure.

Comme ceci :

Sub X()
On Error GoTo Defaut
photo = "photoregion" & "\" & region
Image7.Picture = LoadPicture(chemin & photo & ".jpg")
photo = "photodepartement" & "\" & departement
Image8.Picture = LoadPicture(chemin & photo & ".jpg")
photo = "blasons" & "\" & villecimetiere
Image9.Picture = LoadPicture(chemin & photo & ".jpg")
On Error GoTo 0 ' On rétablit la procédure d'erreur
Exit Sub

Defaut:
MsgBox "Erreur " & Err.Number & "   " & Err.Description, vbCritical, "Erreur :"

' Tente d'afficher l'image par défaut
On Error GoTo -1
On Error Resume Next
Image9.Picture = LoadPicture(chemin & "Defaut.JPG")
i = Err.Number: a$ = Err.Description
On Error GoTo 0
If i <> 0 Then
    MsgBox "Impossible de charger l'image par défaut" & vbCrLf & "Erreur " & i & " " & a$, vbCritical, "Erreur:"
End If
End Sub

Cela ne solutionne pas le problème de chargement des images.

Je pense que le problème vient des références nécessaires qui ne sont pas activées sur ta tablette.

Il faut comparer les références utilisées sur PC (Outils/Références) avec celles utilisées sur la tablette et cocher les mêmes.

Bonne journée

Eric

Merci Eric,

Je regarde, test et reviens vers toi.

Bonne journée

Bonsoir Eric,

Encore merci pour votre réponse qui m'a mis sur la voie de la solution.

Lors de la copie de mes fichiers du PC sur ma tablette, j'ai oublié de copier le fichier photoregion qui se trouve au début de la procédure "On error GoTo defaut".

La procédure defaut n'ayant pas trouvé le répertoire contenant la photo des régions n'a pas pu charger les images et sans me mettre de message d'erreur est passée à l'userform suivant. C'est une erreur de débutant et je vous prie de bien vouloir m'en excuser.Tout marche très bien maintenant.

Comme je vous l'ai indiqué dans mon message de départ, je suis nouveau sur ce forum et je tiens à vous remercier pour votre réactivité et vos explications détaillées.

Merci et bonne soirée

Pas de quoi, le forum sert à celà. Quand on peut aider.

Bonne continuation

Eric