Discussion :

[Lbg1235]

Bsr chers tous svp je souhaiterais que vous m'aidez, je suis nouveau non seulement sur le forum mais aussi sur vba. En effet j'ai copié un exempl d'un tuto qui affiche lez elments dans une listview, en cliquant sur un elment de la liste view, non seulement les données resortent dans les textbox, mais limage aussi doit safiche dans le panel. J suis a la fin, j mets le chemin apparemment tt fonctionne mais l'image n sort jamais . L chemin n'est pas correct et pourtant j fais la mem chose que sur le tuto.
Jutilise workbook.path

[Lbg1235]

J'utilise la commande

Code :

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

image2.picture=loadpicture(thisworbook.path &"/album/"&combobox1&".jpg")

Alors mon fichier album est sur le bureau et mes images sont a l'intérieur. Hors quand j vais dans le fichier album j fais click droit sur limage, propriété, le chemin des images est : c:\users\phanuel\Desktop\album.
Svp aidez moi a retrouverez le bon chemin.

[Lbg1235]

Jutilise la commande image2.picture=loadpicture(thisworbook.path &"/album/"&combobox1&".jpg")
Alors mon fichier album est sur le bureau et mes images sont a l'intérieur. Hors quand j vais dans le fichier album j fais click droit sur limage, propriété, le chemin des images est : c:\users\phanuel\Desktop\album.
Svp aidez moi a retrouverez le bon chemin.

[Valtrase]

Salut le fil

Un petit Debug.Print t'indiquera le chemin de ton classeur. Pour cela tu dois afficher la fenêtre d'éxécution CTRL+G dans l'IDE.

Code :

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

1
2
 ?thisworkbook.Path
 P:\Programmation\Projects\Projets VBA\Projets personnel\Xtools

[Lbg1235]

Je peux avoir votre mail pour vous envoyez le chemin de mon fichier? Car le chemin est c:\phanuel\desktop\bureau. Hors celui qui a fait le tuto a mis le chemin du bureau juste avec thisworbook.path... il a dit dans son tuto que cela indique déjà le bureau

[Valtrase]

Salut le fil
Hé bé tu remplace tout simplement Thisworkbook.path par ton chemin

Code :

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

