Exportation de données Word dans un fichier Excel (macro Excel)

Bonjour à tous,

Je suis actuellement en train d'essayer de création une macro permettant de retrouver automatiquement les acronymes dans un document word. En prenant l'hypothèse que les acronymes sont tous les mots en majuscules, de plus de 2 lettres.

J'espère que j'arrive à me faire comprendre avec mes mots de novice :/

Je souhaiterai que le déroulement de la macro Excel soit selon le cycle suivant :

1. J'appuie sur un bouton

2. L'explorateur de fichiers s'ouvre

3. Je sélectionne le document Word à traiter depuis l'explorateur de fichiers (celui disposant des abréviations)

4. Les abréviations sont identifiés dans le document

5. Les abréviations sont insérés dans la feuille1 du fichier Excel exécutant la macro

Merci d'avance de votre aide,

Bonne journée

Bonjour,

Cette fonction vous permettra de récupérer un acronyme en balayant la collection Words du document Word. Les majuscules correspondent aux caractères 65 à 90.

Function Acronyme(ByVal LeMot As String) As String

Dim I As Integer, J As Integer, NbCar As Integer

    If Len(LeMot) = 0 Then Exit Function
    NbCar = 0

    For I = 1 To Len(LeMot)
        For J = 65 To 90
            If Mid(LeMot, I, 1) = Chr(J) Then
               NbCar = NbCar + 1
               Exit For
            End If
        Next J
        If NbCar = Len(LeMot) And NbCar > 2 Then Acronyme = LeMot
    Next I

End Function