[VBA - Ouvrir un classeur en masqué
Résolu/Fermé
DjSKeud
binet - 11 oct. 2015 à 02:43
- Messages postés
- 97
- Date d'inscription
- mardi 25 avril 2006
- Statut
- Membre
- Dernière intervention
- 22 avril 2015
binet - 11 oct. 2015 à 02:43
A voir également:
- Excel vba ouvrir un fichier
- Vba ouvrir un fichier excel sans l'afficher - Meilleures réponses
- [VBA - Ouvrir un classeur en masqué ✓ - Forum - VB / VBA
- [vba] ouvrir un classeur ✓ - Forum - VB / VBA
- Vba ouvrir un classeur ✓ - Forum - VB / VBA
- Excel vba ouvrir un classeur ✓ - Forum - VB / VBA
- Vba ouvrir un classeur ✓ - Forum - Bureautique
4 réponses
DjSKeud
4 févr. 2008 à 13:57
- Messages postés
- 97
- Date d'inscription
- mardi 25 avril 2006
- Statut
- Membre
- Dernière intervention
- 22 avril 2015
4 févr. 2008 à 13:57
On est jamais si bien servi que par soit même :
Pour ceux que ça intéresse, voici le code qui permet d'ouvrir un workbook caché:
[code]
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
/code
DjSkeud,
http://tomleskeud.free.fr
Pour ceux que ça intéresse, voici le code qui permet d'ouvrir un workbook caché:
[code]
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
/code
DjSkeud,
http://tomleskeud.free.fr
pijaku
4 nov. 2011 à 08:21
- Messages postés
- 12257
- Date d'inscription
- jeudi 15 mai 2008
- Statut
- Modérateur
- Dernière intervention
- 3 septembre 2021
4 nov. 2011 à 08:21
Bonjour,
Il convient également d'ajouter à cette discussion, la possibilité d'aller piocher des informations dans un classeur, sans l'ouvrir! Voir la procédure ici.
Il convient également d'ajouter à cette discussion, la possibilité d'aller piocher des informations dans un classeur, sans l'ouvrir! Voir la procédure ici.
11 oct. 2015 à 02:43