Copie d'un tableau WORD vers une feuille excel

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

s.ayme

XLDnaute Nouveau
Bonjours,

Je voudrais copier un tableau word dans excel. Quand je lance ma macro(voir en dessous) qui ouvre un document word(extension RTF). la ligne qui copie mon tableau m'indique une erreur (bloc de variable est non définie).
Pouvez m'aidez à corriger cette erreur?
merci d'avance

Sub copy_table_word_excel()

Dim appWd As Word.Application
Dim Wb As Word.Document
Dim Chemin As String
Dim fd As FileDialog
Dim vrtSelectedItem As Variant

Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
Chemin = vrtSelectedItem
Set appWd = CreateObject("Word.Application")
appWd.Visible = False
Next vrtSelectedItem
Else
End If
End With
Set fd = Nothing

Wb.Tables(2).Range.Copy (voici ma ligne d'erreur)
Sheets("TH").Range("A50").Select
ActiveSheet.Paste 'collage des données dans Excel

Wb.Close False
appWd.Quit

End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
639
Retour