Copier un document excels grace a VBA d'un fichier à un autre
Résolu/Fermé
A voir également:
- Copier un document excels grace a VBA d'un fichier à un autre
- Fichier rar - Guide
- Signer un document word - Guide
- Comment ouvrir un fichier apk ? - Guide
- Comment réduire la taille d'un fichier - Guide
- Ouvrir un fichier .dat - Guide
2 réponses
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
Modifié le 20 sept. 2017 à 14:07
Modifié le 20 sept. 2017 à 14:07
Bonjour,
ceci devrait aller:
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