Résolu XL 2013 Liaison deux fichiers excel

vinciHorus

XLDnaute Junior
Bonjour

J'aimerais savoir si c'est possible de copier l'onglet d'un fichier excel vers un autre fichier excel via un bouton ? si oui comment le faire?

j'ai essayé l'enregistreur de macro mais cela n'a rien donné
 
Ce fil a été résolu! Aller à la solution…

Fichiers joints

_Thierry

XLDnaute Barbatruc
Bonjour @vinciHorus , le Forum

Tu as deux options pour le prix d'une ! ;)

VB:
Sub CopySheet_If_Both_WorkBooks_Open()
Dim WB1 As Workbook, WB2 As Workbook
Dim WS As Worksheet

Set WB1 = ThisWorkbook
Set WB2 = Workbook("Classeur2.xlsm")
Set WS = WB1.Worksheets("Feuil1")

WS.Copy Before:=WB2.Worksheets(1)

End Sub

VB:
Sub CopySheet_To_Closed_WorkBook()
Dim WB1 As Workbook, WB2 As Workbook
Dim WS As Worksheet
Dim FullPath As String

Set WB1 = ThisWorkbook
Set WS = WB1.Worksheets("Feuil1")

FullPath = WB1.Path & "\Classeur2.xlsm"

Set WB2 = Workbooks.Open(FullPath)
WS.Copy Before:=WB2.Worksheets(1)
WB2.Close True

End Sub

Voilà pas si compliqué.

Bonne journée
@+Thierry
 
Ce message a été identifié comme étant une solution!

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas