Bonsoir
j'ai juste un petit soucis de formulation , en gros je dois comparer le nom de chacune de mes feuilles d'un classeur B à une cellule
active d'une feuille donnée se trouvant dans le classeur A (ouvert) ,si il y a correspondance on sélectionne la feuille en question dans B , j'ecris donc :
Workbooks.Open Filename:=chemin & "\B.xls"
For Each feuille In Sheets
If feuille.Name = Workbooks("A").Sheets("Feuil1").ActiveCell.Offset(0, 1).Value Then k = feuille.Index
Next
If k > 0 Then
Sheets(k).Activate
End If
le soucis est que cette formulation ne semble pas marcher , avec une erreur pointée sur la ligne :
If feuille.Name = Workbooks("A").Sheets("Feuil1").ActiveCell.Offset(0, 1).Value Then
accompagnée du message erreur 438 "proprieté non gerée"
je ne vois pourtant pas ce qui cloche en ayant pas mal cherché , ....toute aide ou indication serait sympa
Encor merci par avance .
Cordialement