Code VBA pour insérer la date de modification de fichier A dans fichier B
Bonjour à tous !
Pas trouvé grand chose de clair sur ce sujet ni ici ni sur la toile...
Je voudrais savoir le code VBA que je dois entrer dans mon module pour que :
la date de dernière modification du fichier fichierA.CSV
qui se trouve à l'adresse
soit notée dans le fichierB.xlsm qui contient ma macro,
Dans la feuille Feuille1
Dans la cellule A1.
Sauriez vous me dire ça ?
J'avais essayé ça mais ça déconne...
[size=85]Dim DateModifFichier As Date
DateModifFichier = FileDateTime("//adresse/fichierA.CSV")
DateModifFichier = Format(DateModifFichier, "DD-MM-YYYY")
Rows("1:1").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A1") = DateModifFichier[/size]
Merci d'avance !
Père Seval
Bonjour Père Seval,
peut être que tu trouveras ta solution avec BuiltinDocumentProperties
Cells(1, 1) = ActiveWorkbook.BuiltinDocumentProperties(12).Valuehttps://docs.microsoft.com/en-us/office/vba/api/excel.workbook.builtindocumentproperties
Bonsoir,
chez moi le code fonctionne bien.
Par contre j'ai mis des "\" en lieu et place de vos "/"...
Sinon pour plus de sécurité avec les transfert de date entre VBA et Excel vous pouvez utiliser CDate()
Range("A1") = CDate(DateModifFichier)@ bientôt
LouReeD
Bonjour Père Seval,
peut être que tu trouveras ta solution avec BuiltinDocumentProperties
Cells(1, 1) = ActiveWorkbook.BuiltinDocumentProperties(12).Value
Hello ! Je n'ai repris le sujet qu'aujourd'hui, nacvré pour le délai.
Mon souci avec Builtindocumentproperties c'est que le code VBA ne me trouve des valeurs que pour les propriétés :
3 Author : Moi
7 Last author : Moi
9 Application name : Microsoft Excel
Pour la 12 "Last save time" ça reste blanc.
Bonjour,
Par contre j'ai mis des "\" en lieu et place de vos "/"...
Avez vous essayé ?
@ bientôt
LouReeD