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? (sur le forum VBA WORD, on m'a suggéré d'ajouter Set AppExcel=Nothing mais cela ne va pas non plus)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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\bla bla.....blabla\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