[VBA] Recupérer des valeurs à partir d'un fichier excel dans une autre fichier excel

Bonjour à tous.

Voila, je travaille actuellement sous VBA et... j'ai quelques difficultés avec ce langage -_-

En fait, ce que je souhaite, c'est, à partir de mon fichier (nommé "EP"), récupérer des valeurs présentes dans un autre fichier qui aura pour nom la valeur d'une variable (par exemple, si la variable vaut "37001", le fichier sera "37001.xls").

Mais je dois avouer que, malgré mon acharnement, je n'ai pas réussi à résoudre ce problème.

Merci d'avance aux éventuelles aides apportées ^^

(PS : Il semble que j'ai fait une petite erreur de "placement" de mon sujet au moment de poster, je suis désolé pour cette erreur)

Tout dépend de l'état du fichier 37001.xls
- est il déjà ouvert ?
- si non où se trouve t-il ?

A+

Bonsoir et bienvenue sur nos forums...

En gros

Code:

---

1 2 3

dim wsSource as workbook set wssource=workbooks.open(mavariable)

---

Comme le souligne PPz78, il faudrait des précisions sur ce que contient cette variable. Si elle ne contient que le nom du fichier sans son chemin, il faudra bien entendu recomposer le nom complet (chemin + nom), par exemple

Code:

---

1 2 3 4 5 6

dim Chemin as string dim wsSource as workbbok   chemin="d:\données\" mavariable = chemin & mavariable set wssource=workbooks.open(mavariable)

---

Il est important de savoir d'abord exactement ce que tu souhaites avant de tenter de le traduire en code.

Merci pour vos réponses ^^

En fait, les fichiers (37001 jusqu'a 37275) se trouvent dans un sous-dossier appelé "AUDIT" qui est dans le même dossier que le fichier "EP"

Et les fichiers 37xxx ne sont pas ouvert, le but de la manipulation étant de récupérer des valeurs sans avoir à les "consulter" (mon fichier "EP" sera un récapitulatif de l'ensemble des fichiers "37xxx" en quelque sorte)

J'avais bien reconstituer le chemin mais je pense que la méthode que j'ai utilisé n'était pas la bonne dans mon cas (quelque chose qui ressemblait à ca "Workbook(mavariable).Sheet(Feuil1).Cells(A1).Value" [désolé pour la possible inexactitude du formaliste, n'ayant pas mon projet sous les yeux, celui-ci étant dans le PC de l'entreprise où je suis en stage, j'ai un léger doute ^^] pour récupérer des valeurs) mais il n'acceptait pas le nom de fichier "mavariable" mais il marchait quand je passais le nom du fichier "en dur".

Voila, j'espère avoir été clair et ne pas m'être trop emmêlé ^^

Il y a plusieurs techniques pour récupérer les valeurs d'un fichier fermé...

1. l'ouvrir... C'est en gros la solution que je te donnes. Puisque les fichiers à ouvrir sont dans le même dossier, on peut faire

Code:

---

1 2 3 4 5 6

dim wsCible as workbook set wscible=workbooks.open(thisworkbook.path & "\" & mavariable ... ... ... wscible.close

---

La série des ... représente le code de récupérations de données, que je ne sais développer davantage sans éclairage de ta part sur ce qu'il y a à récupérer...

Il y a une autre méthode qui récupère les données du classeur fermé...
tu trouveras cela ici.

Citation:

---

Envoyé par MarilynMaxich

Merci beaucoup pour ta réponse.

J'avais déjà jeté un coup d'oeil sur la 2è méthode mais je l'avais trouvé un peu "complexe" et surtout, rien que de voir la tête que ça avait, ça ne m'a pas donné envie de m'y plonger ^^

Pour la suite, ça devrait aller, mais si j'ai besoin d'aide, je n'hésiterai pas à repasser ^^

Merci encore pour l'aide !

---

En fait, jaurai une derniere petite chose à demander... C'est comment faire pour ouvrir le fichier (ça, je sais faire) à la bonne feuille ?

Je m'explique, mon fichier 37xxx est composé de 4 feuilles, et lors de son ouverture, je souhaite afficher la feuille "Feuil3".