Importer fichier word vers Excel

Bonjour je suis sur Excel Mac et je n'arrive pas à importer un fichier Word sur mon mac. J'ai bien activé Microsoft Word Object Library mais ça ne marche pas.

Ce premier code marche sur Windows mais je préfère le deuxième code. Puis-jke adapter ce code à mac ? Il est dit que la ligne en gras ne marche pas.

Sub Importer_fichier_Word() '

Dim Wb As Workbook 'classeur Excel dans lequel on importe les mots du fichier Word

Dim Ws As Worksheet 'onglet excel dans lequel on importe les mots du fichier Word

Dim WApp As Object

Dim Nbremots As Integer

Dim i As Integer

Set Wb = ThisWorkbook

Set Ws = Wb.Sheets(1) 'on sauvegarde dans la première feuille

Set WApp = CreateObject("Word.Application") 'pour créer un objet Word et ouvrir le document Word

With WApp

.Documents.Open Filename:="C:/Users/MONPRENOM/Desktop/Electrique.docx"

Nbremots = .ActiveDocument.Words.Count ' On trouve le nombre de mots

For i = 1 To Nbremots

Cells(i, 1) = .ActiveDocument.Words(i) ' On écrit les mots dans la colonne A

Next i

.Documents.Close 'quitter l'application word

End With

Set WApp = Nothing 'libérer la mémoire

End Sub

Celui-ci me semble plus clair mais il m'est dit que mes variables sont mal définies. j'ai du mal à comprendre. Ici c'est la première ligne du code qui ne marche tout simplement pas.

Sub LectureDocument()

Dim i, NbreMots As String

Dim WdApp As Word.Application

Set WdApp = New Word.Application

With WdApp

.Documents.Open FileName:="/Users/MONPRENOM/Desktop/Electrique.docx"

With .Selection

.EndKey Unit:=wdStory

.TypeParagraph

End With

.ActiveDocument.Save

' On trouve le nombre de mots

NbreMots = .ActiveDocument.Words.Count

' On écrit les mots dans la colonne A

For i = 1 To NbreMots

Cells(i, 1) = .ActiveDocument.Words(i)

Next i

.Documents.Close

.Application.Quit

End With

Set WdApp = Nothing

End Sub

Merci d'avance pour votre aide à tous.

Bonjour,

essai avec

Dim i As Integer, NbreMots As Integer

Bonjour, Merci pour la réponse.

Il semblerait que ça ne marche pas...

re,

regarde ici:

https://www.rondebruin.nl/mac/mac030.htm

 Dim appWD As Object
    Dim wddoc As Object

    On Error Resume Next
    Set appWD = GetObject(, "Word.application")    'gives error 429 if Word is not open
    If Err = 429 Then
        Set appWD = CreateObject("Word.application")    'creates a Word application
        Err.Clear
    End If

Bonjour merci pour le code mais il ne marche toujours pas.

Il faut ajouter le 2ème code à la place du premier ou pour compléter le second.

Il semblerait que ça ne marche pas... 

as-tu un message d'erreur ?

si oui, quel est t'il et sur quel ligne ce message apparaît ?