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 :
J'aimerais y rajouter les opérations suivante :
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
- 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
Partager