inserer image

[fenec]

bonjour a tous
une petite question sans doute tres facile pour certains mais pour moi je n'y arrive pas
est-il possible d'inserer dans un classeur une photo ou un dessin provenant d'un autre classeur
merci d'avance et si oui comment faire

 

[he_oui]

Re : inserer image

Bonjour,

Il faut se mettre sur le premier classeur.
Sélectionner l'image et faire édition >> copier.
Ensuite il faut ouvrir l'autre classeur et faire édition >> coller

Cdt

 

[fenec]

Re : inserer image

je suis d'accord mais j'ai oublié de dire que la photo ou l'image doit dependre d'un critere

 

[Sofhy]

Re : inserer image

je suis d'accord mais j'ai oublié de dire que la photo ou l'image doit dependre d'un critere

Lequel ?
Un fichier en exemple serait bien

 

[Hulk]

Re : inserer image

Hello,

mais j'ai oublié de dire que la photo ou l'image doit dependre d'un critere

Ok je sors ma boule de cristal 😀

 

[fenec]

Re : inserer image

un fichier en piece jointe en eserant etre assez clair
merci encore

 

[BOISGONTIER]

Re : inserer image

Bonsoir,

Voir exemple en PJ

Si les images sont dans un autre classeur ouvert
E1 contient le nom du classeur
E4 contient le nom de l'onglet

Nom de champ
adr =INDIRECT("'["&Feuil1!$E$1&"]"&Feuil1!$E$4&"'!$A$1:$E38")

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

JB

 

[fenec]

Re : inserer image

bonjour a tous et merci BOISGONTIER pour ton idée mais le classeur avec les dessins n'est pas ouvert il me sert en faite de base de données

 

[fenec]

Re : inserer image

bonsoir a tous
y aurait-il une solution avec un fichier fermé
merci de votre aide

 

[BOISGONTIER]

Re : inserer image

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

JB

 

[fenec]

Re : inserer image

bonjour et merci pour ton aide BOISGONTIER je viens encore d'essayer mais je ne vois pas ou je dois mettre ta solution "ton code"ni connaissant pas grand chose en vba
pour ton autre solution je n'arrive pas a l'appliquer toujours une erreur dans la formule lorsque je veux mettre la formule pour renseigner le champ a moins que je m'y prend mal
je fait ceci
insertion ,nom, définir
nom du champ: adr
puis rentre ta formule:=INDIRECT("'["&Feuil1!$E$1&"]"&Feuil1!$E$4&"'!$A$1:$E38")

merci encore pour votre aide

 

[fenec]

Re : inserer image

bonjour a tous
je me permet de vous recontacter afin de faire remonter ma requete
excusez moi d'insiter mais je suis perdu
merci d'avance

 

[fenec]

Re : inserer image

bonsoir ou bonjour a tous
cela fait une semaine que j'essaie la methode de BOISGONTIER en vain et j'avoue que je ne comprends plus rien ni pourquoi ca marche pas
j'ai telecharger son exemple qui fonctionne tres bien mais ne parviens pas a le mettre en oeuvre dans mon fichier alors que dans le tiens je peux rajouter des images sans probleme
auriez vous une idée a mon probleme
merci d'avance pour vos idées
je vous joint un extrait de mon fichier en piece jointe au cas ou cela viendrais de moi

 

[fenec]

Re : inserer image

voici le fichier

 

[fenec]

Re : inserer image

bonjour a tous
personne n'a une petite solution!!

merci de m'aider