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

Staple1600

XLDnaute Barbatruc

• 3 Avril 2021

• #2

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?

 

Dernière édition: 3 Avril 2021

Vote positif 0 Vote négatif

E

ecluse105

XLDnaute Nouveau

• 4 Avril 2021

• #3

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.

 

Pièces jointes

• Capture1.jpg

  70.2 KB · Affichages: 26

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 4 Avril 2021

• #4

Bonjour le fil

Fais ce test

VB:

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?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 4 Avril 2021

• #5

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\"

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 4 Avril 2021

• #6

Bonjour Ecluse, Staple,
Grillé sur le fil.

Avant Sub AfficheImag(), rajoutez Option explicit.

Ca évite certaines erreurs.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 4 Avril 2021

• #7

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)

 

Vote positif 0 Vote négatif

E

ecluse105

XLDnaute Nouveau

• 4 Avril 2021

• #8

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.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 4 Avril 2021

• #9

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

 

Vote positif 0 Vote négatif

E

ecluse105

XLDnaute Nouveau

• 4 Avril 2021

• #10

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 4 Avril 2021

• #11

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 4 Avril 2021

• #12

Re

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

 

Vote positif 0 Vote négatif