Discussion :

[vansco]

Bonjour,

J'utilise un écran de saisie sous VBA avec appel de fichiers publipostés sous Word. Mon problème est qu'à la fin du publipostage le retour vers l'application VBA excel ne se fait pas. L'utilisateur doit utiliser Alt + Tab ou sa souris pour reprendre l'écran de saisie sous VBA excel (donc pour retourner dans la forme).

[kiki29]

Salut, à lire http://silkyroad.developpez.com/VBA/UserForm/

[oOVaveOo]

Bonjour,
Je ne comprends pas bien pourquoi l'utilisateur doit agir dans l'éditeur vba ??
Les userforms se lancent normalement à partir d'excel et tout ce qui est vba est transparent pour l'utilisateur final.

Sinon, essaye ça en fin de macro, mais je pense que tu as un soucis de conception :

Code :

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

AppActivate "Microsoft Visual Basic"

[vansco]

Bonjour,

Pour information, ce code

Code :

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

1
2
 
AppActivate "Microsoft Visual Basic"

renvoie un message d'erreur.

[jfontaine]

Bonjour,

As tu essayé de remettre le focus sur le classeur

Code :

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

ThisWorkbook.Activate

Sinon, pour simuler ALT+TAB

Code :

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

SendKeys ("%+{TAB}")

[vansco]

Il suffisait d'ondiquer à excel de fermer Word

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
 
    Dim oWORD As Word.Application
    'Document Word
'    Dim wdDoc As Object
    Dim wdDoc As Word.Document
    'Sélection dans un document Word
    Dim wdSel As Object
    Dim signet As Object
    'Chemin du modèle de document
    Dim IntSigNum As Integer
 
    'vérifier la présence de Word
        '
        '   Création d'une application Word
        '
        Set oWORD = GetObject(, "Word.Application")
        If Err.Number = 429 Then
        '   L' erreur 429(ActiveX component can't create object)
        '   est retournée si aucune application Word existe.
        '
            Err.Clear
            Set oWORD = CreateObject("Word.application")
        End If
 
 'en fin de traitement
Oword.quit