Discussion :

[Invité]

Bonjour à tous,

Après une recherche sur le forum, qui ne m'a apporté aucune réponse,

j'expose mon étrange problème

J'ai un outil pour lequel je fonctionne que par des USF et je souhaitais masquer l'application.

J'ai du code qui effectue une recherche dans une feuille

vListe à la bonne valeur = 5

Code :

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

LigneUtil = Worksheets("UTILISATEUR").Range("A2:A1000").Find(vListe, LookAt:=xlWhole, MatchCase:=True).Row

Lorsque j'effectue la recherche avec mon application Excel visible, j'ai le retour de ma recherche

Si je masque l'application

Code :

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

Application.Visible = False

J'ai systématiquement "Erreur d'exécution '50290'" sur cette même ligne !?

Quelqu'un peut-il m'expliquer pourquoi et surtout comment faire pour y remédier ?

Cordialement.

[Sebphyto]

Salut,
C'est quoi que tu veux cacher, Excel ou USF?
Seb

[antonysansh]

Bonjour BrunoM45,

As tu plusieurs classeurs ouverts avant Application.Visible = False ?
Test avec :

Code :

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

LigneUtil = ThisWorkbook.Worksheets("UTILISATEUR").Range("A2:A1000").Find(vListe, LookAt:=xlWhole, MatchCase:=True).Row

Je ne pense pas que ce soit ça car il s'agirait plutôt de l'erreur d'exécution'9'. Mais c'est toujours bon de préciser le parent d'un objet

[Invité]

Salut Sebphyto

Salut,
C'est quoi que tu veux cacher, Excel ou USF?
Seb

Je pensais avoir été assez explicite

J'ai un outil pour lequel je fonctionne que par des USF et je souhaitais masquer l'application.

Je veux cacher l'application, donc Excel

A+

[Invité]

Salut Antonysansh

Bonjour BrunoM45,
As tu plusieurs classeurs ouverts avant Application.Visible = False ?

Non, j'ai juste mon outil

Test avec :

Code :

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

LigneUtil = ThisWorkbook.Worksheets("UTILISATEUR").Range("A2:A1000").Find(vListe, LookAt:=xlWhole, MatchCase:=True).Row

Je ne pense pas que ce soit ça car il s'agirait plutôt de l'erreur d'exécution'9'. Mais c'est toujours bon de préciser le parent d'un objet

Effectivement, le problème n'est pas là, ça ne fonctionne pas

A+

[antonysansh]

Je te conseil quand même de faire ce petit ajout

Je n'arrive pas reproduire ton problème.
Erreur d'exécution '50290' fait (je crois) référence a une feuille ou un classeur non disponible. (ou plus généralement un objet)

Test de mettre un DoEvent juste avant la ligne qui posse problème.

[Sebphyto]

Re,
Et si tu minimizes le classeur?

Code :

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

1
2
3
4
5
6
Private Sub Workbook_Open()
Application.WindowState = xlMinimized
Application.Visible = False
'modal 0 = les feuilles de calcul restent accessibles
TonUSF.Show 0
End Sub

seb