Bonjour,

j'essaye de copier les valeurs d'une sheet d'un workbook existante vers le workbook courrant (celui qui a déclenché l'évenement)

Voici mon code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Charger()
 Dim currentWB As Workbook
 Dim dataWB As Workbook
 Dim dataWS As Worksheet
 Dim currentDataWS As Worksheet
 
 Set currentWB = ActiveWorkbook
 Set dataWB = Workbooks.Open("D:\NewReport01.xlsx")
 Set dataWS = dataWB.Worksheets("Donnée")
 Set currentDataWS = currentWB.Worksheets("In-Outputs")
 
 currentDataWS.Cells(B, 1).Value = dataWS.Cells(A, 1).Value
 
End Sub
Dans cet exemple, j'essaye de copier la valeur de la cellule A1 de la sheet Donnée du document D:\NewReport01.xlsx" vers la cellule B1 de la sheet In-Outputs" du document courrant.

Mais cela ne fonctionne pas.

Merci d'avance pour votre aide.