comptage de document word sur excel

[Dgé]

bonjour à tous !

en surfant pour trouver enfin une solution à mon problème, je suis tombé sur votre forum et je vous soumets donc mon problème...

je dois réaliser des tableaux de suivi d'activité pour mon service et notamment le nombre de contrats rédigés par mois.
afin d'éviter une saisie supplémentaire à mes collègues, je voudrai savoir s'il est possible (je suis sûr que oui !) de réaliser un comptage sous excel à partir d'un document sous word.
je voudrai donc que mon tableau "nombre de contrats rédigés" sous excel soit alimenté directement par le document word.
par exemple : lorsqu'on lance l'impression d'un contrat, le nombre de contrats rédigés du tableau excel est augmentée de 1 !

j'espère avoir été clair car je suis pas un pro de l'informatique, loin de là !
merci du temps que vous accorderez à cette question

A+

 

[@+Thierry]

Bonjour Dgé, le Forum

Pour ta question, c'est assez difficile de te répondre, car :

Soit tu parles d'action faites directement par Word (style une Impression de Contrat), là Excel n'y pourra rien !!!

Soit tu parles d'action pilotée par Excel sur des fichiers Word, et là évidemment c'est très différent !!! Mais il faut tout de même un assez haut niveau de connaissance en programmation pour piloter Word depuis une Interface Excel.

Soit Tu parles d'un petit ultilitaire qui te listerait tes fichiers Word dans Excel en vu de statistique sur la liste des documents Word ce genre de Code dans un Module Standard Excel pourrait te servir :

Option Explicit

Const Chemin As String = "C:\Mes Documents\" '<<< A adapter of Course !

Sub ListWorldDoc()
Dim NomPropre() As Variant
Dim ChercheFichier As FileSearch
Dim i As Integer

Set ChercheFichier = Application.FileSearch

With ChercheFichier
.NewSearch
.Filename = "*.doc" '<<< on peut chercher une String partielles "*Toto*.doc"
.LookIn = Chemin
.SearchSubFolders = False '<<< Changer Pour TRue pour "scruter" les S/répertoires...
.Execute msoSortByFileName, msoSortOrderAscending
If .Execute > 0 Then
With .FoundFiles
For i = 1 To .Count
Cells(i, 1) = Dir(.Item(i))
Next i
End With
Else
MsgBox "Pas de Fichier trouvé dans " & Chemin
End If
End With
End Sub

Il listera sur la feuille Excel active tous les fichiers avec extension ".doc" dans le répertoire... Attention il parait que sur les premières versions de Windows XP, la méthode FileSearch bug ! (à vérifier)

Voilà, sinon il faut voir du Coté VBA sous Word mais nous ne sommes pas spécialisé...

Bon Week End
@+Thierry