Copier un document excels grace a VBA d'un fichier à un autre Résolu

Question

Bonjour, 

j'ai un fichier excels (fichierA) avec une macro qui me permet normalment d'ouvrir un autre fichier(fichierB) et de copier toutes les données d'une page et de l'inserer dans mon fichier A.

Voici la formule que j'utilise, est elle adapté?  ou est ce que j'ai commis une eureur? 

Sub MACopie()

 Dim shA As Worksheet           'Fichier A
 Dim wB As Workbook              'fichier B
  Set shA = Sheets("Page1")
  shA.Cells.ClearContents 'efface données
  Set wB = Workbooks.Open(Filename:="C:\Users\jules\Bibliothèques\Documents\S_ALRExtractor\S_ALR_0.xlsx")
  shA.Cells.Value = wB.Sheets(1).Cells.Value
  wB.Close False                         ' ferme sans sauvegarder
  Set wB = Nothing
  Set shA = Nothing

End Sub

f894009 · Answer

Bonjour,

ceci devrait aller:

Sub MACopie()
    Dim shA As Worksheet 'Fichier A
    Dim wB As Workbook 'fichier B
    
    Set shA = ThisWorkbook.Sheets("Page1")
    shA.Cells.ClearContents   'efface données
    Set wB = Workbooks.Open(Filename:="C:\Users\jules\Bibliothèques\Documents\S_ALRExtractor\S_ALR_0.xlsx")
    Set tbl = wB.Sheets(1).Cells.CurrentRegion
    x = tbl.Rows.Count
    y = tbl.Columns.Count
    shA.Range("A1").Resize(x, y).Value = tbl.Value
    wB.Close False ' ferme sans sauvegarder
    Set wB = Nothing
    Set shA = Nothing
End Sub

GillesLBVBoy · Answer

Bonjour,

vraiment merci beaucoup ta formule marche super bien.
je suis vraiment bleuffer.

cdlt

Copier un document excels grace a VBA d'un fichier à un autre

2 réponses

Votre réponse