Bonjour,
J'ai un code que j'utilisais pour copier et mettre en forme des données d'une feuille à une autres sur le même fichier. Que voici
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
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
'''''''''''''''''''''''''' Vider la feuille de ces données ''''''''''''''''''''''''''''
 
Dim TTligne As Long
'On cherche la ligne ou copie le tableau dans la feuille de destination
TTligne = Feuil10.Cells(Rows.Count, 1).End(xlUp).Row
 
Feuil10.Range("A2:J" & TTligne).Clear
 
 
'''''''''''''''''''''' Copier de données de la feuille ODPriority ''''''''''''''''''''''
 
' Définition de la feuille de données source et le feuille de destination
Dim wks_origine As Worksheet
Dim wks_destin As Worksheet
 With ThisWorkbook
        Set wks_origine = .Worksheets("OD_PRIORITY")
        Set wks_destin = .Worksheets("Donnees_access")
End With
 
'Définition des variable
Dim dernl1 As Long, dernl2 As Long, dernl As Long
Dim ligncop As Long
Dim tablo_col As Variant
Dim h As Integer
Dim col As Variant
 
'Définition des numéro de colonne des données source
tablo_col = Array(12, 10, 11, 9, 13, 29, 34, 35, 23, 25)
 
'On défini la colone de référence à 0
h = 0
 
'On cherche la ligne ou copie le tableau dans la feuille de destination
ligncop = Feuil10.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
 
'On va chercher la derniere ligne de la feuille des données sources
With wks_origine
        dernl1 = .Range("AK2:AK" & .Rows.Count).Find(what:="N", searchdirection:=xlPrevious, searchorder:=xlByRows, LookIn:=xlValues).Row
        dernl2 = .Range("AK2:AK" & .Rows.Count).Find(what:="O", searchdirection:=xlPrevious, searchorder:=xlByRows, LookIn:=xlValues).Row
        dernl = Application.WorksheetFunction.Max(dernl1, dernl2)
 
'on fait la copie dans le feuille de destination
        For Each col In tablo_col
                h = h + 1
                .Range(.Cells(2, col), .Cells(dernl, col)).Copy
                wks_destin.Cells(ligncop, h).PasteSpecial xlPasteValuesAndNumberFormats
        Next col
End With
'Reset le presse papier
Application.CutCopyMode = False
'On ferme les liens
Set wks_destin = Nothing
Set wks_origine = Nothing
Aujourd'hui je voudrais modifier ce code pour scinder le fichier en 2. Car j'ai besoin de 2 fichiers, un qui va faire toute les opérations que j'ai besoin mais que je ne doit pas enregistrer. Et le seconde c'est un fichier que je doit enregistrer avec les données qui ont été traité par le premier fichier.
Pouvez vous me dire comment je peux faire pour réaliser cette manipulation en VBA ? car je ne vois pas très bien comment construire ce nouveau code avec les liens des 2 fichiers. Pour initialiser les chemin et les variable, qu'il me supprime les données qui sont présente et qu'il colle les nouvelles données. En gardant la construction de copier/coller

Merci d'avance