Récupération de date de modification d'un fichier PDF

camarchepas

XLDnaute Barbatruc

• 25 Novembre 2014

• #2

Re : Récupération de date de modification d'un fichier PDF

Bonjour,

Quelque chose comme cela :

Bien sur , il faut régler le chemin pour ton cas ., et si tu ajoutes l'extension .PDF au nom de ton fichier, il faudra enlever la concatenation,

Dim DateModifFichier As Date, Fichier as string
Fichier = "\\STOCK\LOTS\" & range("I4") & ".pdf"
DateModifFichier = FileDateTime(Fichier)
range("I12") = Format(DateModifFichier, "DD-MM-YYYY")

 

Vote positif 0 Vote négatif

A

aurelambri

XLDnaute Nouveau

• 25 Novembre 2014

• #3

Re : Récupération de date de modification d'un fichier PDF

Merci pour la réponse rapide.

Cependant j'ai encore un soucis lorsque je clique sur mon bouton, la ligne "DateModifFichier = FileDateTime(Fichier)" bloque et donc ne va pas me chercher mon fichier ?!

Voici le code que j'ai fait :

Sub recherche_lot_dans_certificat()


Dim DateModifFichier As Date, Fichier As String
Fichier = "\\P:\Scans\Logistics\Certificats\" & Range("I4") & ".pdf"
DateModifFichier = FileDateTime(Fichier)
Range("I12") = Format(DateModifFichier, "DD-MM-YYYY")

End Sub

 

Dernière édition: 25 Novembre 2014

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 25 Novembre 2014

• #4

Re : Récupération de date de modification d'un fichier PDF

Ok,
ajoutes derriere :

Dim DateModifFichier As Date, Fichier As String
Fichier = "\\P:\Scans\Logistics\Certificats\" & Range("I4") & ".pdf"

'afin de visualiser le contenu de fichier :

msgbox fichier

et dis moi . ( Peut être le range est vide , car pas dans la bonne feuille : Peut être à préciser la feuille :Sheets("Feuil1").range("I4")

 

Vote positif 0 Vote négatif

A

aurelambri

XLDnaute Nouveau

• 25 Novembre 2014

• #5

Re : Récupération de date de modification d'un fichier PDF

hum j'ai trouver d'ou vient mon problème : je ne passais pas par le bon chemin pour mon fichier.

j'ai donc remplacer le \\P:\Scans\Logistics\Certificats\" & Range("I4") & ".pdf"

Par P:\Scans\Logistics\Certificats\" & Range("I4") & ".pdf"

et maintenant tout fonctionne.

Merci a toi pour ton aide 🙂

 

Vote positif 0 Vote négatif

A

aurelambri

XLDnaute Nouveau

• 26 Novembre 2014

• #6

Re : Récupération de date de modification d'un fichier PDF

j'aimerai un nouveau renseignement si cela est possible.

J'aimerai que lorsque le fichier est introuvable, une msgbox me dise que le fichier n'existe pas et donc que la macro s'arrête. Mais sinon si le fichier existe alors on recupère la date etc comme a l'heure actuelle

Merci d'avance

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 26 Novembre 2014

• #7

Re : Récupération de date de modification d'un fichier PDF

Sub recherche_lot_dans_certificat()


Dim DateModifFichier As Date, Fichier As String
Fichier = "P:\Scans\Logistics\Certificats\" & Range("I4") & ".pdf"

On Error Resume Next
DateModifFichier = FileDateTime(Fichier)
If Err.Number > 0 Then MsgBox "Fichier non trouvé": Exit Sub
On Error GoTo 0

Range("I12") = Format(DateModifFichier, "DD-MM-YYYY")

End Sub

 

Vote positif 0 Vote négatif

A

aurelambri

XLDnaute Nouveau

• 26 Novembre 2014

• #8

Re : Récupération de date de modification d'un fichier PDF

Sa fonctionne merci beaucoup 🙂

 

Vote positif 0 Vote négatif