Autres recherche un pdf à partir d'une date

pascal21

XLDnaute Barbatruc
bonjour à tous
j'ai un classeur de pointages qui crée une sauvegarde en pdf avec le contenu d'une cellule contenant la date
ce pdf se nomme par exemple: vendredi 14 juin 2019 N° 54
54 étant le 54eme document
ces pdf se rangent dans le meme dossier que l'application qui le crée
exemple: C:\Users\Utilisateur\Dropbox\Documents Pascal\Pointages jours\année 2019\Juin 2019
comment faire pour q'un cliquant sur la cellule contenant la date du 14/06/2019 (par exemple) le fichier recherché s'ouvre
les dates se trouvent dans la colonne C
merci de votre aide
 

pascal21

XLDnaute Barbatruc
je viens de faire un essai avec la création d'un lien hypertexte c'est un peu lourd mais ça peut fonctionner
je vous mets une copie du code qui permet d'aller chercher un pdf
donc dans la cellule c118 j'ai la date du lundi 3 juin 2019
le pdf cherché se nomme lundi 3 juin 2019 N° 59
VB:
    Range("C1182").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "année%202019\Juin%202019\lundi%2003%20juin%202019%20%20%20n°%2059.pdf"
ce qu'il faudrait c'est que la partie du code
Code:
lundi%2003%20juin%202019%20%20%20n°%2059.pdf
se fasse de manière automatique (variable?) jamais été à l'aise avac ça
à partir de ça comment faire?
merci
 

job75

XLDnaute Barbatruc
Bonjour pascal21,

Il peut y avoir plusieurs fichiers PDF pour une même date.

Cette macro permet de tous les ouvrir dans la même fenêtre :
VB:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [C:C]) Is Nothing Or Not IsDate(Target(1)) Then Exit Sub
Dim chemin$, fichier$
Cancel = True
chemin = ThisWorkbook.Path & "\"
fichier = Dir(chemin & Format(Target, "dddd d mmmm yyyy") & "*.pdf")
If fichier = "" Then MsgBox "Fichier PDF inexistant pour cette date...": Exit Sub
While fichier <> ""
    ThisWorkbook.FollowHyperlink chemin & fichier
    fichier = Dir
Wend
End Sub
Dans la fenêtre Adobe Acrobat Reader aller dans le menu Fenêtre pour choisir l'affichage.

Fichiers joints, à placer dans le même dossier.

A+
 

Pièces jointes

  • Recherche PDF(1).xlsm
    19.3 KB · Affichages: 5
  • lundi 3 juin 2019 N° 59.pdf
    360.8 KB · Affichages: 2
  • lundi 3 juin 2019 N° 60.pdf
    360.8 KB · Affichages: 2

Discussions similaires

Réponses
16
Affichages
1 K

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof