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

 

[Jacky67]

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

Bonjour,
Essaye en enlevant les guillemets à Chemin

Me.Image1.Picture = LoadPicture(Chemin)

 

[patricktoulon]

Bonjour
une mise a jour W10 du mois de février
a bétonné l’accès au fichier utilisateur basique
ça concerne ceux ci

 

[Angus HEYERDAHL]

Dans mes documents?
Au début le fichier était sur le bureau. Je l'ai déplacé. Mais même résultat
Et du coup comment peut-on résoudre ce désagrément ?

 

[TooFatBoy]

Bonjour,

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

As-tu essayé de mettre le fichier .jpg ailleurs que dans c:\users ?

Essaye par exemple à la racine de D.

 

[Angus HEYERDAHL]

J'avoue que non
Je vais essayer sur sur le C dans un premier temps et sur les autres lecteurs

 

[TooFatBoy]

Je vais essayer sur sur le C dans un premier temps et sur les autres lecteurs

À la racine de C, ce serait parfait pour tester.

Et ton classeur est situé où ?

 

[Jacky67]

Bonjour à tous
Perso, je n'éprouve aucune difficulté quand les guillemets de Chemin sont enlevées...
Me.Image1.Picture = LoadPicture(Chemin)

 

[Angus HEYERDAHL]

Là je suis embêté
Le problème arrive sur mon pc au boulot
Là je suis rentré chez moi et aucun problème
Je vais prendre le fichier test que je viens de créer et l'ouvrir au boulot demain.
Je vous tiendrai au courant
Dans l'attente je suis preneur de toutes solutions que vous me donnerai

 

[Jacky67]

Là je suis embêté
Le problème arrive sur mon pc au boulot
Là je suis rentré chez moi et aucun problème

Et.....
Et quel est le code utilisé sur le pc maison....

 

[Angus HEYERDAHL]

Exactement le même

 

[Laurent78]

Bonjour à tous
Perso, je n'éprouve aucune difficulté quand les parenthèses de Chemin sont enlevées...
Me.Image1.Picture = LoadPicture(Chemin)

Bonjour,
Les parenthèses ? ce ne serait pas plutôt les guillemets ?

 

[Jacky67]

Exactement le même

Dans mes essais avec des guillemets autour de Chemin , aucune chance (pour ne pas dire impossible) de trouver le fichier demandé.(Blason.jpg)

 

[Laurent78]

Là je suis embêté
Le problème arrive sur mon pc au boulot
Là je suis rentré chez moi et aucun problème
Je vais prendre le fichier test que je viens de créer et l'ouvrir au boulot demain.
Je vous tiendrai au courant
Dans l'attente je suis preneur de toutes solutions que vous me donnerai

Bonjour,
Petite question, le PC du boulot est il connecté à un AD, ou AzureAD, y a t il un OneDrive de configuré ?

 

[Jacky67]

Bonjour,
Les parenthèses ? ce ne serait pas plutôt les guillemets ?

Evidemment, bien sur, merci d'avoir remarqué.
Au moins un qui suit
Correction en cours....