bonjour
soit des colonnes ZAZA, TOTO & MAFALDA
Sub test()
For Each nm In Array("zaza", "toto", "mafalda")
If Not ActiveSheet.Rows(1).Find(what:=nm) Is Nothing Then
'ActiveSheet.Rows(1).Find(what:=nm).EntireColumn.Interior.ColorIndex = 35
ActiveSheet.Rows(1).Find(what:=nm).Interior.ColorIndex = 35
End If
Next nm
End Sub
ou plus tordu, utiliser les DAO pour faire des requêtes SQL sur le fichier fermé, peut-être que cela marcherait ! on peut faire des updates avec cette méthode.
=> cf par exemple là : <http://perso.wanadoo.fr/frederic.sigonneau>
bye