Discussion :

[Apoulit]

Bonjour,
je voudrais ouvrir un fichier pdf j'utilise ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub btnLien_Click()
dim id As long
Dim nomdossier As String
On Error Resume Next
 
id = Me.IDabonne
' nomdossier = "F:\cours-scolaire\ & id &_xxxxx.pdf"
 
nomdossier = "F:\cours-scolaire\1_xxxxx.pdf"
Application.FollowHyperlink nomdossier
 
 
End Sub

J'ai des pdf qui doivent être formatés avec un code correspondant à un établissement scolaire situé dans un champ ID qui correspond à ma clé primaire en fait.
c 'est à dire qu'un formulaire nommé 300_xxxxxx.pdf ouvert depuis la fiche établissement qui a comme point commun l' ID, ID=300 m'ouvre bien ce fichier...le problème c'est que le xxxx est différent pour chaque fichier par contre le nombre devant le trait bas est unique dans le dossier comment ouvrir le bon fichier ?

Merci.

[nico84]

Bonjour,

Si je comprends bien il faut trouver le nom complet du pdf qui commence par 300 (dans cet exemple)

Je ne vois pas d'autre solution que d'exporter le contenu du répertoire dans un fichier texte et de le lire. J'ai fait cela il y a longtemps et ça avait marché, c'était la commande suivante (à adapter) :

Code :

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

Shell "cmd /k dir F:\cours-scolaire\300*.pdf > F:\cours-scolaire\dir.txt"

Normalement le fichier dir.txt contient le nom recherché

Longue vie au MS-DOS

[Apoulit]

Bonjour,
merci nico !