[VBA] open d'un fichier / nom est en variable

Fermé
kolitchev - 18 mai 2007 à 12:48
 Beckett299 - 16 avril 2010 à 03:05
[VBA] open d'un fichier dont le nom est en variable


Bonjour,

La réponse de l'utilisateur, au travers d'une boite de dial à 2 zones de liste est "traduite"en clair dans un feuille Table et concaténée en C28
(Table!open) sous la forme d'un nom de fichier type R01mh.xls ou R48lt.xl ou R01 (type) provient de la 1ere liste et mh (initiale utilisateur) provient de la 2nde.

L'ensemble des fichiers R01xx et R48xx (environ 30) se trouvent dans la même DIR.


Comment ouvrir ce fichier (en Table!"C28") afin d'en importer les donnée dans ma feuille de calcul ?

Je coince!

Merci d'avance ....

5 réponses

EBasta Messages postés 37 Date d'inscription mercredi 16 mai 2007 Statut Membre Dernière intervention 25 mai 2007 31
18 mai 2007 à 14:09
Bonjour,

Pour ouvrir un classeur sour Excel, en VBA, la commande est :
Workbooks.Open Filename:="Chemin\NomDuClasseur.xls"

Donc, à partir de là, la procédure pourrait être :

Sub OuvrirClasseur()

Dim strFichier As String

'Remplacer "Chemin" par le chemin complet du répertoire
'où se trouve le classeur à ouvrir, correspondant à DIR...
'Par exemple "C:\Applications\Excel"

Const strRepertoire = "Chemin"

strFichier = Sheets("Table").Cells(28, 3).Value

Workbooks.Open Filename:=strRepertoire & "\" & strFichier

End Sub

J'espère que cela peut aider...