Copier des données d'un fichier Excel à un autre

Version imprimable

Bonjour à tous,

je reviens vers vous pour un nouveau soucis ! Je m'explique, j'aimerais pouvoir récupérer des données écrit dans un fichier Excel dans un autre me permettant d'archiver tout cela.

Mon code ressemble à cela pour le moment :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Sub ChangementOF() Dim Chemin$, Nom$, Fichier$, Dossier$ Chemin = "U:\Projet David\" Nom = Range("K2") Fichier = Nom & ".xls" Dossier = Range("L1") 'Selectionne le chemin et sauvegarde dans le dossier spécifier ou le crée si il est inexistant If Dir(Chemin & Dossier, 16) = "" Then MKDIR Chemin & Dossier ActiveWorkbook.SaveAs Chemin & Dossier & "\" & Fichier 'Réouvre le fichier Excel de base Workbooks.Open Filename:="U:\Projet David\TEST TEST.xls" 'Placer le fichier de base comme actif Workbooks("TEST TEST").Activate 'Repositionnement de la cellule selectionné sur l'OF à remplir Range("B11").Select End Sub
J'aimerais y rajouter les opérations suivante :

- Copier les cellules B11;E11;G11;I51 qui corresponde au numéro de commande, sa désignation, le numéro du lot puis la date
- Coller dans un autre fichier Excel 'Archivage' ces cellules dans la ligne A puis sauvegarder.
- Sinon les coller à la suite (ligne 2,3,4,...) puis sauvegarder

Au final j'aurais donc mon fichier Excel de sauvegardé avec les colonnes:

- Numéro de commande
- Désignation
- Lot
- Date

et les lignes de chaque fichier Excel correspondante.

En espérant que vous me comprendrais et pourrait m'aider
Merci

12/05/2014, 11h15
casefayere

cette partie manque de précisions

Citation:

- Copier les cellules B11;E11;G11;I51 qui corresponde au numéro de commande, sa désignation, le numéro du lot puis la date
- Coller dans un autre fichier Excel 'Archivage' ces cellules dans la ligne A puis sauvegarder.
- Sinon les coller à la suite (ligne B,C,D,...) puis sauvegarder

1 - il faut que ça corresponde au numero de commande ou à tout
2 - le fichier "archivage" existe ?, si oui contient-il des données, faut-il écrire à la suite ?
3 - que veut dire "sinon"

Citation:

Envoyé par casefayere

cette partie manque de précisions
1 - il faut que ça corresponde au numero de commande ou à tout

J'aurais le fichier avec en A1 "Numéro de commande"; B1 "Désignation" ; C1 "Lot".
Les cellules copié de l'autre fichier Excel B11;E11;G11 correspondent respectivement au Numéro de commande;Désignation(de cette commande);Lot(de cette commande toujours)

Citation:

Envoyé par casefayere

2 - le fichier "archivage" existe ?, si oui contient-il des données, faut-il écrire à la suite ?

Le fichier Archivage je vais le créer oui. Il ne contiendra pas de donné pour la toute 1ere commande mais une fois la 1ere commande copié, oui il contiendra la 1ere ligne de donné sauvegardé et il faudra donc écrire à la suite les prochaine commande.

Citation:

Envoyé par casefayere

3 - que veut dire "sinon"

Le sinon veut justement dire que lorsque par exemple la ligne 1 (donc A1;B1;C1) sont remplis, les données se copieront dans les cases A2;B2;C2 ainsi de suite.

Bon j'ai un peu avancé, mon code ressemble à cela maintenant mais j'ai un soucis.. J'arrive à copier une ligne, mais a chaque fois que j'active cette macro, forcément la ligne 2 est pleine, et le nouveau fichier que j'aimerais enregistrer supprime les anciennes valeurs pour les remplacer. Comment faire pour que la macro cherche la ligne vide du dessous et remplisse celle ci plutôt que celle ayant déjà des valeurs ? Voici mon code entier si c'est utile :
Code:

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 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 Sub ChangementOF() Dim Chemin$, Nom$, Fichier$, Dossier$, CheminArchivage$, NomArchivage$, FichierArchivage$, DossierArchivage$ Chemin = "U:\Projet David\" Nom = Range("K2") Fichier = Nom & ".xls" Dossier = Range("L1") CheminArchivage = "U:\Projet David\Archivage 2014" NomArchivage = "Archivage" FichierArchivage = Nom & ".xls" DossierArchivage = Range("L2") ClasseurArchivage = "U:\Projet David\Archivage 2014\Archivage.xls" 'Selectionne le chemin et sauvegarde dans le dossier spécifier ou le crée si il est inexistant If Dir(Chemin & Dossier, 16) = "" Then MKDIR Chemin & Dossier ActiveWorkbook.SaveAs Chemin & Dossier & "\" & Fichier 'Copie les valeurs nécessaire dans le fichier d'archivage Windows(Fichier).Activate Range("B11").Select Application.CutCopyMode = False Selection.Copy Workbooks.Open Filename:=ClasseurArchivage Windows("Archivage.xls").Activate Range("A2").Select ActiveSheet.Paste Windows(Fichier).Activate Range("L5").Select Application.CutCopyMode = False Selection.Copy Windows("Archivage.xls").Activate Range("D2").Select ActiveSheet.Paste Windows(Fichier).Activate Range("G11").Select Application.CutCopyMode = False Selection.Copy Windows("Archivage.xls").Activate Range("F2").Select ActiveSheet.Paste Windows(Fichier).Activate Range("F26").Select Application.CutCopyMode = False Selection.Copy Windows("Archivage.xls").Activate Range("H2").Select ActiveSheet.Paste Windows(Fichier).Activate Range("I51").Select Application.CutCopyMode = False Selection.Copy Windows("Archivage.xls").Activate Range("K2").Select ActiveSheet.Paste Application.CutCopyMode = False ActiveWorkbook.Save Windows(Fichier).Activate 'Réouvre le fichier Excel de base Workbooks.Open Filename:="U:\Projet David\TEST TEST.xls" 'Placer le fichier de base comme actif Workbooks("TEST TEST").Activate 'Repositionnement de la cellule selectionné sur l'OF à remplir Range("B11").Select End Sub
Et le morceau de code concerné par le soucis :
Code:

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 29 30 31 32 33 34 35 36 37 38 39 40 41 'Copie les valeurs nécessaire dans le fichier d'archivage Windows(Fichier).Activate Range("B11").Select Application.CutCopyMode = False Selection.Copy Workbooks.Open Filename:=ClasseurArchivage Windows("Archivage.xls").Activate Range("A2").Select ActiveSheet.Paste Windows(Fichier).Activate Range("L5").Select Application.CutCopyMode = False Selection.Copy Windows("Archivage.xls").Activate Range("D2").Select ActiveSheet.Paste Windows(Fichier).Activate Range("G11").Select Application.CutCopyMode = False Selection.Copy Windows("Archivage.xls").Activate Range("F2").Select ActiveSheet.Paste Windows(Fichier).Activate Range("F26").Select Application.CutCopyMode = False Selection.Copy Windows("Archivage.xls").Activate Range("H2").Select ActiveSheet.Paste Windows(Fichier).Activate Range("I51").Select Application.CutCopyMode = False Selection.Copy Windows("Archivage.xls").Activate Range("K2").Select ActiveSheet.Paste Application.CutCopyMode = False ActiveWorkbook.Save Windows(Fichier).Activate

