Import Excel dans Word [Résolu]

[mécano41]

Bonjour,

Pour aller chercher un tableau EXCEL et le mettre dans un Variant dans le VBA WORD, j'ai fait ceci, qui fonctionne parfaitement...mais au premier appel seulement! Ensuite, j'ai une "erreur 1004 - La méthode range a échoué..". à cette ligne :

Dico1 = ActiveSheet.Range("A2", Range("B65536").End(xlUp)).Value

Quelqu'un pourrait-il m'expliquer où est mon erreur?

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim Dico1 As Variant
 
 
Sub Appel()
Dico1 = Empty
Call ChercheDansExcel
MsgBox Dico1(3, 1) & "   " & Dico1(3, 2)
End Sub
 
 
Sub ChercheDansExcel()
Dim AppExcel As Excel.Application
Dim DocExcel As Excel.Workbook
Set AppExcel = CreateObject("Excel.Application")
AppExcel.Visible = True
Set DocExcel = AppExcel.Workbooks.Open("C:\Documents and settings\maingonnat\mes documents\technique\essais word et vba word\décodage texte\dicoessai1.xls")
DocExcel.Worksheets(1).Activate
Dico1 = ActiveSheet.Range("A2", Range("B65536").End(xlUp)).Value
DocExcel.Close
AppExcel.Quit
End Sub

Merci d'avance

Cordialement

[Heureux-oli]

Essaie de libérer les objets, fermer excel, ne suffit pas.

Code :

Set appExcel = Nothing

Maintenant, si ce n'est pas l'erreur, il serait préférable de poser la question sur le forum Excel.

[mécano41]

Bonjour,

Merci pour cette réponse.

Apparemment, pas de changement. Je vais essayer sur le forum EXCEL

Cordialement