Discussion :

[Faysparts]

Bonsoir a tous,

Je dispose d'une feuille1 excel ouverte dans laquelle j'ai tous mes noms de classeur excel fermes. Aussi je souhaiterai avoir une Macro qui me permetterai d'importer une plage de cellules depuis une feuille nomee "Clac" qui se trouve respectivement dans chacun des classeurs excel ferme et les placer dans la feuille2 de mon classeur actif dans lequel se trouve la dite feuille1 contenant la liste des mes classeurs fermes.

J'ai attaché un fichier resumant ce que je viens de d'ecrire, ci-dessus. En effet dans la colonne A de la feuille1 se trouve la liste de mes classeurs fermes avec le titre "Master". Surligne en jaune est un apercu de ce qU'on peut trouve dans la feuille "Calc" qui se trouve dans chaque classeur ferme "M.....".

Le paramettre variable de la plage de cellules a importer et que le nombre d'items n'est jamais le meme. En effet il peut y avoir 1 item, comme il peut y avoir quelques centaines. Cependant en bas de chaque liste de pieces il y a une annotation "Total Ex Works" une des cellules de la colonne C de ma feuille "Calc".

A chaque fois que la Macro importe une plage complete dans la feuille2 de mon classeur actif je souhaiterai qu'il y est 2 lignes qui separe, par exemple la premiere plage de la feuille "Calc" du classeur M20056 et la deuxieme plage de la feuille "Calc" du classeur M21536...etc. Ainsi le resultat final se trouvant dans la feuille2 de mon classeur actif affichera une cascade de donnees.

J'espere que quelqu'un trouvera une reponse efficace a ma requette.

Merci.

Faysparts.

[Faysparts]

Bonjour a tous,

Voici un autre resume de ce que j'ai decrit precedement, en esperant que ca sera plus clair.

Fichiers activf: G:\SALES\BU1 SPARE PARTS\PartsFinder.xlsm : Dans ce fichier se trouvent dans la colonne A de la feuille "Sheet1" les noms des fichiers fermes (ex: M22222, M21563...etc.). Aussi dans ce meme fichier se trouve la feuille "Sheet2" dans laquelle je souhaite superposer les plages importees du fichier ferme, ci-dessous.

Fichiers fermes: G:\SALES\MASTER\[Mxxxxx.xlsm]

Plage a importer: 'G:\SALES\MASTER\[Mxxxxx.xlsm]Calc'!$A$13:$J$... le numero de la ligne doit coninsider avec la valeur "Total Ex Works" dans la colonne C. En effet la valeur "Total Ex Works" n'est pas toujours dans la meme cellule de la colonne C car elle depend dun nombre d'items a chiffrer. Ainsi la plage peut aussi bien contenir une seule ligne (A13:J13), comme elle peut aussi bien contenir quelques centaines de lignes (A13:J256) suivant le nom du classeur/fichier nomme Mxxxx.xlsm dans le fichier actif PartsFinder.xlsm.

[SfJ5Rpw8]

Bonsoir,


ben tu ouvre le classeur tu copie les données et tu referme le classeur..

[Faysparts]

Bonjour Bbil,

Merci. Cependant il n'y a pas qu'un seul fichier. En effet il peut y avoir un millier de fichiers a ouvrir, copier, coller et refermer.

J'aimerai que cette operation puisse etre effectuee de maniere automatique a partir d'une liste de fichiers selectionnes dans mon fichier actif nomme PartsFinder.

A suivre...

[SfJ5Rpw8]

Et donc .. tu connais déjà le code pour traiter ton 1° fichier ?

si oui il ne te reste plus qu'as l'adapter en effectuant une boucle pour tous tes fichiers ...


si Non .. ben commence déjà à écrire le code pour traiter 1 fichier ...!

[Faysparts]

Je ne sais pas comment faire une boucle.

Voici le code pour mon premier fichiner:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Macro3()
'
' Macro3 Macro
' Import Calc sheet contents
'
' Keyboard Shortcut: Ctrl+d
'
    Sheets("Sheet1").Select
    Range("J5").Select
    ActiveCell.FormulaR1C1 = "M19761"
    Range("J6").Select
    Sheets("Sheet2").Select
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "M19761"
    Range("A3").Select
'------------------------------------
   ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
        False, NoHTMLFormatting:=True
'----------------------------------------------
    Range("A9").Select
    Sheets("Sheet1").Select
    Range("J6").Select
End Sub

Ca bloque lorsque ca arrive a la partie en gras, ci-dessus. ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
False, NoHTMLFormatting:=True