Macro insertion image automatiquement.

[kinkin77]

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 = 😵ffset(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]

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

 

[MJ13]

Re : Macro insertion image automatiquement.

Re

Teste ce fichier:

 

[kinkin77]

Re : Macro insertion image automatiquement.

Franchement tu es un vrai pro merci ça fonctionne.
Parcontre c'est pas possible de me retirer la case pour appliquer la macro si c'est pas trop demander.

Merci d'avance.

 

[kinkin77]

Re : Macro insertion image automatiquement.

C'est bon j'ai trouvé tout seul et encore MERCI à toi et MichelXLD.

Cordialement Kinkin.

 

[TempusFugit]

Re : Macro insertion image automatiquement.

Bonjour

Par curioisté, quelle est la taille de ton fichier final avec les images ?

Il n'est pas trop gros pour être envoyé par email ?

 

[MJ13]

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

'Application.Goto Reference:="zone"

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

 

[kinkin77]

Re : Macro insertion image automatiquement.

Ok je mets la coller à quel niveau ?

 

[kinkin77]

Re : Macro insertion image automatiquement.

(je l'ai supprimé mais j'ai une erreur code 400 🙁

 

[kinkin77]

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]

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 = 😵ffset(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.