Macro pour copier le contenu d'un document excel vers un autre

Macro pour copier le contenu d'un document excel vers un autre - VB/VBA/VBS - Programmation

Marsh Posté le 15-12-2011 à 16:07:03    

Bonjour
j'ai un souci car n'ayant aucune connaissance en VB et Macro, je dois faire une macro qui me permettra de copier le contenu de toutes les feuilles d'un document excel vers un autre document excel. Que'lqu'un pourrait-il m'aider ou m'orienter vers des documents rapidement pris en main. Merci

Reply

Marsh Posté le 15-12-2011 à 16:07:03   

Reply

Marsh Posté le 16-12-2011 à 19:56:01    

Salut, surement à adapter pour la plage à copier , les 3 propositions fonctionnent , donc à toi de poursuivre
 

Option Explicit
 
Sub CopieFeuilles()
Dim Ws As Worksheet
Dim Wkb As Workbook
    Application.ScreenUpdating = False
    Set Wkb = Workbooks.Add
    For Each Ws In ThisWorkbook.Worksheets
        'Ws.UsedRange.Copy Wkb.ActiveSheet.Range("A" & Rows.Count).End(xlUp)(2)
        'Ws.UsedRange.Copy Wkb.ActiveSheet.Range("A" & Rows.Count).End(xlUp).Offset(1)
        Ws.Range("4:" & Ws.Range("A" & Rows.Count).End(xlUp).Row).Copy _
                Wkb.ActiveSheet.Range("A" & Rows.Count).End(xlUp)(2)
    Next Ws
 
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "Test Concatenation.xls", FileFormat:=xlNormal
    ActiveWindow.Close
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub


Message édité par kiki29 le 16-12-2011 à 23:21:39

---------------
Myanmar 90/91 : http://gadaud.gerard.free.fr/publi [...] index.html
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed