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 : 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
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