A voir également:
- Vba ouvrir fichier excel en arriere plan
- Vba ouvrir un fichier excel en arrière plan - Meilleures réponses
- Ouvrir classeur excel vba - Meilleures réponses
- [VBA - Ouvrir un classeur en masqué ✓ - Forum - VB / VBA
- Ouvrir excel sans afficher le classeur - Forum - Programmation
- Vba ouvrir fichier excel ✓ - Forum - VB / VBA
- Comment ouvrir fichier blocnote en arrière plan (non visible) ✓ - Forum - VB / VBA
- Fermeture ou fichier excel en arrière plan ✓ - Forum - VB / VBA
4 réponses
DjSKeud
- Messages postés
- 97
- 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
- 12247
- Date d'inscription
- jeudi 15 mai 2008
- Statut
- Modérateur
- Dernière intervention
- 10 février 2021
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.
