Discussion :

[Vba14]

Bonjour à tous,

Voici mon problème. J'ai un UserForm ("UfAccueil") qui s'affiche dès que la feuille de calcul "Accueil" est activée. L'UF s'affiche dès l'ouverture du fichier.
Dans cet UF il y a un bouton qui me permet d'aller chercher un fichier dans Word. Jusque là tout fonctionne.

Lorsque je ferme le fichier Word pour retourner dans mon application, donc à la feuille "Accueil", mon UF ne s'affiche plus, bien que la feuille soit active.
Que dois-je faire pour résoudre se problème ?
J'ai, pour le moment, résolu le soucis en faisant un double clique ou un clique droit mais ce n'est pas la panacée.
Merci par avance pour votre aide

Voici mon code pour l'affiche de l'UF dans la feuille "Accueil"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub Worksheet_Activate()
'Procédure à l'activation de la feuille "Accueil"
Application.ScreenUpdating = False
 
'On appelle le module pour masquer toutes les autres feuilles
    MasquerToutesLesFeuilles
 
'On ouvre le formulaire "Accueil"
    Load UfAccueil
    UfAccueil.Show
 
Application.ScreenUpdating = True
End Sub

Et le code pour affichage fichier 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
 
Private Sub CmbAcc4_Click()
'Procédure d'ouverture du fichier "Delais_archivage" dans Word
Application.ScreenUpdating = False
'Le formulaire "Accueil" se ferme
    Unload Me
 
'Le fichier Word est appelé et ouvert
    Set wordapp = CreateObject("Word.Application")
    wordapp.Visible = True
    wordapp.documents.Open "K:\COMMUN\ARCHIVAGE\02-Procedures\Delais_archivage.docx"
    wordapp.Activate
 
Application.ScreenUpdating = True
End Sub

[ChristianBosch]

Salut, le "load" avant le "show" n'est pas nécessaire.

[Vba14]

Bonjour Christian,

Merci pour ta précision, mais ça ne résout pas mon problème.
Bien cordialement

[ChristianBosch]

Le problème ici c'est que tant que tu ne changes pas de feuille pour revenir sur "acceuil" l'événement worksheet_activate ne sera pas détecté. Si la mécanique d'utilisation ne correspond pas a ce que tu veux faire il va falloir changer de stratégie quand aux conditions d'ouverture de l'USF.

[lucasgaetan]

Bonjour Vba14,

la solution est de ne pas cacher ta UserForm ("UfAccueil") quand tu ouvres word.
pour cela il faut ouvrir la UserForm en Modeless

Code :

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

UserForm1.Show (vbModeless)

et supprimer le "Unload Me" dans le code de ton bouton.

@+

[Vba14]

Bonjour lucasgaetan,

Je ne connaissais pas Vbmodeless. Super ça marche bien.
Problème résolu.
Merci beaucoup
Bien cordialement

[ChristianBosch]

Oui mais du coup tu ne recharge pas ton USF, il reste chargé avec les info précédentes