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.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
Private Sub Combobox1_Change()
If ComboBox1.ListIndex <> -1 Then
    Lg = ComboBox1.ListIndex + 2
    For i = 2 To 8
        Controls("textbox" & i) = Sheets("feuil1").Cells(Lg, i)
    Next i
End If
Creer_img
End Sub
 
Private Sub CommandButton1_Click() ' effacer
Raz
End Sub
 
Private Sub CommandButton2_Click() ' supprimer
If MsgBox("etes vous sur de vouloir supprimer cette données?", vbYesNo, "demande de confirmation") = vbYes Then
    Sheets("feuil1").ListObjects(1).ListRows(ComboBox1.ListIndex + 1).Delete
End If
Raz
UserForm_Initialize
End Sub
 
Private Sub CommandButton3_Click() 'modifier
For i = 2 To 8
    If ComboBox1.ListIndex <> -1 Then
        Lg = ComboBox1.ListIndex + 2
        Sheets("feuil1").Cells(Lg, i).Value = Controls("textbox" & i)
    End If
Next i
Raz
UserForm_Initialize
End Sub
 
Private Sub CommandButton4_Click() ' valider
Dim tbl As ListObject
If MsgBox("voulez-vous enregistrer dans la base de donnée?", vbYesNo) = vbYes Then
    Set tbl = Sheets("feuil1").ListObjects(1)
    Set D = tbl.ListRows.Add.Range(1)
    With D
        For i = 1 To 7
            .Cells(1, i).Value = Controls("textbox" & i).Value
        Next i
    End With
End If
Raz
UserForm_Initialize
End Sub
 
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
Lg = ListView1.SelectedItem.Index
TextBox1 = ListView1.SelectedItem.Text
For i = 1 To 7
    Controls("textbox" & i + 1) = ListView1.ListItems(Lg).ListSubItems(i).Text
    ComboBox1.Value = ListView1.ListItems(Lg)
Next i
Creer_img
End Sub
 
Private Sub UserForm_Initialize()
Dim D As Range
affiche_listV
With Sheets("feuil1")
    For Each D In .Range("A2:A" & .Range("A65000").End(xlUp).Row)
        ComboBox1.AddItem D.Offset(, 0).Value
    Next D
End With
End Sub
 
Sub Raz()
For i = 1 To 8
    Controls("textbox" & i) = ""
Next i
ComboBox1 = ""
Image2.Picture = LoadPicture("")
End Sub
 
