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

[aurelambri]

Bonjour à tous,

Voilà j'ai un tableau d'archive avec nom du carton, les date d'ouverture et de fermeture et leur emplacement dans le magasin.

Maintenant ce que j'aimerai c'est que lorsque je rentre dans ma cellule I4 mon nom de fichier (exemple 8110000#1) et que, derrière je clique mon bouton recherche lot, le système aille dans le répertoir indiqué sur le réseau pour cherche ce fichier PDF (celui renseigné en I4) et me ressorte la date de modification du PDF dans la cellule I12.

Je ne sais pas si j'ai été assez clair.

Cela parrait facil mais je bloque car je ne connais plus trop le VBA.

Merci d'avance

Aurélien

 

[camarchepas]

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")

 

[aurelambri]

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

 

[camarchepas]

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")

 

[aurelambri]

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 🙂

 

[aurelambri]

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

 

[camarchepas]

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

 

[aurelambri]

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

Sa fonctionne merci beaucoup 🙂