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

[Angus HEYERDAHL]

Bonjour à tous,

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

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]

Si tu enlève le parenthèses tu as une erreur de synthaxe

 

[Jacky67]

Si tu enlève le parenthèses tu as une erreur de synthaxe

Erreur de ma part pas les parenthèses ...les guillemets comme dans l'exemple donné
Me.Image1.Picture = LoadPicture(Chemin)

 

[Angus HEYERDAHL]

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]

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.

 

[wDog66]

Bonjour à tous,

A tout hasard, est-ce que l'extension des fichiers est bien affichée

Dans l'explorateur Windows, il faut bien voir "MonImage.JPG"

A+

 

[patricktoulon]

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]

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.

 

[Angus HEYERDAHL]

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?

 

[patricktoulon]

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

 

[Angus HEYERDAHL]

Ok Patrick
Merci pour ces explications très instructives
Je vais regarder tout ça.
Merci à tous pour votre aide

 

[TooFatBoy]

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

intégration par les propriétés

C'est-à-dire ???