Discussion :

[Runsh63]

Bonjour,

Dans une macro, je souhaite :

1/ Effacer les données d'entrée précédentes (pas de problème)

2/ Ouvrir un classeur Excel et copier des données (jusque là ça va)

3/ Aller coller ces données dans mon premier classeur sur l'onglet dans lequel j'ai effacé les données précédentes (là, je coince)

Que dois-taper pour arriver à ce résultat ?

Ci-dessous le code que j'ai tapé pour l'instant :

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
Sub ClearPreviousData()
 
'Permet de réinitialiser l'onglet contenant les données de départ et d'aller coller les nouvelles données à traiter
 
Dim LR1 As Long
 
Application.ScreenUpdating = False
 
    With Sheets("ORIGINAL DATA")
 
    .Range("A1:M1").EntireColumn.Delete
 
    End With
 
    Workbooks.Open Filename:="\\lithine2000\users$\071858\Bureau\Auveille\present.xls"
 
    With Workbooks("present.xls")
 
        With Sheets("Feuil1")
 
        LR1 = .Range("A" & .Rows.Count).End(xlUp).Row
 
        .Range("A1:M" & LR1).Copy 'et là j'imagine qu'il va falloir que je tape quelque chose du genre Destination: = ???
 
        End With
 
    End With
 
Application.CutCopyMode = False
Application.ScreenUpdating = True
 
End Sub

Merci d'avance !

[rvtoulon]

Bonjour,
pour ce faciliter les choses il faut identifier les classeurs. j'utilise les variables wk1 et wk2 pour cela.

ensuite comme 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
29
30
31
32
33
34
35
36
Sub ClearPreviousData()
 
'Permet de réinitialiser l'onglet contenant les données de départ et d'aller coller les nouvelles données à traiter
 
Dim LR1 As Long, wk1 As Workbook, wk2 As Workbook
 
Application.ScreenUpdating = False
 
'je définie le classeur 1
Set wk1 = ThisWorkbook
 
    With Sheets("ORIGINAL DATA")
 
    .Range("A1:M1").EntireColumn.Delete
 
    End With
 
'j'ouvre le classeur 2
Workbooks.Open Filename:="\\lithine2000\users$\071858\Bureau\Auveille\present.xls"
 
'je définie le classeur 2
Set wk2 = Workbooks("present.xls")
 
    With wk2.Sheets("Feuil1")
        LR1 = .Range("A" & .Rows.Count).End(xlUp).Row
 
        'je copy
        .Range("A1:M" & LR1).Copy wk1.Sheets("ORIGINAL DATA").Range("A1")
    End With
 
wk2.Close ' je ferme le classeur 2
 
Application.CutCopyMode = False
Application.ScreenUpdating = True
 
End Sub

[fring]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
'j'ouvre le classeur 2
Workbooks.Open Filename:="\\lithine2000\users$\071858\Bureau\Auveille\present.xls"
 
'je définie le classeur 2
Set wk2 = Workbooks("present.xls")

Juste pour info
tu peux directement faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set wk2 = Workbooks.Open Filename:="\\lithine2000\users$\071858\Bureau\Auveille\present.xls"

[rvtoulon]

bonjour fring,
merci pour la précision.
j'en prends note.

[Daranc]

essayes la modification dans la deuxième fenêtre
je n'ai pas tester en vrai grandeur
il te faut renseigner le nom du classeur dans la commande Windows

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub ClearPreviousData()
'Permet de réinitialiser l'onglet contenant les données de départ et d'aller coller les nouvelles données à traiter
Dim LR1 As Long
Application.ScreenUpdating = False
    With Sheets("ORIGINAL DATA")
    .Range("A1:M1").EntireColumn.Delete
    End With
    Workbooks.Open Filename:="\\lithine2000\users$\071858\Bureau\Auveille\present.xls"
    With Workbooks("present.xls")
        With Sheets("Feuil1")
        LR1 = .Range("A" & .Rows.Count).End(xlUp).Row

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
tabl = .Range("A1:M" & LR1).Value '
        End With
    End With
   Windows("ton_classeur_de_destination").Activate
   With Sheets("ORIGINAL DATA")
   .Range("A1:M" & LR1).Value = tabl
   End With

End Sub[/code]