Discussion :

[le_sonic]

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 :

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

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

[ouskel'n'or]

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

[le_sonic]

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

[SfJ5Rpw8]

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

[le_sonic]

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

[cwain]

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

Code :

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

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 :

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

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...

[SfJ5Rpw8]

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