Image2.Picture = Loadpicture("c:\users\phanuel\Desktop\album\& Combobox1.Value & ".jpg")

Si dans ton programme tu fais plusieurs accés à ce chemin tu crée alors une constante dans un module

Code :

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

1
2
Option Explicit
Public Const MYFOLDER_FULLPATH = "c:\users\phanuel\Desktop\album\"

Ensuite tu peux utiliser ta constante:

Code :

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

Image2.Picture = Loadpicture(MYFOLDER_FULLPATH & Combobox1.Value & ".jpg")

[Lbg1235]

Bonjour merci pour avoir répondu à ma préoccupation. Mais je viens d'utiliser cette ligne:

Code :

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

1
2
Image2.Picture = 
Loadpicture("c:\users\phanuel\Desktop\album\& Combobox1.Value & ".jpg")

On me dit attendu: séparateur de liste ou)
Net sur le point du format.jpg

[Lbg1235]

Enfin ya une erreur de compilation

[EricDgn]

Bonjour,

Il manque un " après album\

Code :

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

Image2.Picture = Loadpicture("c:\users\phanuel\Desktop\album\" & Combobox1.Value & ".jpg")

Cordialement.

[Valtrase]

Salut le fil
Oui erreur de ma part dans la précipitation , merci Eric d'avoir rectifié.

[Lbg1235]

Bjr valtrase merci beaucoup l'aide que vous mapporté.
Sibpar exemple vous voulez gere une base de données de recultement de personne. Est ce que c'est pas possible de de faire une listview de maniere a ce que quand on clique déçu, le cv de la personne affiche automatiquement sur format pdf et ses infos remonte dans les combobox?
C'est a dire on peut inserrer les infos chaque fois que les gens viennent poster on scanne leur cv et on les insert dans la base a trevers meme un boutton d'insertion . Et quand on veut consulter un profil on clique sur un nom sur lisview et son cv apparaît plus les infos dans les combo. J vois pas les tutos de ce genre sur youtube. On dirait c'est pas faisable

[Valtrase]

Salut le fil,
Beaucoup de choses sont possibles sous VBA pour Excel néanmoins le temps nécessaire pour cette demande est au delà du temps impartis à la programmation en ce moment. Commencez à faire une ébauche , et l'on pourras vous aider si cela coince sur certains points.

Un exemple pour remplir une zone de liste il faut utiliser sa propriété .List, si par exemple nous voulons récupérer les noms et prénoms de contacts dans une zone de liste, on la crée, puis on définit sa propriété .List à l'ouverture du UserForm comme suit :

Code :

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

Me.ListBox1.List = Range("t_Contacts[[Prénom]:[Nom]]").Value

il faut bien entendu que le tableau t_Contact soit sur une feuille. Ne pas oublier non plus de paramétrer les propriétés ColumnCount et BoundColumn de la zone de liste.
Pour récupérer le nom du contact sélectionné il faut utiliser la méthode .Click de la Zone de liste.

Code :

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

1
2
3
Private Sub ListBox1_Click()
    MsgBox "Vous avez cliqué sur le contact " & ListBox1.Value & " " & ListBox1.Column(0)
End Sub

[EricDgn]

Bonjour,

Un exemple de routine qui affiche un pdf dans un composant WebBrowser d'un formulaire:

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub VoirPdf(sFichier As String)
    Dim s As String
    s = Range("DossierPdf") & "\" & sFichier
    If Dir(sFichier) = "" Then
        UserForm1.WebBrowserPdf.Navigate "about:blank"
        MsgBox "Annulé: fichier " & s & " non trouvé!", , "Anomalie"
    Else
        UserForm1.WebBrowserPdf.Navigate "file:///" & Replace(s, "\", "/")
    End If
End Sub

A adapter à votre cas.

Cordialement.

[Lbg1235]

Merci beaucoup pour vos multiples reponses, je crois que j suis sur la voie de la réussite. J plus de pb avec le chemin, là j'ai une erreur 53 fichier introuvable pourtant mon dossier album est belle et bien sur le bureau. Et la sa décourage meme vraiment sa me fatigue

[EricDgn]

Bonjour,

Pour avoir l'adresse exacte de votre dossier Album, cliquez dessus avec le bouton droit et sélectionnez "Propriété". Dans la fenêtre le champ "Emplacement" vous donne l'adresse, sans doute du genre C:\Users\votrenom\Desktop.

Cordialement.

[Lbg1235]

J'ai fait ca mais le comble c'est que sa n passe pas, quand tu regardes le chemin cest exactement le chemin que jai pris sur propriété du dossier album. Du coup sa decourage j sais mme plus ou appuyer parce que c'est le vrai chemin enfaite

[Lbg1235]

J'ai fais sa mais rien, du coup sa me décourage j sais plus où appuyer, car le chemin propriété est belle et bien juste.

[EricDgn]

Bonjour,

Le plus simple est sans doute
- de créer une nouveau dossier C:\Album,
- de copier les fichiers pdf dans ce nouveau dossier
- réessayer en ayant adapté le chemin dans le code VBA.

Cordialement.

[Lbg1235]

Bonsoir eric,

Code :

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

("c:\ALBUM" & Combobox1.Value & ".jpg")

Réadapter comme cela tu dis eric?
Donc je copie le fichier et je vais le coller sur le disque C avec le system c'est cela?

[Valtrase]

Salut le fil
Bon il faut quand même connaître le béaba de la programmation si tu ne veux pas passer des heures sur un simple chemin
Allez on démarre :

• Premièrement tu sélectionnes cette ligne Image1.Image = LoadPicture("c:\Album\" & ComboBox1.Value & ".jpg") et tu cliques sur F9 cela va mettre un point d'arrêt sur la ligne.
• Ensuite tu sélectionnes ComboBox1.Value et tu fait SHIFT +F9 puis Ajouter
• Ensuite tu affiches la fenêtre Espions Menu Affichage/Fenêtre espions.
• Pour copier le chemin du fichier, dans l'explorateur tu fais Maj + Click droit sur le fichier et tu sélectionnes copier en tant que chemin, attention cela ajoute systématiquement les guillemets.

Tu peux maintenant lancer la procédure, le code va s'arrêter sur la ligne et là tu pourras voir la valeur des variables.
J'ai remarqué qu'il manquait l'antislash après Album, et que tu ne pointe pas sur le bureau, cela ne peux pas fonctionner ainsi.