fenec
XLDnaute Impliqué
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
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
Dernière édition: