afficher un fichier pdf dans un controls

**Mr l'Ashanti** · 07/09/2018, 13h47

bonjour forum
je cherche un moyen d'afficher sur l'userform des fichiers au format pdf chargé depuis le dossier des élèves(extrait de naissance des élèves) en cliquant sur un commandbutton comme pour les images et apres créer un bouton pour l'impression si il y a un bésoin.
j'ai vu dans les controls supplémentaires le control acro reader mais quand je l'installe un message s'affiche: élément introuvable et pourtant j'ai installé la dernière version acrobat reader
une aide svp...

**kiki29** · 08/09/2018, 02h34

Salut, à toi de voir parmi ces fichiers, certains contiennent un lien vers un téléchargement possible :

**Mr l'Ashanti** · 08/09/2018, 09h17

bjr merci. j'ai suivi votre explication et ca marche.
avant de fermer cette discussion pouvez m'expliquer le role des checkbox? et le bouton nommé" ouvrir"?

**kiki29** · 08/09/2018, 10h15

Salut,
Récursif : La recherche des pdf se fait également dans tous les dossiers/sous dossiers inclus dans le dossier Racine sélectionné via "Sélection Dossier". Ce n'est pas le cas si Récursif est décoché, la recherche des pdf se limitera alors aux fichiers contenus dans le dossier Racine.
Ouvrir : Affiche via Acrobat Reader le pdf sélectionné dans la liste.

Pour changer la valeur par défaut ( cochée ) de Récursif modifier le code dans UserForm1 comme ci-dessous en y ajoutant

Code :

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

        .Value = False

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub UserForm_Initialize()
	.....
    With chkRecur
        .Left = CommandButton2.Left + CommandButton2.Width + 5
        .Top = UserForm1.Height - 68
        .Width = 75
        .Height = 25
        .Value = False
    End With
	.....

**Mr l'Ashanti** · 08/09/2018, 10h19

merci cordialement

**Mr l'Ashanti** · 08/09/2018, 10h28

je reviens encore

j'ai un userform de 3 pages et je souhaiterais lier chaque élève à son extrait de naissance comme dans le cas des images.
j'aimerais savoir si cela est possible? et comment m'y prendre

**kiki29** · 08/09/2018, 10h48

Salut, concernant la fusion de PDFs, via Acrobat / PDFCreator 1.7.3, à voir suivant les outils dont tu disposes :

Cette liste permet en principe de naviguer dans le bazar
Liste des contributions et téléchargements

Téléchargements :

**Mr l'Ashanti** · 08/09/2018, 11h04

merci pour ces lien mais hélas je ne trouve pas la correspondance.
je me réexplique:
j'ai une base de données dans laquelle j'ai inséré des colonnes ("","", dossier photo, dossier extrait de naissance) . le cas de la photo: lors de l'enregistrement des élèves le dossier dans lequel la photo a été choisie se charge dans la base de donnée devant le nom de l'élève. dans le cas d'une nouvelle recherche sur l'élève lorsque je clique sur le bouton afficher, les references de l'élève et sa photo apparaissent sur le formulaire.
ceci etant , je voudrais faire pareil pour les pdf: créé un bouton qui va parcourir le dossier comme dans votre exemple et lors de l'enregistrement le nom du dossier se stock dans la base et comme dans le cas des photos mentionné plus haut dans la colonne " dossier extrait de naissance"
je pense etre un peu clair dans mon explication.merci

**Mr l'Ashanti** · 08/09/2018, 11h37

j'ai trouvé ce code avec un parallèle avec le code image.

Code :

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

1
2
3
4
5
FileToOpen = Application _
.GetOpenFilename("Fichiers PDF (*.pdf), *.pdf", 1, "Rechercher...")
If FileToOpen = False Then
Exit Sub
End If

j'arrive à ouvrir le dossier, et choisir. mais quand je clque sur ouvrir rien ne se passe. je sais c'est normal car je n'ai pas de controls permettant d'ouvrir le fichier, donc comment faire pour associer ce code au textbox et à web browser pour le cas de l'enregistrement et l'afficher pour d'eventuelles consultations

**Mr l'Ashanti** · 08/09/2018, 11h58

j'ai trouvé une piste . j'arrive maintenant à enregistrer avec le textbox chargé. voici le code

Code :

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

1
2
3
4
5
6
7
nf = Application.GetOpenFilename("Fichiers PDF (*.pdf), *.pdf", 1, "Rechercher...")
     If Not nf = False Then
       Me.T_dossier_extrait = nf
      ' Me.WebBrowser1.Picture = LoadPicture(nf)
     End If
 
     Application.ScreenUpdating = True

vous avez vu que j'ai mis

Code :

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

Me.WebBrowser1.Picture = LoadPicture(nf)

en commentaire. comment faire pour afficher ça dans le web browser?

afficher un fichier pdf dans un controls [XL-2016]

Macros et VBA Excel

Discussions similaires

Partager

Partager