Re,

Je n'ai pas trop le temps, ni ce soir, ni demain mais si j'ai compris, et du vite fait, pour remplacer tes "Select", "copy", et "Paste"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
...
Dim DerLg As Long
 ...
   With Workbook("Archivage.xls").Sheets("le nom de ta feuille")
      DerLg = .Range("A" & .Rows.Count).End(xlUp).Row + 1
      .Range("A" & DerLg) = Workbook(Fichier).Range("B11")
      .Range("D" & DerLg) = Workbook(Fichier).Range("L5")
      .Range("F" & DerLg) = Workbook(Fichier).Range("G11")
      .Range("H" & DerLg) = Workbook(Fichier).Range("F26")
      .Range("K" & DerLg) = Workbook(Fichier).Range("I51")
    End With
    ActiveWorkbook.Save
....

13/05/2014, 08h13
Banshor

Merci, mais pour le moment j'ai un message d'erreur (Erreur de compilation : Sub ou fonction non définie).

Il me surligne en jaune

Code:

Sub ChangementOF()

Et me sélectionne le mot Workbook dans

Code:

With Workbook("Archivage.xls").Sheets("ArchivageBase")

J'ai pensé à rajouter un

Code:

Dim wb As Workbook

et modifier tous les Workbook en wb comme je l'ai déjà vu dans d'autres posts.. mais ça ne fonctionne pas. Je test sans vraiment connaitre ^^
13/05/2014, 21h04
AlainTech

Bonjour,

C'est Workbooks car on va désigner un Workbook dans la collection des Workbooks.

Bonjour, depuis j'ai avancé tout seul en espérant trouver la solution mais rien n'y fais je n'y arrive pas. Je cherche à ce que dans 5 colonnes différentes je récupère 5 valeurs différentes d'un autre fichier Excel afin de les copier à la suite à chaque fois que lui demande.

Code:

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
Windows(Fichier).Activate
    Range("L50").Value = Range("B11").Value
    Range("L50").Select
    Application.CutCopyMode = False
    Selection.Copy
    Workbooks.Open Filename:=ClasseurArchivage
    Windows("Archivage.xls").Activate
    If Range("A2").Value = "" Then
    ActiveSheet.Paste
    Else
    Range("A65000").End(xlUp).Offset(1).Select
    ActiveSheet.Paste
    End If
 
    Windows(Fichier).Activate
    Range("L5").Value = Range("E11").Value
    Range("L5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Archivage.xls").Activate
    If Range("D2").Value = "" Then
    ActiveSheet.Paste
    Else
    Range("D65000").End(xlUp).Offset(1).Select
    ActiveSheet.Paste
    End If
 
    Windows(Fichier).Activate
    Range("L49").Value = Range("G11").Value
    Range("L49").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Archivage.xls").Activate
    If Range("F2").Value = "" Then
    ActiveSheet.Paste
    Else
    Range("F65000").End(xlUp).Offset(1).Select
    ActiveSheet.Paste
    End If
 
    Windows(Fichier).Activate
    Range("L52").Value = Range("F26").Value
    Range("L52").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Archivage.xls").Activate
    If Range("H2").Value = "" Then
    ActiveSheet.Paste
    Else
    Range("H65000").End(xlUp).Offset(1).Select
    ActiveSheet.Paste
    End If
 
    Windows(Fichier).Activate
    Range("L25").Value = Range("I51").Value
    Range("L25").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Archivage.xls").Activate
    If Range("K2").Value = "" Then
    ActiveSheet.Paste
    Else
    Range("K65000").End(xlUp).Offset(1).Select
    ActiveSheet.Paste
    End If

Mais rien à faire. Il me copie la 5eme valeur en A2 et ce à chaque fois que je répète l'opération.
Et le reste ne se copie pas. En trifouillant la macro dans tous les sens, j'ai l'impression que toutes les valeurs se superpose en A2 jusqu’à ce que la dernière se copie puis lorsque je répète l'opération il le refait mais en A3;A4;etc....