aide sur macro

[fenec]

aide sur macro de BOISGONTIER

bonsoir a tous

voila j'utilise ce code pour inserer des images e fonction d'un critere dans un fichier fermé
mais rien ne fonctionne
erreur de chemin!!!!
auriez vous une idée

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$4" Then
Application.ScreenUpdating = False
chemin = ThisWorkbook.Path
Workbooks.Open chemin & "\classeurImage.xls"
ActiveWorkbook.Close
Application.ScreenUpdating = True
End If
End Sub

 

[fenec]

Re : aide sur macro

bonsoir a tous
auriez vous une idée pour vous joindre mon fichier
merci

 

[fenec]

Re : aide sur macro

Re 🙂,Tes 2 fichiers sans données confidentielles zippés et en PJ sur le forum 😉.
A + 😎

bonjour a tous
je vous joint un extrait de mes fichiers pour vous aider
merci de votre aide

 

[fenec]

Re : aide sur macro

bonsoir a tous
help me je ne sais plus quoi essayer pour que cela fonctionne alors que le fichier avec le code de BOISGONTIER fonctionne a merveille!!!!
merci

http://boisgontierjacques.free.fr/fichiers/Images/ClasseurImage.zip

 

[fenec]

Re : aide sur macro

bonjour a tous
je viens de resoudre une partie de mon problème
il vient du fait que j'ai une formule en E4:
=SI(param_no_ligne=0;"";INDEX(Bd_programme;param_n o_ligne)),si je modifie l'adresse du champ :

=INDIRECT("'["&Feuil1!$E$1&"]"&Feuil1!$E$4&"'!$A$1:$G40") par:

=INDIRECT("'["&Feuil1!$E$1&"]"&Feuil1!$E$3&"'!$A$1:$G40") tout fonctionne tres bien mais maintenant je voudrais savoir s'il est possible de mettre en relation les deux cellules et fonction
merci d'avance