Discussion :

[aerolulu]

Bonjour,

Alors je n'ai pas pu trop chercher de reponses a ma question car je ne sais pas vraiment comment formuler la question.

J'ai des fichiers mensuels crees a partir du meme modele et je souhaiterais recuperer une dizaine de cellules dans chaque fichier pour les copier vers une feuille unique pour resumer mes statistiques mensuelles.

En gros, sur ma "master spreadsheet", J'aurais dans mon idee les mois en lignes et mes 10 colonnes avec mes valeurs (nombre decimaux seulement).

Mon idee etait de partir selon ce modele:
- recuperer le nom de fichier en me laissant le selectionner manuellement (il s'avere que tous les fichiers n'ont pas le meme nom du fait des revisions multiples),
- apres il y a l'operation copier/coller mes valeurs depuis ce fichier vers ma spreadsheet, si possible sur la premiere ligne disponible de facon automatique.

Pour l'instant ma fonction pour selectionner le fichier marche mais le reste c'est tres flou. Merci a ceux qui pourront donner quelques conseils/coup de main

Bonne soiree,

Remy

[mercatog]

Bonjour,
un sujet proche à adapter
http://www.developpez.net/forums/d80...consolidation/

[Thewil]

Bon j'aide ce cher monsieur aerolulu mais j'ai un petit soucis

En fait les choses à copier se présente de cette façon la :

1 2
3 4
5 6
7 8

Ces 8 champs sont à recopier dans une ligne dans un autre fichier excel.
J'ai donc fais ceci:

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
24
25
26
27
28
    Dim lafeuille As Variant
    Dim ouCopier As Integer
 
 
    Dim nomDestination As String
    ' Nom de la Master Spreadsheet
    nomDestination = "Historical Data-CONSOLIDATED.xls"
 
    lafeuille = ActiveSheet.Name
 
    ' On demande à l'utilisateur dans quelle ligne de la master spreadsheet il veux copier les données
    ouCopier = Application.InputBox("Sélectionner la ligne où copier les données", "Sélection")
 
    ' On active la feuille qui contient les données des mois
    Sheets(lafeuille).Activate
    Sheets(lafeuille).Select
    Range("B12,D12,B20,D20,B27,D27,B33,D33").Select
    Selection.Copy
 
    ' On copie ces valeurs dans la ligne de la master spreadsheet qui nous intéresse
    Windows(nomDestination).Activate
    Sheets("DATA").Activate
    Sheets("DATA").Select
 
    Range("E" & ouCopier & ":L" & ouCopier).Select
    Range("E" & ouCopier).Activate
    Sheets("DATA").Range("E" & ouCopier).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
         False, Transpose:=True

Et le problème c'est qu'au lieu d'avoir cela dans la ligne désirée :
1 2 3 4 5 6 7 8

J'obtiens ceci :
1 3 5 7
2 4 6 8

Auriez vous une petite idée pour remédier à ça svp ??


Merci