Discussion :

[jérémyp8]

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

[carden752]

Bonjour,

Pour la date de création du fichier Word, il s'agit de la propriété suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

wdoc.BuiltInDocumentProperties("Creation Date").Value

Pour la date de dernier enregistrement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

wdoc.BuiltInDocumentProperties("Last Save Time").Value

[jérémyp8]

Re carden752

Merci beaucoup....ça marche bien

[jérémyp8]

Re

il reste une petite chose a faire si c-est possible

J'ai deux questions

1. Es ce qu'on peut avoir que la date sans l'heure de création te de modification

2. Es ce que je peux avoir le format de date sans le séparateur ("/") comme un nombre par exemple (13012013) au lieu de (13/01/2013) ?

Car je compte apres faire une comparaison sur ces date et je pense qu'e le format date (jjmmaaaa) est plus adapter a la comparaison plus précise qu'avec le format avec le separateur "/"


Merci