Bonjour à tous !
Je suis actuellement en train de travailler sur un document Excel et ai besoin d'aide pour une fonction.
En effet j'ai deux feuilles nommés "query P32without AMZ" et "DATA" et j'aimerais créer un bouton qui copie (copier seulement à partir de la deuxième ligne) le contenu de la feuille "query P32without AMZ" et le colle dans ma première feuille "DATA".
Actuellement je possède ce code dans VBA :
Sub Update_FCST_CONSUMPTION()
' SI Data PORTFOLIO for consump.
Dim FilePath As String
Dim wb As Workbook
'HANA Update Actuals SI File
FilePath = "https://legogroup.sharepoint.com/sites/FranceIberiaOperations/SOP/SUBMISSION%20DOCUMENT/SUBMISSION%20DOCUMENT/Submission%20Tools/2023/CONSOLIDATION%20FILE/to%20update%20conso%20file/HANA%20update%20-%20ACTUALS%20SI%20by%20SDP%202023%20(v.merge)%20.xlsb"
Workbooks.Open Filename:=FilePath, ReadOnly:=False
Worksheets("query P32without AMZ").Activate
Call Application.Run("SAPExecuteCommand", "Refresh", "DS_1")
'Copypaste
Sheets("query P32without AMZ").Range("A2;K9000").Copy
Sheets("DATA").Activate
Range("A2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
Cependant le code ne marche pas, auriez--vous des pistes pour m'aider?
D'avance merci
Cordialement,
Max