D'une feuille à un fichiers

[Markal]

Bonjour tout le monde,
La question est simple, est-ce que je peux modifier le code ci-dessous pour qu'il verse les données saisies dans 'interrogations" dans un autre classeur ("X.xlsm") au lieu de l'envoyer dans la feuille "BDD" ?

Sub Bouton1_Cliquer()
Sheets("interrogations").Range("A2,B2,C2,F2,G2,H2").Copy Sheets("BDD").Range("A1").End(xlDown).Offset(1, 0)
Sheets("interrogations").Range("A2,B2,C2,F2,G2,H2").ClearContents

End Sub

Merci par avance et bonne journée !

 

[Lone-wolf]

Re : D'une feuille à un fichiers

Bonjour Markal,

Un essai avec ceci, en modifiant d'avance le chemin de destination.

Sub Test()
Dim wbs As Workbook, wbdest As Workbook

Set wbs = ActiveWorkbook
Set wbdest = Workbooks.Open(Filename:="C:\Users\Markal\Bureau\X.xlsm")

wbs.Sheets("interrogations").Range("A2:C2,F2:H2").Copy _
Destination:=wbdest.Sheets("interrogations").Range("A65536").End(xlUp)(2)
Application.DisplayAlerts = False
wbdest.Save
wbdest.Close
End Sub

A+ 😎

 

[Markal]

Re : D'une feuille à un fichiers

Merci Lone-wolf, c'est exactement ce que je cherchais !
Bonne journée

 

[Lone-wolf]

Re : D'une feuille à un fichiers

Bonne journée à toi aussi 😉


Amicalement Lone-wolf 😎

 

[Markal]

Re : D'une feuille à un fichiers

Une petite précision supplémentaire, je n'arrive à placer le "ClearContents" pour vider la ligne une fois que les infos ont basculer dans la bdd ?

Sub Bouton2_Cliquer()
Dim wbs As Workbook, wbdest As Workbook

Set wbs = ActiveWorkbook
Set wbdest = Workbooks.Open(Filename:="C:\mes_documents\test_bdd_communes\bdd.xlsx")

wbs.Sheets("Feuil1").Range("A2,B2,C2,D2").Copy _
Destination:=wbdest.Sheets("bdd").Range("A65536").End(xlUp)(2)
Application.DisplayAlerts = False
wbdest.Save
wbdest.Close
End Sub

 

[Lone-wolf]

Re : D'une feuille à un fichiers

Re Markal,

tu place ceci après wbdest.save.
Tu peux aussi modifier Range("A2, B2, C2, D2") par l'exemple donné.

'Range("A2:D2").Copy

wbs.Sheets("Feuil1").Range("A2:D2").ClearContents

A+ 😎

 

[Markal]

Re : D'une feuille à un fichiers

Parfait ! Sur la réponse et la réactivité.
très bonne journée à toi,

A+

 

[Lone-wolf]

Re : D'une feuille à un fichiers

Bonsoir Markal,

donc tout est OK.


Comme il est tard, je te souhaite une bonne nuit.


A+ 😎