[VBA - Ouvrir un classeur en masqué
Résolu
DjSKeud
Messages postés
103
Statut
Membre
-
binet -
binet -
Bonjour,
Est-il possible de recuperer des données d'un classeur Excel vers un autre (par exemple de "toto.xls" vers "tata.xls") sans que le classeur d'ou viennent les données s'ouvre. J'ai essayé avec un Workbooks.open, mais la feuille devient visible.
Existe-il un moyen de ne l'ouvrir que en tache de fond, et de la refermer quand toutes les données sont récupérées ?
Merci d'avance
Est-il possible de recuperer des données d'un classeur Excel vers un autre (par exemple de "toto.xls" vers "tata.xls") sans que le classeur d'ou viennent les données s'ouvre. J'ai essayé avec un Workbooks.open, mais la feuille devient visible.
Existe-il un moyen de ne l'ouvrir que en tache de fond, et de la refermer quand toutes les données sont récupérées ?
Merci d'avance
A voir également:
- Comment ouvrir un fichier excel masqué
- Comment ouvrir un fichier epub ? - Guide
- Comment ouvrir un fichier bin ? - Guide
- Comment ouvrir un fichier dat - Guide
- Comment ouvrir un fichier docx ? - Guide
- Comment réduire la taille d'un fichier - Guide
4 réponses
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
binet
avec excel 2013 ca ne marche pas erreur de chargemetn de la dll
