Extraire la Date de création et de Modif d'un Doc Word
Bonjour,
J'ai une macro qui m'extrait des données (du texte) des fichiers Words qui se trouvent dans un dossier vers un fichier Excel
J'extrais aussi le nom de chaque de ces fichiers Word vers une cellule Excel
Ce que je veux extraire aussi :
La date de création de chaque fichier Word
La date de la derniere modification de chaque fichier Word
Voila le bout de ma macro
Code:
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
30
31
32
33
34
35
| Sub ImportWord()
'-------Déclaration des variables------------
Dim wb As Workbook 'classeur Excel dans lequel on importe les données
Dim ws As Worksheet 'onglet Excel dans lequel on importe les données
Dim sChemin As String 'répertoire contenant les fichiers Word
Dim sNomFichier As String 'nom du fichier Word
Dim WApp As Object, WDoc As Object, WSel As Object
Dim i As Integer, j As Integer
Dim WTable As Word.Table
'-------- Initialisation des variables-------------------
Set wb = ThisWorkbook
Set ws = wb.Sheets(1) 'On sauvegarde dans Elements d'obsolescence")
'Pour ouvrir tous les fichiers .doc*. 1er fichier.
sNomFichier = Dir(sChemin & "*.doc*")
'Pour créer un objet Word
Set WApp = CreateObject("Word.Application")
WApp.Visible = True
Application.ScreenUpdating = False
'------------------------------------------------
'----------Boucle sur les fichiers------------------
Do While Len(sNomFichier) > 0
Set WDoc = WApp.Documents.Open(sChemin & sNomFichier) 'Ouvre le document Word
Application.StatusBar = "Écriture ligne " & i 'Message dans Excel pour voir la progression
'------------------------------------------------------------------------
'******' Nom du Projet (fichier) ******
ws.Cells(i, 1) = sNomFichier
WDoc.Close False 'Fermer le document Word sans enregistrer
sNomFichier = Dir 'Prochain document
Loop |
