[VBA - Ouvrir un classeur en masqué Résolu

Question

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

DjSKeud · Accepted Answer

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

tintin · Answer

Merci beaucoup !

Marche impec :)

ouali · Answer

merci pour ce code

pijaku · Answer

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.

[VBA - Ouvrir un classeur en masqué

4 réponses

Newsletters