XL 2019 Copier tout un tableau d'une feuille et le coller sur une autre feuille.

Excellerateur · 6 Septembre 2022

Bonjour,

je cherche à ouvrir un extract à partir du répertoire puis copier toutes les données et les coller sur une nouvelle feuille.

je vous joins la macro qui a été généré lorsque j'ai fait la manip.

VB:

Sub A_Création_extract_Bill()

' Crée un extract BILL sur nouvelle feuille

    Sheets("Bouttons").Select
    Worksheets.Add After:=ActiveSheet
    ActiveSheet.Name = "BILL"
    Workbooks.Open Filename:= _
        "\\C\Downloads\fichiers\EXPORT BILL.xlsx"

    
    Range("A1:O4900").Select
    Selection.Copy
    Windows("Classeur").Activate
    ActiveSheet.Paste
    Range("A1").Select
    Windows("EXPORT BILL.xlsx").Activate
    Application.CutCopyMode = False
    ActiveWindow.Close
    Windows("Classeur").Activate
    Range("A1").Select
    
'End Sub

Merci d'avance

Staple1600 · 6 Septembre 2022

Bonjour le fil, le forum

Une piste à creuser (et à finaliser)

VB:

Sub copie()
Dim WBKS As Workbook, Source
Set WBKS = Workbooks.Open(Filename:="\\C\Downloads\fichiers\EXPORT BILL.xlsx")
ThisWorkbook.Sheets.Add.Name = "BILL"
Source = WBKS.Sheets(1).Cells(1).CurrentRegion.Value2
ThisWorkbook.Sheets("BILL").Cells(1).Resize(UBound(Source, 1), UBound(Source, 2)) = Source
End Sub

NB: Test OK sur mon PC (mais en local, les classeurs sont sur le disque dur)
Il faudra ajouter le test d'existence de la feuille BILL sinon à la deuxième exécution on aura un joli message d'erreur

XL 2019 Copier tout un tableau d'une feuille et le coller sur une autre feuille.

Excellerateur

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

Discussions similaires