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 !
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 !