import de EXCEL depuis WORD

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:

---

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

Instancie la feuille de calculs

Code:

---

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

Bonjour,

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

Code:

---

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

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:

---

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

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

Teste en mettant

Code:

---

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+

Et pourtant...cela fonctionnait une fois...et ceci, mis dans un module EXCEL, fonctionne :

Code:

---

1 2 3 4 5

Sub essai() Dim Dico1 As Variant Worksheets(1).Activate Dico1 = ActiveSheet.Range("A2", Range("B65536").End(xlUp)).Value End Sub

---

Maintenant, avec ce que tu m'as donné, cela fonctionne à tous les coups (avec ou sans les Do Events) ! C'est beaucoup mieux :yaisse2: .

Encore merci!

Cordialement

... et finalement, ce que j'avais écrit au message #1 mais avec ActiveSheet. devant le deuxième Range de la ligne fautive fonctionne également!...pas grave, cela m'a appris d'autres choses!

Encore merci et à bientôt

Et là, où est-ce que je me trompe, avec la ligne marquée "fonctionne", la plage est sélectionnée. Si j'utilise les deux lignes suivantes, il y a une erreur 13 Incompatibilité de type pourtant, dans les deux cas c'est bien le même range...je ne comprends pas...:?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub essai() Dim AppExcel As Excel.Application Dim DocExcel As Excel.Workbook Dim FC As Excel.Worksheet Dim Plage As Range Dim Nm As String Set AppExcel = CreateObject("Excel.Application") AppExcel.Visible = True Set DocExcel = AppExcel.Workbooks.Open("C:\Documents and settings\blabla....blabla\dicoessai1.xls") Set FC = DocExcel.Worksheets(1) Nm = "debutlatin" FC.Range(FC.Range(Nm).Offset(1, 0), FC.Range(Nm).Offset(1, 1).End(xlDown)).Select ' fonctionne   'Set Plage = FC.Range(FC.Range(Nm).Offset(1, 0), FC.Range(Nm).Offset(1, 1).End(xlDown)) ' ne fonctionne pas 'Plage.Select     End Sub

---

Merci d'avance

Cordialement


EDIT : et avec un variant (nommé Dico), le transfert s'effectue correctement :

Dico = FC.Range(FC.Range(Nm).Offset(1, 0), FC.Range(Nm).Offset(1, 1).End(xlDown))

Pour tester il faudrait que tu joingnes tes deux fichiers, Word et Excel.
Ce que tu peux faire est placer ta plage dans une variable intermédiaire puis de faire

Code:

---

Set Plage = FC.Range(LaVariable)

---

Ainsi, tu pourrais observer ce qui se passe dans la variable.
Quand tu auras compris, tu pourras corriger puis remplacer la variable en mettant le code correct dans ta ligne.
A+

Bonjour,

Voilà les deux fichiers d'essai. Ce que je voudrais comprendre :

- dans les lignes mises en commentaires, pourquoi la première effectue bien une sélection et pourquoi les deux suivantes ne le font pas, alors que la ligne suivante avec le variant fonctionne bien pour récupérer le tableau

- pourquoi je n'arrive pas à utiliser le nom interne de la feuille Excel, le seul qui permette de modifier ensuite, sans problème, la position ou le nom de la feuille

Merci d'avance

Cordialement

Hello.
Un simple problème de déclaration. Teste ça

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub ChercheDansExcel(Dico As Variant, Nm As String) Dim AppExcel As Variant Dim DocExcel As Variant Dim FC As Variant Dim Plage As Variant 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") Set FC = DocExcel.Worksheets("Dictionnaires") ' ici je voudrais utiliser le nom interne de la feuille Excel (c'est : RMPage1) mais je n'y arrive pas (erreur) Set Plage = FC.Range(FC.Range(Nm).Offset(1, 0), FC.Range(Nm).Offset(1, 1).End(xlDown)) ' alors que ces 2 instructions ne le sélectionnent pas (erreur) Plage.Select DocExcel.Close AppExcel.Quit End Sub

---

Quant au nom de ta feuille, c'est "Dictionnaires", pas "RMPage1" et la syntaxe que je t'ai mise fonctionne -> Set FC = DocExcel.Worksheets("Dictionnaires")
A+

Edit
N'oublie pas de supprimer tes instances en fin de procédure

Code:

---

1 2 3 4

Set AppExcel = Nothing Set DocExcel = Nothing Set FC = Nothing Set Plage = Nothing

---

Effectivement, avec des Variant partout, cela fonctionne (comme quoi, celui qui ne met pas Option explicit et qui ne déclare pas ses variables ne saura jamais qu'il aurait pu avoir des problèmes :mouarf: :mouarf: :mouarf:). Enfin c'est quand même bizarre que ce qui fonctionne sous EXCEL ne fonctionne plus lorsque c'est appelé par WORD, même avec de déclarations en bonne et due forme!

Pour le nom de feuille : bien sûr que cela fonctionne avec le nom de feuille "Dictionnaire" mais si quelqu'un le modifie, il faut reprendre le code. En utilisant Worksheets(1) cela ne marche plus si l'on change l'ordre des feuilles...donc habituellement je donne un nom interne fixe (ici RMPage1) au moyen de la fenêtre "Propriété" du module considéré (ce nom s'affiche devant celui entre parenthèses dans la fenêtre "Projets") et ensuite je fais par exemple : RMPage1.Activate et tout va bien, on peut tout modifier et le code fonctionne toujours mais ici, depuis WORD, je n'arrive pas à le faire fonctionner.

Encore merci pour tes réponses.

Cordialement

Ok. Pour l'histoire des noms de feuilles, j'avais résolu le problème en faisant une boucle sur les feuilles du classeur afin de retrouver la bonne. C'est lourd... j'ai d'ailleurs vu passer un code plus simple il y a un an ou deux mais n'en ayant pas besoin, j'ai oublié. :(
Voici toujours la fameuse boucle

Code:

---

1 2 3 4

LeNomVoulu = "RMPage1" For each LaFeuille in activeworkbook.worksheets If LaFeuille.name = LeNomVoulu then LaFeuille.select Next

---

A adapter depuis Word. Si tu as un pb pour faire ça, je regarderai
A+

Merci.

Oui, cela fonctionne (il faut utiliser .codename car .name c'est le nom figurant sur l'onglet) et ensuite calculer son index (Cpt) car apparemment, il ne prend pas le nom de l'onglet dans Set FC = ...

Code:

---

1 2 3 4 5

Cpt = 0 For Each Feuille In DocExcel.Worksheets Cpt = Cpt + 1 If Feuille.CodeName = "RMPage1" Then Set FC = DocExcel.Worksheets(Cpt) Next

---

C'est vrai que ça paraît un peu lourd...mais puisque ça fonctionne...!

Soit dit en passant, les importations EXCEL dans WORD n'ont pas l'air très simple...:roll:

Cordialement

Pour codename, j'ai une excuse :mouarf: J'ai fait ça de mémoire pour un truc réalisé en 1998 (!)
Ton pb est résolu ?

Citation:

---

Envoyé par mécano41

Soit dit en passant, les importations EXCEL dans WORD n'ont pas l'air très simple...

---

Pour indication, tu as posé ta question dans le mauvais forum... C'est pour ça que ce n'est pas si simple ! Dans VBA-Word, y'a plein de types compétents, enfin, il y en a au moins deux :mouarf:
Bonne chance pour la suite.

J'avais commencé sur l'autre forum mais il m'a été conseillé d'aller plutôt voir côté EXCEL.

Problème résolu...jusqu'au prochain!

A bientôt

Cordialement