Microsoft 365 Résolu - Fichier introuvable (image VBA)

Angus HEYERDAHL

XLDnaute Junior
Bonjour à tous,

Depuis quelques temps, lorsque j’essaie de mettre une image dans un Userform de cette manière

VB:
Private Sub UserForm_initialize()
Dim Chemin As String
Chemin = "C:\Users\Mon nom\Pictures\Blason.jpg"
Me.Image1.Picture = LoadPicture("Chemin")
End Sub

Il me met un message d'erreur "erreur d'exécution 53 : fichier introuvable

même en essayant de charger l'image via les propriétés ça ne fonctionne pas

J'ai bien vérifié le chemin, plusieurs extensions, etc, mais rien ne fonction.

Quelqu'un pourrait m'aider, svp
 

Angus HEYERDAHL

XLDnaute Junior
Laurent
Au boulot nous avons une version basique de Microsoft 365 pas de azure et nous n'utilisons pas onedrive (ils ont peurs des virus et du vol de données)
Donc un simple ordinateur avec un serveur local.

Jacky
Effectivement tu me mets ma bêtise en pleine figure
En faisant par le code j'ai recopié sans mettre les guillemets du coup pas de problème.
Je test demain là je ne pourrai rien faire de plus.

Merci pour vos aides
 

TooFatBoy

XLDnaute Barbatruc
J'étais tellement obnubilé par le fait que la variable chemin ne contienne pas uniquement le chemin d'accès au fichier mais aussi le nom complet dudit fichier, que je n'ai même pas vu l'erreur des guillemets. 😕

En plus je ne pensais pas à une erreur de syntaxe vu que le camarade Angus nous disait que ça fonctionnait. 🤔


Sur ce, bonne journée à tous.
🖖
 

patricktoulon

XLDnaute Barbatruc
Bonjour @wDog66
il faut lire toute la discussion entière avant de répondre
la solution a été donnée par @Jacky67
une simple erreur de syntaxe(des guillemets qui n'avaient pas lieu d'être )
quand au fait que l'extension du fichier dans l'explorateur soit visible ou pas ça change rien ça n'a aucune incidence sur l'accès au fichier par son chemin complet
 

Angus HEYERDAHL

XLDnaute Junior
Bonjour à tous,

en fait, là je suis au boulot, donc je viens de tester le fichier que j'ai fait à la maison hier.
j'ai fait 3 méthodes, intégration par les propriétés, le code que j'ai mis en intro et un autre code qui donne le même résultat que l'autre.
j'ai même essayer en répertoire racine.
mon fichier qui fonctionne chez moi, ne fonctionne pas au boulot, j'ai regardé les référence au cas ou, tout identique.
les pc, moi j'ai un pc qui a 12 ans, ici entre 12 et 5 ans, le seul qui fonctionne à 1 an (accueil).
je ne comprend pas d'où peut venir le problème.
 

patricktoulon

XLDnaute Barbatruc
Pour info, je viens de baisser la taille de mon fichier de 180 Ko à 102Ko et tout fonctionne.

Y a t-il une taille maximale ou dimension pour l'intégration d'une image?
quand tu intègre une image dans excel feuille ou userform tu intègre
un bitmap de l'image
ou
un wmf de l'image si(png ou autre sur feuille)

le bitmap est plus lourd

alors non pas vraiment de limite mais effectivement selon la puissance de pc tu risque de rencontrer des soucis

d'autre part

il y a par exemple deux façons d'ajouter une image sur feuille

1° la méthode ActiveSheet.Pictures.Insert("chemin de l'image")
cette méthode va insérer l'image avec une taille limite
cette limite est calculée sur un ratio de base 800X600(héritage des versions antérieur d'excel)
conclusion elle n'a pas la même taille que l'originale si le ratio est dépassé

2° la méthode ActiveSheet.Shapes.AddPicture "chemin de l'image", False, True, 0, 0, -1, -1
la c'est différent l'image va être insérée dans sa taille originale
conclusion le poids de ton fichier va en pâtir


pour tester essayez avec un fond d’écran très haute résolution et donc grande dimension
 

Statistiques des forums

Discussions
313 259
Messages
2 096 616
Membres
106 687
dernier inscrit
jessicabornet