[VBA - Ouvrir un classeur en masqué
Résolu/Fermé
DjSKeud
Messages postés
97
Date d'inscription
mardi 25 avril 2006
Statut
Membre
Dernière intervention
22 avril 2015
-
4 févr. 2008 à 13:15
binet - 11 oct. 2015 à 02:43
binet - 11 oct. 2015 à 02:43
A voir également:
- Ouvrir fichier excel vba
- Ouvrir fichier .bin - Guide
- Fichier rar - Guide
- Comment ouvrir un fichier epub ? - Guide
- Comment ouvrir un fichier docx ? - Guide
- Liste déroulante excel - Guide
4 réponses
DjSKeud
Messages postés
97
Date d'inscription
mardi 25 avril 2006
Statut
Membre
Dernière intervention
22 avril 2015
31
4 févr. 2008 à 13:57
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
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 743
4 nov. 2011 à 08:21
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