Discussion :

[jackbauer972]

Bonjour à tous,

Je vous expose mon problème pour que vous disiez s’il a une solution.
En fait, j’ai un fichier excel qui sert de base d’extraction de données et de calculs statistiques que je vais appeler BLM.
Ce fichier est censé extraire toujours les mêmes valeurs d’autres fichiers excels (nommés : PDU).
Dans le fichier BLM, j’ai une feuille où l’opérateur doit entrer les coordonnées des cellules que la va macro va ensuite d’extraire des fichiers PDU et les envoyer dans un fichier Résultat.
C’est à dire, l’opérateur entre par exemple dans le fichier BLM (feuille extract) B38.

La macro devra alors ouvrir le fichier PDU, extraire la valeur située dans la cellule B38 et la copier dans une feuille résultat située dans le fichier BLM.
La macro devra faire cela pour tous les fichiers PDU situés dans le même dossier.

J’espère avoir été bien clair. Ma question est donc est-il possible de créer un code qui permet de faire ceci.

Merci d’avance à vous tous

[Thomas69]

oui c'est tout a fait possible
il ya meme deja des gens qui ont fait ce genre de macro
cherche les et inspire toi en

[ouskel'n'or]

Oui, c'est possible : Tout est possible (ou presque) tout est réalisable (ou presque)
Par contre une chose m'intrigue : C'est pas mon affaire mais comment l'opérateur saura-t-il que c'est la cellule B38 ?

Pour ton pb, tu as plusieurs solutions
Soit tu travailles à partir de l'adresse de la cellule que l'opérateur doit renseigner, donc de la feuille de calculs, soit à partir d'un bouton dans une barre d'outils ou de la feuille de calculs.
La macro va donc se trouver dans le fichier BLM.
Elle devra, dans une boucle, lister les fichiers du répertoire et, les ouvrir tour à tour, copier la valeur de la cellule renseignée, la coller dans BLM, fermer le fichier et passer au suivant.
Deux questions : Comment seront placées les nouvelles données dans BLM (à lasuite par ligne, à la suite par colonne ? Dans quelle feuille ? feuille extract ? une autre ?
Une fois ces points au clair, restera plus qu'à...
Fais déjà ce que tu penses pouvoir faire et quand tu as un pb de syntaxe, tu nous dis
A+ donc.

[jackbauer972]

En fait l’opérateur aura à remplir la première fois la feuille extract et par la suite, il n’aura plus à y toucher. En effet, tous les fichiers à extraire garde la même syntaxe car ce sont des rapports de bancs de test. L’opérateur aura donc juste à en ouvrir un la première fois, renseigner tous les champs et par la suite tout sera fait automatiquement.

Les données extraites seront placées ensuite dans une feuille « résultat » du fichier BLM à la suite par colonne.

Une dernière question, est ce que l’opérateur doit rentrer dans la feuille extract seulement B38 comme coordonnées ou bien $B$38 ou autre chose ?

Merci

[ouskel'n'or]

B38 ou $B$38, dans ce cas précis, l'un ou l'autre.
Plusieurs questions : La macro devra-t-elle parcourir toutes les cellules renseignées de la feuille Extract pour connaître les données à copier dans les feuilles des fichiers PDU ? Auquel cas, dans la boucle listant les fichiers, tu devras insérer une boucle sur les cellules de la feuille Extract.
Enfin, dans quelle feuille les données seront-elles collées ?
(j'ai la réponse : Feuille Résultat)
A+

[jackbauer972]

Pour répondre à ta question la macro devra effectivement parcours toute la feuille extract.

J'ai une question, je ne sais pas comment faire pour que le parametre issu de la feuille extract (exemple B38) soit considéré comme une coordonnée lors de l'ouverture du fichier PDU.

J'ai essayé avec Cells.Find mais je seche!!!

As tu une idée brillante?

Merci d'avance

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks("PDU...").Worksheets("Résultat").Range("B38").value = ...

A ta place, pour simplifier le code je créerais l'instance de chaque feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim FL1 as worksheet
Set FL1 = Workbooks("PDU...").Worksheets("Résultat")

Ensuite, au lieu de nommer le classeur, puis la feuille, tu n'utilises que FL1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

FL1.Range("B38")= .......

Mais j'ai l'impression que tu as un autre pb qui se profile... Comment parcourir la plage de cellules de la feuille extract. Mais je me trompe peut-être
Si tu as un pb, tu dis
A+