Chemin dun pdf ou image en vba

Version imprimable

Voir 40 message(s) de cette discussion en une page

31/08/2022, 23h10
Lbg1235

Chemin dun pdf ou image en vba

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
31/08/2022, 23h30
Lbg1235

Vba

J'utilise la commande

Code:

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.
01/09/2022, 00h05
Lbg1235

Chemin de limage

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.
02/09/2022, 20h12
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:

1 2 ?thisworkbook.Path P:\Programmation\Projects\Projets VBA\Projets personnel\Xtools
02/09/2022, 20h45
Lbg1235

Chemin

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
03/09/2022, 13h22
Valtrase
Salut le fil
Hé bé tu remplace tout simplement Thisworkbook.path par ton chemin

Code:

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:

1 2 Option Explicit Public Const MYFOLDER_FULLPATH = "c:\users\phanuel\Desktop\album\"
Ensuite tu peux utiliser ta constante:

Code:

Image2.Picture = Loadpicture(MYFOLDER_FULLPATH & Combobox1.Value & ".jpg")
03/09/2022, 14h10
Lbg1235

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

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
03/09/2022, 14h16
Lbg1235

Affichage d'images

Enfin ya une erreur de compilation
03/09/2022, 15h16
EricDgn

Bonjour,

Il manque un " après album\

Code:

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

Cordialement.
03/09/2022, 16h37
Valtrase

Salut le fil
Oui erreur de ma part dans la précipitation :lol:, merci Eric d'avoir rectifié.
04/09/2022, 07h01
Lbg1235

Affichage du pdf sur listview

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
04/09/2022, 15h13
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:

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:

1 2 3 Private Sub ListBox1_Click() MsgBox "Vous avez cliqué sur le contact " & ListBox1.Value & " " & ListBox1.Column(0) End Sub
https://www.developpez.net/forums/im...AAAElFTkSuQmCC

1 pièce(s) jointe(s)

Bonjour,

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

Code:

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.

05/09/2022, 11h49
Lbg1235

Fichier introuvable

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
05/09/2022, 14h02
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.
05/09/2022, 15h18
Lbg1235

Chemi du fichier

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
05/09/2022, 15h22
Lbg1235

Fichier introuvable

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.
05/09/2022, 15h49
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.
05/09/2022, 16h37
Lbg1235

Bonsoir eric,

Code:

("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?
05/09/2022, 19h39
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.

Voir 40 message(s) de cette discussion en une page