Discussion :

[MacVéba]

Salut à tous,
j'ai une question élémentaire mais, en tant que débutant et malgré mes efforts, je n'y arrive pas !
Il s'agit tout simplement, à partir d'un sub sous Excel, de se déplacer sous Word (déjà ouvert), d'agir, et de revenir sous Excel et ainsi de suite.
Je souhaite tout particulièrement pouvoir voir les fenêtres word et excel au fur et à mesure de ces déplacements et actions.

actuellement je fais comme ça :

Merci beaucoup pour votre aide.
Bien cordialement,
Jacques

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
sub TEST
 
'Déclaration des variables
Dim monExcel As Excel.Application
Dim monFichierExcel As Workbook
 
Dim monword As Word.Application
Dim monFichierWord As Document
 
 
Application.ScreenUpdating = True
 
    'GESTION EXCEL
    '•••••••••••••••
        'Identification de mon application Excel active (utile pour navigation)
 
            'Set monExcel = GetObject(Class:="Excel.Application")
            Set monExcel = GetObject(Class:="Excel.application")
 
            'monExcel.Activate  '>>> NE MARCHE PAS erreur 438
 
            Set monFichierExcel = ThisWorkbook
            monFichierExcel.Activate
 
            Dim lefichierWORD
            lefichierWORD = [lefileWORD2]   'ici je récupère le nom du fichier Word à exploiter sous EXCEL
 
 
    'GESTION WORD
    '•••••••••••••••
        'Identification de mon application Word active (utile pour navigation)
 
            Set monword = GetObject(Class:="Word.Application")
 
            monword.Activate    '>> FONCTIONNE PARFAITEMENT, j'active et vois le fichier Word
 
            monExcel.Activate   '>>> NE MARCHE PAS erreur 438
 
            ThisWorkbook.Activate
                'fonctionne surement...mais sans visibilité
 
            ThisWorkbook.ActiveSheet.Range("A10").Select
                'fonctionne, je suis bien en A10 mais je veux voir ce fichier MERCI :)
 
 
end sub

[MacVéba]

En cherchant (mieux), merci les voisins US d'excelforum.com, je résous le pbm par un simple :

Code :

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

captionEXCEL = monExcel.Caption

après le set EXCEL

et une fois dans Word je peux retourner sous EXCEL avec un tout aussi simple :

Code :

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

AppActivate captionEXCEL

Pour moi c'est bon. Je ferai avec ça mais, si vous avez mieux je lis très attentivement vos propres façons de faire.
Merci à tous.

[MacVéba]

Je rajoute avoir constaté que le Caption, directement fonction de l'application, est souvent capricieux.
Le caption pouvant à l'évidence, dans l'appli, changer (office 365).
J'ai résolu cette situation en définissant dans le sub le caption que je souhaitais affecter à l'appli.
ça fonctionne "crème".

Espérant aider ...