Discussion :

[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? (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

[ouskel'n'or]

Instancie la feuille de calculs

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Set DocExcel = AppExcel.Workbooks.Open("C:\Documents and settings\bla bla.....blabla\dicoessai1.xls")
Dim LaFeuille as worksheet
Set LaFeuille = DocExcel.Worksheets(1)
Dico1 = LaFeuille.Range("A2", Range("B65536").End(xlUp)).Value
DocExcel.Close
AppExcel.Quit
Set DocExcel = Nothing
Set LaFeuille = Nothing
Set AppExcel = Nothing

Tu dis

[mécano41]

Bonjour,

Merci pour ta réponse. J'ai donc essayé ceci, mais j'ai toujours la même erreur au même endroit :

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
22
23
24
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
Dim LaFeuille As Worksheet
Set AppExcel = CreateObject("Excel.Application")
AppExcel.Visible = True
Set DocExcel = AppExcel.Workbooks.Open("C:\Documents and settings\blabla......blabla\dicoessai1.xls")
Set LaFeuille = DocExcel.Worksheets(1)
Dico1 = LaFeuille.Range("A2", Range("B65536").End(xlUp)).Value
DocExcel.Close
AppExcel.Quit
Set DocExcel = Nothing
Set LaFeuille = Nothing
Set AppExcel = Nothing
End Sub

Cordialement

[ouskel'n'or]

Il y a sans doute un problème de délai entre les opérations d'ouverture, de lecture et d'écriture. Ajoute DoEvents entre chacune de ces opérations

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Set AppExcel = CreateObject("Excel.Application")
DoEvents
AppExcel.Visible = True
Set DocExcel = AppExcel.Workbooks.Open("C:\Documents and settings\blabla......blabla\dicoessai1.xls")
DoEvents
Set LaFeuille = DocExcel.Worksheets(1)
Dico1 = LaFeuille.Range("A2", Range("B65536").End(xlUp)).Value
DoEvents
DocExcel.Close
DoEvents
AppExcel.Quit

DoEvents donne le temps au système d'effectuer les opérations d'ouverture, de lecture, d'affichage des données... etc

[mécano41]

Désolé, toujours le fonctionnement une seule fois!

[ouskel'n'or]

Teste en mettant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dico1 = LaFeuille.Range("A2:B" & LaFeuille.Range("B65536").End(xlUp).row).Value
DoEvents
DocExcel.Close

Je n'avais pas détaillé. Teste déjà ça, mais je me demande comment ça peut fonctionner la première fois...
A+