Macro insertion image automatiquement.

kinkin77

XLDnaute Nouveau
Bonjour,

J'ai créé un fichier Excel pour référencer mes films
J'ai un fichier Excel avec la colonne A pour les photos et une colonne B avec des références.
J'ai réussi à faire une macro pour insérer mes photos automatiquement via la référence de la colonne B. voir ci-dessous:

Sub Macro1()

On Error Resume Next
For Each o In Selection
o.Activate
Z = o_Offset(0, 1) & ".jpg"
ActiveSheet.Pictures.Insert ("C:\PHOTOS_BASE_DE_DONNEE\" & Z)
Next
End Sub

Mon problème est dès que j'envoie mon fichier à un amis les photos ne s'affiche pas.
Auriez-vous la solution à mon problème.
Cordialement.
 

kinkin77

XLDnaute Nouveau
Re : Macro insertion image automatiquement.

ok ci-joint le fichier excel avec ma macro et les photos
tu vera sur la macro j'ai mis c:\image comme cible
 

Pièces jointes

  • image.zip
    11.8 KB · Affichages: 43
  • test (2).xls
    27.5 KB · Affichages: 75
  • image.zip
    11.8 KB · Affichages: 51
  • test (2).xls
    27.5 KB · Affichages: 79
  • image.zip
    11.8 KB · Affichages: 52
  • test (2).xls
    27.5 KB · Affichages: 83

MJ13

XLDnaute Barbatruc
Re : Macro insertion image automatiquement.

Re

Parcontre c'est pas possible de me retirer la case pour appliquer la macro si c'est pas trop demander.

Click droit sur le bouton et couper.

Attention: j'ai définit les noms des images à intégrer avec un nom (zone).

Pour l'éviter tu peux mettre un commentaire (') sur le code

Code:
'Application.Goto Reference:="zone"

et sélectionner ta liste de noms avant de lancer la macro avec Alt+F8.
 

kinkin77

XLDnaute Nouveau
Re : Macro insertion image automatiquement.

C'est tout good j'ai trouver le problème, j'ai du ajouter une commande si il ne trouve pas l'image. et maintenant tout es ok youpi encore merci.
@TempusFugit: mon fichier final fait 8.7Mo avec plus de 2500 images.

Merci et encore bravo à toute l'équipe ;)
 

li3amsi

XLDnaute Nouveau
Bonjour,

J'ai créé un fichier Excel pour référencer mes films
J'ai un fichier Excel avec la colonne A pour les photos et une colonne B avec des références.
J'ai réussi à faire une macro pour insérer mes photos automatiquement via la référence de la colonne B. voir ci-dessous:

Sub Macro1()

On Error Resume Next
For Each o In Selection
o.Activate
Z = o_Offset(0, 1) & ".jpg"
ActiveSheet.Pictures.Insert ("C:\PHOTOS_BASE_DE_DONNEE\" & Z)
Next
End Sub

Mon problème est dès que j'envoie mon fichier à un amis les photos ne s'affiche pas.
Auriez-vous la solution à mon problème.
Cordialement.
 

Discussions similaires

Réponses
10
Affichages
482

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof