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

 

[phlaurent55]

Re : aide sur macro

Bonjour fenec,

le code que tu nous montres ouvre un autre classeur; il n'est pas fait pour insérer une image

à+
Philippe

 

[fenec]

Re : aide sur macro

bonjour phlaurent55

oui il doit ouvrir le classeur ou se trouve les images mais l'erreur est qu'il ne trouve pas le chemin !!!!

Workbooks.Open chemin & "\classeurImage.xls"

 

[Pierrot93]

Re : aide sur macro

Bonjour Fenec, Philippe

A noter que tu ouvres le classeur, pour le refermer immediatement dans la ligne de code qui suit....

bonne journée
@+

 

[phlaurent55]

Re : aide sur macro

Re,

bonjour phlaurent55

oui il doit ouvrir le classeur ou se trouve les images ...................................
Workbooks.Open chemin & "\classeurImage.xls"

reflexion perso: un classeur est-il le meilleur endroit pour stocker des images ???

à+
Philippe

 

[fenec]

Re : aide sur macro

Re, reflexion perso: un classeur est-il le meilleur endroit pour stocker des images ???

à+
Philippe

re,
tu as sens doute raison mais je n'y arrive pas si elles se trouvent dans un fichier
une idée peut etre?

MERCI

 

[Pierrot93]

Re : aide sur macro

Re,

Fenec, pas sur que tu ais vu mon post de 9h29...

bonne soirée
@+

 

[JNP]

Re : aide sur macro de BOISGONTIER

Bonsoir le fil 🙂,

chemin = ThisWorkbook.Path
Workbooks.Open chemin & "\classeurImage.xls"

Bêtes questions :
Tu utilises ThisWorkbook.Path, les 2 classeurs sont-ils bien dans le même dossier ?
Pas de faute d'orthographe dans classeurImage.xls ?
Bonne soirée 😎

 

[fenec]

Re : aide sur macro de BOISGONTIER

bonjour a tous JNP
apres verification pas de faute
mes deux fichiers sont sur mon bureau

Bonsoir le fil 🙂,Bêtes questions :
Tu utilises ThisWorkbook.Path, les 2 classeurs sont-ils bien dans le même dossier ?
Pas de faute d'orthographe dans classeurImage.xls ?
Bonne soirée 😎

j'utilise :thisworkbook.path car c'est dans le code que BOISGONTIER
donne :insertion image si le classeur est fermé

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$i$3" Then
Application.ScreenUpdating = False
chemin = ThisWorkbook.Path
worbooks.Open chemin & "\fenec.xls"
activeworbook.Close
Application.ScreenUpdating = True
End If


End Sub

si ca peut vous donner d'autres idées
d'avance merci et bon dimanche a tous

 

[JNP]

Re : aide sur macro

Re 🙂,
Je crois qu'un petit zip avec les 2 classeurs nettoyés serait la meilleure des solutions 😉...
Bon dimanche 😎

 

[fenec]

Re : aide sur macro

re,
que veux tu dire par un petit zip des deux classeurs nettoyés!!!

 

[JNP]

Re : aide sur macro

Re 🙂,

que veux tu dire par un petit zip des deux classeurs nettoyés!!!

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

 

[BOISGONTIER]

Re : aide sur macro

I MAJUSCULE

If Target.Address = "$I$3" Then

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


JB

 

[fenec]

Re : aide sur macro

bonjour JNP BOISGONTIER
je ne peux joindre mon fichier meme compresser ne passe pas
mais reste a votre ecoute
d'avance merci

 

[fenec]

Re : aide sur macro

bonsoir boisgontier
$i$3 correspond a mon adresse alors que la tienne est $e$4
le probleme pourrait-il venir de la?

If Target.Address = "$I$3" Then

merci de ton aide