Discussion :

[sivaaa]

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.

[issoram]

Bonjour,

L'erreur doit se situer ici

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

currentDataWS.Cells(B, 1).Value = dataWS.Cells(A, 1).Value

Cells(B, 1) ne désignant pas la cellule B1!
Pour faire ce que tu souhaites

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
currentDataWS.Range("B1").Value = dataWS.Range("A1").Value
'ou
currentDataWS.cells(1,2).Value = dataWS.cells(1,1).Value

Cordialement.

[sivaaa]

Bonjour,

Merci pour votre aide.
J'ai encore une petite question (malheureusement)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim myName As Name
Dim currentNewWB As Workbook
Set currentNewWB = ActiveWorkbook
 
For Each myName In currentNewWB.Names
 
 
 Next

Je récupère l'ensemble des cellules nommées mais je souhaiterais obtenir leurs positions dans la feuille exempl cellule A3 ainsi que la valeur de la cellule (pas la formule).

Merci d'avance.

ps: J'ai cherche sur google sans succès

[EngueEngue]

Pour la position regarde dans les propriétés :

.row
.column

Pour la valeur:

.value

[sivaaa]

myName à bien une propriété Value mais pas row ni column

[issoram]

Regarde dans l'aide du côté des propriétés RefersTo... de l'objet Name.
Tu y trouveras ton bonheur.