Besoin d'aide pour comprendre ce qui cloche dans ce code

[jofdm]

Bonjour à tous,
J'utilise le code suivant :

Private Sub CommandButton9_Click()
If SignMaking.TextBox5 = "" Then
MsgBox ("No link")
Else
ActiveWindow.WindowState = xlMinimized
Call ActiveWorkbook.Worksheets("Menu").Activate
NameForm = Me.Name
ActiveWorkbook.FollowHyperlink Address:=SignMaking.TextBox5.Text
Call Me.Hide
End If
End Sub

Quand le fichier auquel le lien hypertexte fait référence est un .xls, pas de souci : une fois fermé, je retourne sur mon fichier de départ et mon USF réapparaît automatiquement. Par contre, pour tout autre format (.doc, .pdf), une fois fermé, je retourne sur mon fichier de départ et là, mon USF ne réapparaît pas automatiquement.

Si l'un d'entre vous peut m'aider à résoudre ce problème ce serait cool.

Merci d'avance

 

[JNP]

Re : Besoin d'aide pour comprendre ce qui cloche dans ce code

Bonjour Jofdm 🙂,
As-tu essayé

Private Sub Workbook_Activate()
TonUSF.Show
End Sub

dans ThisWorkbook ?
Bonne journée 😎

 

[jofdm]

Re : Besoin d'aide pour comprendre ce qui cloche dans ce code

Merci de t'être intéressé à mon problème JNP.
J'aurais dû préciser avant que j'ai 5 USF, donc ta solution ne peut fonctionner car je ne souhaite faire réapparaître que celui qui a été précédemment caché.

 

[JNP]

Re : Besoin d'aide pour comprendre ce qui cloche dans ce code

Re 🙂,
Alors utilise une variable publique pour indiquer quel USF tu vient de quitter, et réutilise-la pour choisir l'USF à faire réapparaître.
Bonne journée 😎

 

[jofdm]

Re : Besoin d'aide pour comprendre ce qui cloche dans ce code

C'est ce que j'ai fait.
NameForm est ma variable publique.
Ce que je ne comprends pas, c'est pourquoi le code fonctionne (réouverture de l'USF caché) quand j'ouvre un 2nd fichier excel mais pas quand j'ouvre un autre format de fichier (.doc ou .pdf par exemple)

 

[JNP]

Re : Besoin d'aide pour comprendre ce qui cloche dans ce code

Re 🙂,
Quel est ton code de retour ? Et dans quelle événementielle ?

 

[jofdm]

Re : Besoin d'aide pour comprendre ce qui cloche dans ce code

Mon code de retour, placé dans thisworkbook est :

Private Sub Workbook_Activate()
Sheets("Menu").Activate
If NameForm = "USF1" Then
Call USF1.Show
Else
If NameForm = "USF2" Then
Call USF2.Show
Else
If NameForm = "USF3" Then
Call USF3.Show
Else
If NameForm = "USF4" Then
Call USF4.Show
Else
If NameForm = "USF5" Then
Call USF5.Show
End If
End If
End If
End If
End If
End Sub

 

[JNP]

Re : Besoin d'aide pour comprendre ce qui cloche dans ce code

Re 🙂,
As-tu testé avec

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
End Sub

?
A + 😎