Discussion :

[Invité]

bonjour,

je souhaiterais afficher dans un userform une image dont le fichier est stocké dans un SharePoint.

cela fonctionnait lorsque le fichier était stocké sur un réseau interne (professionnel), lecteur I:, mais plus maintenant
depuis qu'il y a une une bascule des fichiers sous le SharePoint puisque les adresses changent.

dans un excel, j'ai un bouton, qui ouvre un userform. dans ce userform il y a une zone appelé Image1. la macro appelle
le fichier image (.jpg) qui est intégré dans le userform, puis visualisation.




j'ai tenté de changer toute l'adresse I:\.... par celle du SharePoint mais cela ne fonctionne pas. j'ai l'impression que l'adresse n'est pas reconnue.

ma question est :
savez-vous comment transformer le code (adresse SharePoint, autres codes, autres fonctions, ...) pour que cela fonctionne à nouveau ?

merci du coup de main.
wilfried.

[Invité]

bonjour,
personne n'aurait une idée pour la résolution de mon problème ?
les Sharepoints vous bloqueraient-ils ?
merci,
w.

[Marco-73]

Hello,

De mon coté une solution marche :
Mets le lien du Sharepoint en enlevant le "https:"

Code :

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

Loadpicture(mid(lien_sharepoint,7))

[Invité]

bonjour Marco-73, et merci pour cette réponse.

voici ce que j'ai tenté :

Code :

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

UserForm_info_rlt.Image1.Picture = LoadPicture(Mid("//grouperenault.sharepoint.com/sites/xn--deascr-mdr-docmtiers-p2b/Shared%20Documents/Analyse%20concurrence/Analyse%20concurrence%20des%20pi%C3%A8ces%20m%C3%A9caniques/PFAV/images/img_bd/rlt_GEN.jpg", 7))

retour :

Erreur d'exécution '76': Chemin d'accès introuvable

une idée ?

[thekat]

la syntaxe mid("xxxxxxx",7) qui prend le texte à partir du 7 ème caractère devrait renvoyer :

perenault.sharepoint.com/sites/xn--deascr-mdr-docmtiers-p2b/Shared%20Documents/Analyse%20concurrence/Analyse%20concurrence%20des%20pi%C3%A8ces%20m%C3%A9caniques/PFAV/images/img_bd/rlt_GEN.jpg


enlever Mid ?

AMHA

[Invité]

la syntaxe mid("xxxxxxx",7) qui prend le texte à partir du 7 ème caractère devrait renvoyer :

perenault.sharepoint.com/sites/xn--deascr-mdr-docmtiers-p2b/Shared%20Documents/Analyse%20concurrence/Analyse%20concurrence%20des%20pi%C3%A8ces%20m%C3%A9caniques/PFAV/images/img_bd/rlt_GEN.jpg


enlever Mid ?

AMHA

bonjour, désolé du délai de ma réponse (congé).
j'ai retesté en enlevant la fonction Mid. cela donne Erreur d'exécution '75' / Erreur d'accès Chemin/Fichier

merci,
w.