XL 2013 Liaison deux fichiers excel

vinciHorus · 1 Juillet 2020

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é

_Thierry · 3 Juillet 2020

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

_Thierry · 3 Juillet 2020

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

XL 2013 Liaison deux fichiers excel

vinciHorus

XLDnaute Junior

Pièces jointes

_Thierry

_Thierry

XLDnaute Barbatruc

Discussions similaires