Ouvrir un classeur Excel par macro sans l'afficher [Résolu]
maxxyme
- Messages postés
- 16
- Date d'inscription
- lundi 15 décembre 2003
- Statut
- Membre
- Dernière intervention
- 1 mai 2014
- Messages postés
- 794
- Date d'inscription
- vendredi 4 mars 2005
- Statut
- Membre
- Dernière intervention
- 12 juin 2012
A voir également:
- Vba ouvrir un fichier excel sans l'afficher
- Excel vba ouvrir un classeur - Meilleures réponses
- Vba ouvrir classeur sans l'afficher - Meilleures réponses
- Visual Basic / VB.NET : Ouvrir un fichier excel sans aucune dll office - CodeS SourceS - Guide
- Pouvoir ouvrir des fichiers excel avec vba sans le faire planter ✓ - Forum - Visual Basic 6
- Ouvrir 2 fichier excel avec vba ✓ - Forum - Visual Basic 6
- Petit moteur de recherche de fichier excel pour debutant qui permet aussi d'ouvrir le fichier excel - Codes sources - Visual Basic / VB.NET (Divers)
- Ouvrir un fichier word sans connaître le chemin de l'application - Codes sources - Visual Basic / VB.NET (Fichier / Disque)
12 réponses
Meilleure réponse
- Messages postés
- 3877
- Date d'inscription
- mardi 19 mars 2002
- Statut
- Membre
- Dernière intervention
- 23 août 2018
Et si tu procédais comme on fait à partir de VB ?
Tu crées une instance d'Excel à part. Tu ne verras donc pas le classeur
dans le menu Fenêtre de ton application. Il faudra tout de même
spécifier xlBook ou xlSheet pour que le programme comprenne de quelle
cellule on parle ou de quelle feuille, classeur...
Option Explicit
Dim xlApp As New Excel.Application ' déclarer Public si dans un module
Dim xlBook As New Excel.Workbook
Dim xlSheet As New Excel.Worksheet
Sub MaSub()
'Ouvrir le classeur dont on a besoin avec tout le chemin...
Set xlBook = xlApp.Workbooks.Open("LeNomDeTonFichier.xls")
Set xlSheet = xlBook.Sheets("Feuil1") ' si on veut utiliser une feuille en particulier
'Pour vérifier que tout fonctionne bien
MsgBox xlSheet.Range("C8")
'si on ne spécifie pas de feuille
' MsgBox xlBook.Activesheet.Range("C8")
' ou MsgBox xlBook.Sheets("Feuil1").Range("C8")
'Important en quittant le programme ou quand on n'en a plus besoin (pas nécessairement ici...)
xlBook.Close
xlApp.Quit
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
End Sub
MPi
Tu crées une instance d'Excel à part. Tu ne verras donc pas le classeur
dans le menu Fenêtre de ton application. Il faudra tout de même
spécifier xlBook ou xlSheet pour que le programme comprenne de quelle
cellule on parle ou de quelle feuille, classeur...
Option Explicit
Dim xlApp As New Excel.Application ' déclarer Public si dans un module
Dim xlBook As New Excel.Workbook
Dim xlSheet As New Excel.Worksheet
Sub MaSub()
'Ouvrir le classeur dont on a besoin avec tout le chemin...
Set xlBook = xlApp.Workbooks.Open("LeNomDeTonFichier.xls")
Set xlSheet = xlBook.Sheets("Feuil1") ' si on veut utiliser une feuille en particulier
'Pour vérifier que tout fonctionne bien
MsgBox xlSheet.Range("C8")
'si on ne spécifie pas de feuille
' MsgBox xlBook.Activesheet.Range("C8")
' ou MsgBox xlBook.Sheets("Feuil1").Range("C8")
'Important en quittant le programme ou quand on n'en a plus besoin (pas nécessairement ici...)
xlBook.Close
xlApp.Quit
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
End Sub
MPi
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
125 internautes nous ont dit merci ce mois-ci
- Messages postés
- 794
- Date d'inscription
- vendredi 4 mars 2005
- Statut
- Membre
- Dernière intervention
- 12 juin 2012
Salut 432827 maxxyme, salut =89254 jrivet, salut 786090 Drikce06, salut =6078 MPi,
en déclarant une référence à l'application (avec handler d'évènements), tu peux récupérer les évènements de fenêtre et de classeurs.
Il semblerait que le 1er évènement à survenir soit _WorkbookOpen(Byval WB As Workbook), et ce avant l'évènement _WindowActivate ou _WindowDeactivate !
Conclusion, tu ne peux pas cacher la fenêtre avant d'ouvrir le classeur (ça tu le savais), mais même si la 1ère chose que tu fais, dès que tu es au courant que le classeur s'ouvre, est de cacher la fenêtre (ou autre chose), il est trop tard, et tu obtiens le sus-dit scintillement.
Pas de solution? En faisant comme je te l'indique (ou autrement d'ailleurs), tu peux, avant de commander l'ouverture du classeur, rendre l'application (de qui tu as une référence) invisible, puis visible après le chargement (juste le chargement, pas le traitement), tu as toujours le scintillement, mais en aucun cas l'utilisateur ne voit de quel fichier il s'agit (il ne voit même pas que tu as chargé un fichier).
à+
PS : ceci dit, le scintillment, il faut de bons yeux pour l'exploiter!
rvblog<sup>n
Je veux ton bien....et je l'aurais....mieux vaut tard...que trop tard!</sup>
en déclarant une référence à l'application (avec handler d'évènements), tu peux récupérer les évènements de fenêtre et de classeurs.
Il semblerait que le 1er évènement à survenir soit _WorkbookOpen(Byval WB As Workbook), et ce avant l'évènement _WindowActivate ou _WindowDeactivate !
Conclusion, tu ne peux pas cacher la fenêtre avant d'ouvrir le classeur (ça tu le savais), mais même si la 1ère chose que tu fais, dès que tu es au courant que le classeur s'ouvre, est de cacher la fenêtre (ou autre chose), il est trop tard, et tu obtiens le sus-dit scintillement.
Pas de solution? En faisant comme je te l'indique (ou autrement d'ailleurs), tu peux, avant de commander l'ouverture du classeur, rendre l'application (de qui tu as une référence) invisible, puis visible après le chargement (juste le chargement, pas le traitement), tu as toujours le scintillement, mais en aucun cas l'utilisateur ne voit de quel fichier il s'agit (il ne voit même pas que tu as chargé un fichier).
à+
PS : ceci dit, le scintillment, il faut de bons yeux pour l'exploiter!
rvblog<sup>n
Je veux ton bien....et je l'aurais....mieux vaut tard...que trop tard!</sup>
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
125 internautes nous ont dit merci ce mois-ci
- Messages postés
- 16
- Date d'inscription
- lundi 15 décembre 2003
- Statut
- Membre
- Dernière intervention
- 1 mai 2014
La propriété Visible n'existe pas pour l'objet Workbook.
J'ai cherché un petit peu plus, et la seule chose que j'ai trouvé (en rapport avec l'histoire du classeur "PERSO"), c'est de cacher la (première) fenêtre du classeur en question, en faisant un truc du genre :
' Récupération de la première fenêtre du classeur et masquage
Dim oWindow As Window
On Error Resume Next
Set oWindow = oJournalWorkbook. Windows(1)
On Error GoTo 0
If (oWindow Is Nothing) Then
Exit Function
End If
oWindow.Visible = False
Il ne faut juste pas que j'oublie de remettre True avant de fermer le classeur sinon quand on voudra le consulter, rien ne sera affiché.
Le seul hic avec ça, c'est que la feuille de classeur apparaît pendant toute
juste
une fraction de seconde à l'ouverture...
J'ai cherché un petit peu plus, et la seule chose que j'ai trouvé (en rapport avec l'histoire du classeur "PERSO"), c'est de cacher la (première) fenêtre du classeur en question, en faisant un truc du genre :
' Récupération de la première fenêtre du classeur et masquage
Dim oWindow As Window
On Error Resume Next
Set oWindow = oJournalWorkbook. Windows(1)
On Error GoTo 0
If (oWindow Is Nothing) Then
Exit Function
End If
oWindow.Visible = False
Il ne faut juste pas que j'oublie de remettre True avant de fermer le classeur sinon quand on voudra le consulter, rien ne sera affiché.
Le seul hic avec ça, c'est que la feuille de classeur apparaît pendant toute
juste
une fraction de seconde à l'ouverture...
- Messages postés
- 16
- Date d'inscription
- lundi 15 décembre 2003
- Statut
- Membre
- Dernière intervention
- 1 mai 2014
Drikce06, de quel "form" veux-tu parler ??
De plus j'ai essayé Application.Visible = True (
qui "cache Excel")
mais ce n'est pas ce que je veux : je veux justement qu'Excel continue à être affiché étant donné que le code VB que je donne plus haut est inclus dans une Macro qui est elle-même appelée par un bouton d'une barre d'outils personnalisée.
De plus j'ai essayé Application.Visible = True (
qui "cache Excel")
mais ce n'est pas ce que je veux : je veux justement qu'Excel continue à être affiché étant donné que le code VB que je donne plus haut est inclus dans une Macro qui est elle-même appelée par un bouton d'une barre d'outils personnalisée.