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

Excellerateur

XLDnaute Occasionnel
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

XLDnaute Barbatruc
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 ;)
 

Discussions similaires