Sujet Précédent Sujet Suivant

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

Résolu/Fermé
GillesLBVBoy - 20 sept. 2017 à 11:49
 GillesLBVBoy - 21 sept. 2017 à 11:49
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
A voir également:

2 réponses

Réponse 1 / 2
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
Modifié le 20 sept. 2017 à 14:07
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
1
Réponse 2 / 2
GillesLBVBoy
21 sept. 2017 à 11:49
Bonjour,

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

cdlt
0

Discussions similaires

Chemin Logo du site de la Cité de l'espace
Keiios -
blux -

11 réponses
comment donner les droits sur fichier partage
ch'ti du 57 -
fil1958 -

2 réponses
ouverture d'un fichier excel à partir d'un code VBA
TraderAS -
pijaku -

3 réponses