Salut,
Juste pour expliquer rapidement le code.
Cette ligne déclare un nouveau classeur:
Cette ligne ouvre le fichier passé en paramètre et l'assigne au nouveau classeur :
Code :
- Set wb = .Workbooks.Open(...)
|
Si tu regardes la structure de l'objet tu vois que Workbook (classeur) possède des Sheets (feuilles) qui lui contient des lignes et colonnes.
En clair il faut que tu transforme ta procédure Sub Import() pour soit en faire une fonction Function Import(currentWb As Workbook) qui prend en paramètre l'objet Workbook courant, soit dans ta procédure tu récupères simplement l'objet Workbook courant et tu lui ajoute une feuille dans laquelle tu placeras les données.
Pour le détail il faudrait que tu te réfères à la documentation disponible sur MSDN : http://lmgtfy.com/?q=excel+vba+msdn
Message édité par Requin le 16-11-2011 à 15:40:14