Discussion :

[HASSAN.NAQY]

Bonjour,
J'ai prévu un champ dans une table qui recoit le lien hypertexte vers un PDF.
La saisi un par un à partir d'un formulaire marche trés bien, mais s'agissant de plusieurs PDF dont le chemin est( E:\SGBD\Nom du fichier.pdf ) je cherche comment importer le tout en une seule fois vers la table.
Merci.

[Zekraoui_Jakani]

Vous pouvez écrire un code qui boucle sur la liste des pdf à ouvrir:

Code :

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

1
2
3
4
5
6
7
8
dim strInput as string
Dim k As Integer
 
for k = 1 to NbrOfPDFfiles
     strInput = "fichierName_" & k & ".pdf"
     Application.FollowHyperlink TonCheminDeRépertoire & "\" & strInput, , True
     ' ceci fonctionnera si NbrOfPDFfiles est constant, autrement voir solution plus bas!
next k

si NbrOfPDFfiles est variable, alors il y a une solution générique:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub LoopThroughFiles ()
 
Dim oFSO As Object
Dim oFolder As Object
Dim oFile As Object
 
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder("C:\VBA Folder")   '"C:\VBA Folder" doit être remplacé par ton propre répertoire
 
For Each oFile In oFolder.Files
    if oFile.Name Like "*" & ".pdf" then
        Application.FollowHyperlink TonCheminDeRépertoire & "\" & oFile.Name, , True
    end if
    k = k + 1
Next oFile
 
End Sub

!!! Solution NON testée !!!