Erreur copie Mauvaise colonne

[Aladin]

Boinjour le forum
Un petit souci sur la copie que je n' arrve pas à comprendre
1) La creation et le nouveau nom de la feuille sur le classeur Archives est ok
2) Sur le classeur archives la copie se fait à partir de la colonne C, normalement il doit se faire en colonne A1

Ci joint mon code

Dim Wb1 As Workbook

    Sheets("Presse").Activate
    Dim WB2 As Workbook
    Dim Plg As Range, Derlgin As Long
    Application.ScreenUpdating = False
 ' If Weekday(Date) = 2 Then
    Set Wb1 = ThisWorkbook
    Set WB2 = Workbooks.Open("F:\Test\Archives.xls")
   ' Sheet("F2").Slect
    With Wb1.ActiveSheet
         
        Set Plg = .Range("A3:L500" & .Range("A65536").End(xlUp).Row)
    End With


   With WB2        '.Sheets("Archives")
        WB2.Worksheets.Add
        With ActiveSheet
            .Name = Format(Date, "dd-mm-yy") & " " & Format(Time, "hh""h""mm")
            Plg.Copy .Range("A1")
            .Columns("A:L").AutoFit
            Rows("1:2").Select
            Selection.Delete Shift:=xlUp
        End With
     End With

   '  End If

Merci d' avance si quelqu' un peut m' aider à comprendre
Aladin

 

[Bebere]

Re : Erreur copie Mauvaise colonne

bonjour Aladin
laissé la ligne fautive en commentaire Set Plg

Sub CopierColler()
    Dim Wb1 As Workbook
    Dim WB2 As Workbook
    Dim Plg As Range, Derlgin As Long

    Sheets("Presse").Activate

    Application.ScreenUpdating = False
    ' If Weekday(Date) = 2 Then
    Set Wb1 = ThisWorkbook
    Set WB2 = Workbooks.Open("F:\Test\Archives.xls")
    ' Sheet("F2").Slect
    With Wb1.ActiveSheet
        '     Set Plg = .Range("A3:L500" & .Range("A65536").End(xlUp).Row)
        Set Plg = .Range("A1:L" & .Range("A65536").End(xlUp).Row)
    End With

    WB2.Worksheets.Add

    With WB2.ActiveSheet
        .Name = Format(Date, "dd-mm-yy") & " " & Format(Time, "hh""h""mm")
        Plg.Copy .Range("A1")
        .Columns("A:L").AutoFit
        Rows("1:2").Select
        Selection.Delete Shift:=xlUp
    End With

    WB2.Close savechanges:=True

End Sub

 

[herve62]

Re : Erreur copie Mauvaise colonne

Bonjour
Je viens de tester le bout de code ... ca marche
je mets mes 2 classeurs de test ( j'ai fait en debogage Pas A Pas ) sans soucis
A toi de Tester ; ( test.xls est la destination , modifie le chemin dans classeur1.xls)

Ou alors il y a du code ailleurs qui perturbe ?

 

[Aladin]

Re : Erreur copie Mauvaise colonne

Bonjour Bebere et herve62, et le forum
Merci pour les réponses, j' ai refait des test et tout est ok
Aladin