Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

ecluse105

XLDnaute Nouveau
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
 

Pièces jointes

  • Afficher Image.xlsm
    22.6 KB · Affichages: 24

Staple1600

XLDnaute Barbatruc
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
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:

ecluse105

XLDnaute Nouveau
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

Staple1600

XLDnaute Barbatruc
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?
 

ecluse105

XLDnaute Nouveau
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

XLDnaute Barbatruc
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
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…