Récupération d'une Valeur de cellule

[Eric D]

Bonjour(bonsoir) toutes et tous,

Dans mon programme j'ai les lignes de code suivantes, mais je n'arrive pas a affecter la valeur de la cellule B120 du classeur que je viens d'ouvrir a la variable numfa.

chtemp = 'C:\\mon_chemin\\' & 'mon_classeur.xls'
Workbooks.Open chtemp
numfa = Workbooks('mon_classeur').Sheets('Feuil1').Range ('B120').Value
'numfa = ActiveWorkbook.Sheets('Feuil1').Range('B120').Value Range('B120').Value = numfa
ActiveWorkbook.Sheets('Feuil1').Range('B120').Value = ActiveWorkbook.Sheets('Feuil1').Range('B120').Value + 1
Workbooks('Classeur1.xls').Close SaveChanges:=True

Par contre la cellule 'B120' de 'mon_classeur' est bien incrémentée de 1, comme il se doit.

je ne comprend pas , avez vous une idée?
Merci pour votre réponse.

Eric D

 

[excalibur]

bonjour eric le forum si jai bien compris essaie comme cela Sub test()
Dim numfa As String
Workbooks.Open Filename:='D:\\toto.xls'
numfa = Workbooks('toto.xls').Sheets('Feuil1').Range('b120').Value
numfa = ActiveWorkbook.Sheets('Feuil1').Range('b120').Value
ActiveWorkbook.Sheets('Feuil1').Range('b120').Value = ActiveWorkbook.Sheets('Feuil1').Range('b120').Value + 1
Workbooks('toto.xls').Close SaveChanges:=True
End Sub' salutations