Masquer completement l'application Excel

Bonjour,

Lorsque je clique sur mon application excel j'aimerais qu'il m'ouvre uniquement mon userform et pas Excel en fond. J'ai mis mon code dans le workbook mais mon tableau excel qui me sert de base de donnée s'ouvre quand même derrière (mais en blanc).

Code:

---

1 2 3

Private Sub Workbook_Open() ouvrirRecherche End Sub

---

Y a t'il une solution?

Merci pour votre aide. ;)

Bonjour,

Essaye ceci

Code:

---

1 2 3 4

Private Sub Workbook_Open() Application.Visible = False ouvrirRecherche End Sub

---

Excel apparaîtra malgré tout le temps que tu répondes à la question "Activer les macros oui ou non ?"

Ne pas oublier, en fin de procédure, de remettre

Code:

---

Application.Visible = True

---

bonjour,

en ne tenant pas compte des eventuels message d alerte a l ouverture du classeur (à résoudre avec le degré de protection des macro)

une petite astuce pour eviter le scintillement à l ouverture du classeur
lorsque l on rend l application "invisible" par le code

Code:

---

1 2 3 4

Private Sub Workbook_Open() Application.Visible = False End Sub

---

methode :
ouvrir le classeur xl avec vbs

dans notepad copier ce code avec le chemin et le nom du fichier xl

Code:

---

1 2 3 4

Set xl = WScript.CreateObject("excel.Application") xl.visible=false xl.workbooks.open("C:\Documents and Settings\PAT\Mes documents\loto.xls")

---

enregistrer se fichier en .vbs

ne pas oublier d afficher le user à l ouverture du classeur

Code:

---

1 2 3

Private Sub Workbook_Open() userform1.show End Sub

---

ne pas oublier un bouton ou autre pour rendre de nouveau l application xl
visible :yaisse2:

et le tour est joué

:king: intéressant, je ne connaissais pas cette méthode, je n'ai même plus le message me demandant d'activer les macros 8O

Citation:

---

Envoyé par fring

Bonjour,

Essaye ceci

Code:

---

1 2 3 4

Private Sub Workbook_Open() Application.Visible = False ouvrirRecherche End Sub

---

Excel apparaîtra malgré tout le temps que tu répondes à la question "Activer les macros oui ou non ?"

Ne pas oublier, en fin de procédure, de remettre

Code:

---

Application.Visible = True

---

---

Bonjour,
Merci pour le solution. :king: Cela fonctionne bien. Mais par contre j'ai rajouté ce code dans mon userform principal:

Code:

---

1 2 3

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Application.Visible = True End Sub

---

Avec ce code, des que je ferme mon userform excel apparait avec mon tableau. :?
Si je l'enlève, excel n'apparait pas. Donc c'est parfait mais si je veux retourner dans le code je suis obligé de le faire planter. :?

Citation:

---

Envoyé par fabien114

Donc c'est parfait mais si je veux retourner dans le code je suis obligé de le faire planter. :?

---

Il suffit de cliquer sur désactiver les macros en ouvrant ton fichier