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 : 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
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