Bonjour Jean-Christophe, le Forum
Etant Donné que tu veux mettre en gras les cellules du FichierA, il te faudra forcément l'ouvrir. Les Techniques ADO/DAO ne pourront pas toucher au format de police. (De plus ces techniques sont assez comliquées à maîtriser)
Donc à partir de là, il vaut mieux ouvrir les deux fichiers et comparer les plage d'une manière classique avec une simple Boucle For Each...
Sub CompareAndBold()
Dim CellSource As Range, CellCible As Range
Dim PlageSource As Range, PlageCible As Range
Dim WBSource As Workbook, WBCible As Workbook
Dim WSSource As Worksheet, WSCible As Worksheet
Set WBSource = Workbooks("FichierA.xls")
Set WSSource = WBSource.Sheets("SheetA")
Set WBCible = Workbooks("FichierB.xls")
Set WSCible = WBCible.Sheets("SheetB")
Set PlageSource = WSSource.Range("A1:A10")
Set PlageCible = WSCible.Range("A1:A10")
For Each CellSource In PlageSource
For Each CellCible In PlageCible
If CellSource = CellCible Then Exit For
CellSource.Font.Bold = True
Next CellCible
Next CellSource
End Sub
Bon Aprèm
@+Thierry