[VBA-W] Utiliser Excel depuis Word

:D Bonjour à tout le monde,

J'ai un petit problème de VBA, En effet je souhaite activer un feuille excel et copier dans une cellule la valeur d'un userform de Word, Cependant Word ne veut rien entendre et le débogage apparait.

Voici le bout de code qui ne veut rien savoir, mon intérêt est d'arriver à activer le fichier excel et non le réouvrir puisqu'il est déja ouvert avant dans le programme et cela marche correctement.

Code:

---

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

Sub tableau_recap(lettre, numero)   Dim numero2 As Integer   Set exl = CreateObject("excel.application") exl.Workbooks("D.C.E tableau_recap.xls").Activate   numero2 = numero + 4   exl.Workbooks("tableau_recap.xls").Sheets("Tableau").Range("c5").Value = UserForm2.Controls(lettre & numero).Value     End Sub

---

Le débogage apparait sur la ligne de l'acitivation, exl.Workbooks.Open FileName:=ActiveDocument.Path & "\tableau_recap.xls" fonctionne mais je ne souhaite pas l'ouvrir et le fermer plusieurs fois, puisque j'ai besoin qu'il reste ouvert.


Merci à tous :roll:

Tu veux travailler dans un fichier fermé, regarde là
A+

Non, je ne souhaite pas travailler en fichier fermé justement, le fichier excel est ouvert, je veux simplement l'activer copier ma valeur et revenir sur word, je ne comprend pas pourquoi justement le .activate depuis word ne fonctionne pas, comment puis je m'y prendre?
Merci

essai avec getOpen voir ici http://www.developpez.net/forums/sho...97&postcount=7

Je me suis inspiré de cette discussion.

Cela ne marche pas le débogueur m'affiche : type défini par l'utilisateur non défini.
Je souhaiterai simplement accéder à un fichier excel "tableau recap" que j'ouvre au lancement pour y copier une valeur.

Merci pour la réponse quand même

Pour ouvrir un fichier en évitant les embrouilles j'utilise ça :

Code:

---

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

Sub VerifOuv(Chem1 As String, Nom2 As String) Dim lWorkbook As Workbook 'vérifie que le fichier n'est pas ouvert sur mon PC, le ferme puis l'ouvre puis l'ouvre For Each lWorkbook In Workbooks If lWorkbook.Name = Nom2 Then Workbooks(Nom2).Activate Workbooks(Nom2).Close End If Next Workbooks.Open Filename:= _ Chem1 & Nom2 Workbooks(Nom2).Activate End Sub

---

Dans le cas où tu veux vérifier si il est ouvert sur un autre PC, j'ajoute ça dans mon code principal

Code:

---

1 2 3 4

If ActiveWorkbook.ReadOnly = True Then MsgBox "Le fichier est déjà utilisé" Exit Sub End If

---

Je sens que je vais me prendre des réflexions du genre : "c'est rigolo, si ton fichier est déjà ouvert sur ton PC, tu le fermes pui tu l'ouvres, ça sert à rien" Mais à ça je répond : j'ai pas eu le temps (l'envie/le besoin) d'épurer ce code...

pense à rajouter la référence Microsoft Excel... à ton projet Word-VBA..! ( dans l'éditeur VBE , outils références,..)