Sub Creer_img()
On Error Resume Next
Image2.Picture = LoadPicture("C:\Users\Phanuel\Desktop\ALBUM\" & ComboBox1 & ".JPG")
If Err <> 0 Then
    Image2.Picture = LoadPicture("")
End If
End Sub

Dans ce code j'ai un problème de chemin, un problème sur le boutton4 notamment sur

Code:

Set tbl= sheets("feuil1").listobjects

on me dit

Citation:

l'indice n'appartient pas à la sélection.

Puis sur le boutton 2

Code:

Sheets("feuil1").listobjects(1)listrows(combobox1.listindex+ 1).delete

on me dit la même chose

MODULES

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Option Explicit
Public Lg As Long, i As Integer, C As Variant, Lst As ListItem
 
Sub Tbl_Accueil()
With Sheets("feuil1")
	C = .Range("A1:H" & .Range("A65000").End(xlUp).Row).Value
End With
End Sub
 
Sub affiche_listV()
Tbl_Accueil
With UserForm1.ListView1
	.ListItems.Clear
	With .ColumnHeaders
		.Clear
		.Add , , "code", 30
		.Add , , "nom", 120
		.Add , , "profession", 80
		.Add , , "naissance", 80
		.Add , , "contacts", 80
		.Add , , "nationalite", 80
		.Add , , "village", 80
		.Add , , "formation", 80
	End With
	.Gridlines = True
	.BorderStyle = ccFixedSingle
	.FullRowSelect = True
	.View = lvwReport
	For Lg = 2 To UBound(C)
		Set Lst = .ListItems.Add(, , C(Lg, 1))
		With Lst
			.ListSubItems.Add , , C(Lg, 2)
			For i = 3 To 8
				.ListSubItems.Add , , C(Lg, i)
			Next i
			C(Lg, 4) = Format(C(Lg, 4), "dd/mm/yyyy")
		End With
	Next Lg
End With
End Sub
 
Sub affiche_usf()
UserForm1.Show
End Sub

Merci de m'aider si vous pouvez je vous en pris.

06/09/2022, 22h36
EricDgn

Bonjour,

Ces 2 erreurs proviennent vraisemblablement du fait qu'il n'y a pas de tableau (de ListObject) dans votre Feuil1.

Cordialement.
06/09/2022, 23h30
Lbg1235

Merci beaucoup pour ton aide eric j viens de mettre le tableau et sa marché vraiment merci. A cause de cette erreur jai fait 2 semaines déçu.
06/09/2022, 23h32
Lbg1235

La il me manque maintenant le chemin de mes images pour finir le projet. On dit tjrs fichier introuvable.
J debute la programmation en vba et c'est erreurs sont pour moi capitale car c'est une expérience que j suis entrain de vivre j connais deja les mefaits

Bonjour,

Essayer ceci:

Code:

1
2
3
4
5
6
7
8
9
Sub Creer_img()
    Dim sFichier As String
    sFichier = "C:\Users\Phanuel\Desktop\ALBUM\" & ComboBox1 & ".JPG"
    If Dir(sFichier) = "" Then
        MsgBox "Fichier " & sFichier & " non trouvé! Nom ok? Dossier ok?", , "Anomalie"
        sFichier = ""
    End If
    Image2.Picture = LoadPicture(sFichier)
End Sub

Cordialement.

07/09/2022, 00h28
Lbg1235

Ok d'accord j'essaie tout de suite
07/09/2022, 00h52
Lbg1235

J viens juste d'essayer ca m'affiche une fenêtre qui est ecris
fichier c:\users\phanuel\Desktop\album\ et sa sélectionne le numero du fichier.jpg non trouvé nom ok dossier ok.
Je crois qu'on est sur la bonne voie, mais un truc cloche encore.
07/09/2022, 00h54
Lbg1235

Mais donc on dirait le pb c'est limage, vu que sa trouve quand meme me nom de l'image.
07/09/2022, 00h55
Lbg1235

Oubien

Bonjour,

Faire ce test:
- placer une copie d'un fichier image dans le même dossier que celui où se trouve le fichier Excel
- changer le code en:
Code:

1 2 3 4 5 6 7 8 9 Sub Creer_img() Dim sFichier As String sFichier = ThisWorkbook.Path & "\" & ComboBox1 & ".JPG" If Dir(sFichier) = "" Then MsgBox "Fichier " & sFichier & " non trouvé! Nom ok? Dossier ok?", , "Anomalie" sFichier = "" End If Image2.Picture = LoadPicture(sFichier) End Sub
- appelez ce fichier image à l'aide de votre application et voir ce que cela donne.

Attention qu'il y a des fichiers .jpg et .jpeg

Cordialement.

07/09/2022, 12h48
Lbg1235

Bjr Eric donc c que j'ai compris c'est que j copie un des mes images qji sont dans le fichier album, ensuite je la copie dans le bureau et j renomme par la suite. Au lieu de 1.jpg , je mettrai image tout court?
Enfin c'est comme sa que jai compris l msg.
Oubien j vais dans le code jecris image quel part?
07/09/2022, 13h07
Lbg1235

Ha d'accord désolé j viens de faire c que vous avez dis mais en vin. Javais mal compris suis appelé appelé limage copier 1.jpg dans l'application on maffiche le mm msg .
... 1.jpg non trouvé ! Etc...
07/09/2022, 13h08
Lbg1235

Je sais pas pourquoi sa n'affiche pas et pourtant sa trouve le nom de limage hein, maks l'image naffiche pas, c c qui est épatant
07/09/2022, 13h10
Lbg1235

Pourtant mes images je les ai renommés de 1.jpg jusqu'à 30.jpg donc j'ai 30 images
07/09/2022, 13h48
Lbg1235

Eric merci infiniment j viens de tester comme tu as dis sa vient marcher. La j vais essayer de mettre dabord d'autres images pour voir. Merci bien
07/09/2022, 13h53
EricDgn

1 pièce(s) jointe(s)

En attaché, un exemple simple. Extraire tout dans un même dossier et ouvrez le fichier Photos.xlsm

Cordialement.
07/09/2022, 13h55
Lbg1235

Mes images la sont des cv que jai mi en format jpg. Mais apparemment saffiche déjà . Je demandais si je peux aussi ajouter acroPDF pour que cela m'affiche un pdf chaque aussi en meme temps que les images svp merci
07/09/2022, 13h58
Lbg1235

Désolé erreur de vitesse lié à la joie. J disais esk c'est possible deja dajouter acro pdf aussi pour que cela m'affiche aussi les cv à-côté chaque fois que j click?et limage et le cv affiche? Ya til une commande associé avec mon code?

1 pièce(s) jointe(s)

Pour cela, il faut ajouter un contrôle WebBrowser dans le formulaire et indiquer l'adresse du fichier à charger avec l'instruction .Navigate2
Un exemple:

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(s) = "" Then
        UserForm2.WebBrowserPdf.Navigate "about:blank"
        MsgBox "Annulé: fichier " & s & " non trouvé!", , "Anomalie"
    Else
        UserForm2.WebBrowserPdf.Navigate2 s
    End If
End Sub

Cordialement.

07/09/2022, 15h56
Lbg1235

Donc eric si je comprends bien je créé un autre formulaire et à l'intérieur je prends la fonction webrowser et j'ouvre le formulaire je mets le code dedans ? Ou bien c'est le même formulaire auquel j'ajoute webrowser dans ce même formulaire je mets le code dedans puis c'est tout ou bien?

Userform2 représente quel formulaire ? Parce que je n'ai qu'un seul formulaire. Mon webBRowser je viens de le mettre sur mon userform1.

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