Discussion :

[EIDER]

Bonjour,
J'aimerai pouvoir récupérer en vba dans une table dans 2 champs, les noms et dates de fichiers .pdf contenus dans un doissier sur C: pour traitement dans ma base....je n'ai pas réussi par mes propres moyens faut dire que je ne suis pas très doué...

[LedZeppII]

Bonsoir,

un exemple vite fait avec une table tblFichierPdf (Nom, DateHeure)

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
18
19
20
21
22
23
24
25
26
27
Dim strFolder As String, strFile As String
Dim db As DAO.Database, rs As DAO.Recordset
 
strFolder = "C:\Mes Documents\Documentation"
 
Set db = CurrentDb()
' Vider la table tblFichierPdf
db.Execute "DELETE FROM tblFichierPdf"
 
Set rs = db.OpenRecordset("tblFichierPdf")
 
'Initialiser recherche
strFile = Dir(strFolder & "\*.pdf", vbNormal)
 
' Tant qu'il y a des résultats
Do While Len(strFile) > 0
   ' sauver le nom et la date de dernière modif du fichier
   ' dans la table 
   rs.AddNew
   rs.Fields("Nom") = strFolder & "\" & strFile
   rs.Fields("DateHeure") = FileDateTime(strFolder & "\" & strFile)
   rs.Update
   ' Fichier suivant
   strFile = Dir()
Loop
 
rs.Close

A+

[Sisso]

Bonjour, J'ai regardé cela. Mais en fait il faut créer une procédure dans un module et appeler cette procédure ou le module depuis un bouton . C'est cela ? Comment faire l'appel et comment déclarer la procédure ?
Aurais-tu un exemple ?

Merci

[LedZeppII]

Bonjour,

Oui il faut mettre le code dans une procédure.

Pour créer la procédure dans un module de code :
Aller dans l'éditeur Visual Basic (Alt+F11).

S'il n'y a pas de modules de code existant, en insérer un nouveau.
Créer une procédure (CollecterFichiersPdf par exemple) , dans le nouveau module ou dans un module existant, en tapant ...

Code :

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

Sub CollecterFichiersPdf

Après appuie sur la touche Entrée on obtient

Code :

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

1
2
3
Sub CollecterFichiersPdf()
 
End Sub

La procédure est délimitée par Sub (1ère ligne) et End Sub (dernière ligne)
Tout ce qui est entre ces deux lignes constitue le code de la procédure CollecterFichiersPdf.
Ensuite il faut copier et coller le code entre la première et la dernière ligne de la procédure.

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
18
19
20
21
22
23
24
25
26
27
28
29
Sub CollecterFichiersPdf()
Dim strFolder As String, strFile As String
Dim db As DAO.Database, rs As DAO.Recordset
 
strFolder = "C:\Mes Documents\Documentation"
 
Set db = CurrentDb()
' Vider la table tblFichierPdf
db.Execute "DELETE FROM tblFichierPdf"
 
Set rs = db.OpenRecordset("tblFichierPdf")
 
'Initialiser recherche
strFile = Dir(strFolder & "\*.pdf", vbNormal)
 
' Tant qu'il y a des résultats
Do While Len(strFile) > 0
   ' sauver le nom et la date de dernière modif du fichier
   ' dans la table 
   rs.AddNew
   rs.Fields("Nom") = strFolder & "\" & strFile
   rs.Fields("DateHeure") = FileDateTime(strFolder & "\" & strFile)
   rs.Update
   ' Fichier suivant
   strFile = Dir()
Loop
 
rs.Close
End Sub

Maintenant pour exécuter la procédure à partir d'un bouton.
Créer un nouveau bouton.
Ne pas utiliser l'assistant.
Afficher les propriétés du bouton et aller dans l'onglet "évenement"
En face de "Sur clic" sélectionner "procédure événementielle" et cliquer sur le bouton [...]
On obtient une procédure ...

Code :

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

1
2
3
Sub NomDuBouton_OnClick()
 
End Sub

Maintenant il n'y a plus qu'à mettre l'appel à la procédure CollecterFichiersPdf

Code :

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

1
2
3
Sub NomDuBouton_OnClick()
CollecterFichiersPdf     ' appel de la procédure CollecterFichiersPdf
End Sub

A+