Application.Workbboks - Renseignement

[Rapheux]

Bonjour à tous,

Dans une de mes macros, j'ai besoin de venir lire/ecrire dans un fichiers excel fermé. Petit bémole, il se peux que le fichiers fermé n'ai pas toujours le meme nom, car il sagit d'un fichier dupliqué tout les mois avec le nom du mois en titre, bref !

J'utilise ceci actuellement :

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheets As Excel.Worksheet

‘Initialisation d’Excel
Set xlApp = CreateObject(“Excel.Application”)
Set xlBook = xlApp.Workbooks(“Chemin vers le fichier Excel”)
Set xlSheets = xlBook.Worksheets(1)

Problème c'est que sa m'oblige de spécifier l'adresse exacte du fichier, est il possible de faire la meme chose avec une boite de dialogue de recherche de fichier ?

Merci d'avance,
Rapheux

 

[Rapheux]

Re : Application.Workbboks - Renseignement

Problème résolue !

En fait de 1 y avait une coquilel dans le code, il faut utiliser
Set xlBook = xlApp.Workbooks.Open(“Chemin vers le fichier Excel”)

puis utiliser :
Set xlBook = xlApp.Workbooks.Open(Application.GetOpenFilename())

Si sa peux dépanner certains !