A voir également:
- [VBA - Ouvrir un classeur en masqué
- [VBA - Ouvrir un classeur en masqué ✓ - Forum - VB / VBA
- [vba] ouvrir un classeur ✓ - Forum - VB / VBA
- Vba ouvrir un classeur ✓ - Forum - VB / VBA
- Ouvrir un classeur excel vba ✓ - Forum - VB / VBA
- Vba ouvrir userform à l'ouverture classeur - Forum - Programmation
4 réponses
DjSKeud
- Messages postés
- 100
- Date d'inscription
- mardi 25 avril 2006
- Statut
- Membre
- Dernière intervention
- 22 avril 2015
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
Signaler
binet
avec excel 2013 ca ne marche pas erreur de chargemetn de la dll
pijaku
- Messages postés
- 12184
- Date d'inscription
- jeudi 15 mai 2008
- Statut
- Modérateur
- Dernière intervention
- 31 juillet 2020
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.