XL 2019 Affichage Photo a partir d'un répertoir

[ecluse105]

J'ai recréer d'après un tutoriel un fichier exel qui me permet d'afficher une image a partir d'un dossier photo de mon pc. En appuyant sur mon bouton il m'affiche un message d'erreur il ne trouve pas la photo, en plus je ne sais pas comment il faut que je fasse pour que j'ai mon afficheur d'image, j'ai du louper une étape;
En attente de réponse merci

 

[Staple1600]

Bonsoir

Tu as oublié d'appuyer sur le bouton 3
(Sans doute la précipitation)
Normalement, ce bouton sert à l 'étape 1

Ci-dessous le fameux bouton 3

Spoiler: 🔘

3 – Lorsqu’on rentre sur un fil, comme dans la vie de tous les jours, on est poli en disant « Bonjour ».
=>extrait de la charte du forum<=

Sinon, pour la question: Quel est le message d'erreur?

 

[ecluse105]

Bonjour, voici le message d'erreur lorsque j'appuie sur le bouton 3 (Le fichier n'existe pas dans le dossier. Vérifier le nom de limage saisie), alors que mon chemin ou se trouve les photos existe bien et que le nom des photos corresponde bien.

 

[Staple1600]

Bonjour le fil

Fais ce test

Sub AfficheImag()
'Déclaration des variables
Dim MonDossier As String
Dim TypeImage As String
Dim NomPhoto As String
'Affectation les variables
Mondosier = "C:\Users\eclus\Pictures\Photos-Jose\"
NomPhoto = Range("H10")
TypeImage = ".jpg"
Range("C18").Value = NomPhoto
MsgBox MonDossier & NomPhoto 'pout test
''On Error GoTo erreurmessage:
''    'Affichage des images
''    ActiveSheet.Shapes.AddPicture Filename:=MonDossier & NomPhoto & TypeImage, _
''    linktofile:=mstfalse, savewithdocument:=msoTrue, Left:=45, Top:=50, Width:=200, Height:=200
''erreurmessage:
''    If Err.Number = 1004 Then
''
''       MsgBox "Le fichier n'existe pas dans le dossier" & vbCrLf & "Vérifier le nom de l'image saisie", _
''       vbInformation + vbOKOnly, "Message d'erreur"
''    End If
End Sub

Qu'affiche le MsgBox?
Le nom d'une image existante ou pas?

 

[Staple1600]

Re

Je viens de voir la coquille
Il te manquait un s 😉
Mondosier = "C:\Users\eclus\Pictures\Photos-Jose\"
Ce sera mieux ainsi
Mondossier = "C:\Users\eclus\Pictures\Photos-Jose\"

 

[sylvanu]

Bonjour Ecluse, Staple,
Grillé sur le fil. 😂

Avant Sub AfficheImag(), rajoutez Option explicit.

Ca évite certaines erreurs.

 

[Staple1600]

Bonjour sylvanu

Un homme averti en vaut deux
(Quand il y a le texte et l'image, il en vaut 3 😉)

PS: Tu ris d'avoir été grillé sur le fil? (ou je m'abuse?)
(cf message#5)

 

[ecluse105]

Bonjour, merci Stape tu avais raison il me manquait un S à (MonDossier), maintenant cela fonctionne.
Des fois on relit le code plusieurs fois et l'on passe à coté d'un S manquant = S comme stupide.
Bonne journée à toi.

 

[Staple1600]

Re

Non, aujourd'hui, c'est S comme Soleil
Ou alors si c'est S pour Stupide alors nous le sommes tous les deux!
Qu'est-ce qu'on fiche devant notre écran alors qu'il fait beau dehors!
Hop, hop, on lève son boul et on va courir/marcher au bord du canal 😉

 

[ecluse105]

Moi c'est fait je viens de promener le chien ayant la chance d'habiter dans une maison d'éclusier

 

[sylvanu]

Et moi, au bord du canal lacrymal j'écluse pas mal. 🙄

 

[Staple1600]

Re

=>sylvanu
En guise de mouchoir, il y avait le message#7, non ?
(ISeeU UseeMe 😉)