Recherche V avec Macro

[cyr.il10]

Bonjour,
J'ai un soucis avec ma macro, je ne vois pas ou est l'erreur
J'aimerais remplir la colonne B d'une feuille à partir du numéro client en colonne A dont les deux premiers chiffres renseignent sur le numéro de département.
Ce numéro de département présent dans une autre feuille correspond à une personne avec ses initiales en commentaires.
J'aimerais ainsi compléter automatiquement la colonne B .

Fichier en PJ , je vous remercie d'avance

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Sub Initiales()
Dim Classeurinitiales As Workbooks
Dim NumeroDepartement As String
Dim Colonne As Variant
Dim Initiales
Set Classeurinitiales = GetObject("C:\Documents and Settings\Cyrille.DECHANCE-C6FF05\Bureau\Classeurinitiales.xlsx")
Range("A2").Select
While ActiveCell.Value <> ""
NumeroDepartement = Left(ActiveCell.Select, 2)
Colonne = Classeurinitiales.Sheets(1).Range("A2:C5").Find(What:=NumeroDepartement, LookIn:=xlFormulas, LookAt:=xlWhole).Address
Colonne = Range(Colonne).Column
Colonne = CInt(Colonne)
Initiales = Classeurinitiales.Sheets(1).Cells(2, Colonne).Comment.Text
ActiveCell.Offset(0, 1).Range(“A1”).Select
ActiveCell.FormulaR1C1 = Initiales
ActiveCell.Offset(-1, 1).Range(“A1”).Select
Wend
Set Classeurinitiales = Nothing
Workbooks(“Classeurinitiales.xlsx”).Close
End Sub

[The Saint]

Bonjour,

Pour moi tu n'as aucun lien entre les 2... alors je ne vois pas clair...

The Saint

[ZebreLoup]

Déjà, enlève le s de Workbooks à la première ligne, tu fais référence à un classeur, pas une collection de classeur.
Ensuite, il y a peut-être d'autres soucis. C'est une erreur de compilation, d'exécution ?
Et j'avoue que le GetObject pour avoir un classeur n'est pas forcément le plus propre.