surligner une cellule dans un autre dossier

[Thomas]

Bonjour Le forum,

je sais que je pose beaucoup de question en ce moment mais, je me casse la tête .

a l'aide d'un USF je fais une recherche dans tout les dossiers actif,
j'affiche les reponses dans ListBox (et les stoks dans une feuille)

mon problème est que quand je double clik sur une reponse, j'arrive sur la cellule qui contient le mot de ma recherche (et la colore en jaune).

si la recherche ce trouve dans mon dossier ou est executé la macro cela fonctionne mais si le resulta de ma recherche ce trouve dans un autre dossier j'ai un bug(erreur d'execution '9', l'indice n'appartient pas à la selection), pourtant dans le debugger VBA reprend bien le nom de la feuille ainsi que l'adresse de la cellule à ateindre inch:

Voici le bout de code qui plante.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Sheets(ListBox1.Column(3)).Activate
Range(ListBox1.Column(4)).Activate
ActiveCell.Interior.ColorIndex = 6
Unload Me
End Sub

je pense qu'il manque une procedure pour appeler le fichier en question afin qu'il sdevienne le fichier actif.

D'avance merci
Thomas

 

[Ashaar]

Bonjour Thomas,

Il faut que tu appele aussi le classeur ou se trouve l'onglet.

Workbooks('Classeur.xls').Sheets(1).Activate

Cdlt.