alt tab programmé en VBA

Version imprimable

29/07/2011, 03h59
vansco

alt tab programmé en VBA

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).
29/07/2011, 07h31
kiki29

Salut, à lire http://silkyroad.developpez.com/VBA/UserForm/
29/07/2011, 08h16
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:

AppActivate "Microsoft Visual Basic"
30/07/2011, 13h57
vansco
Bonjour,

Pour information, ce code
Code:

1 2 AppActivate "Microsoft Visual Basic"
renvoie un message d'erreur.
30/07/2011, 14h22
jfontaine

Bonjour,

As tu essayé de remettre le focus sur le classeur

Code:

ThisWorkbook.Activate

Sinon, pour simuler ALT+TAB

Code:

SendKeys ("%+{TAB}")

Il suffisait d'ondiquer à excel de fermer Word

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