XL 2010 Problème d'enregistrement par vba suite collage image

[jmh1]

Bonjour à tous,

J'ai 3 fichiers :
n°1 --> fichier où se trouve une image
n°2 --> fichier où je dois coller cette image
n°3 -- > fichier où se trouve mon code VBA

Le code que je lance avec mon fichier n°3, ouvre mes fichiers n°1 et n°2, copie l'image du fichier 1, colle l'image dans le fichier 2.

Puis le code referme le fichier 1 sans l'enregistrer et mon problème est que je veux fermer le fichier 2 en l'enregistrant mais là, le code s'exécute sans défaut mais mon fichier 2 ne se ferme pas et n'est pas enregistré.

J'ai essayé la commande activeworkbook.save et j'ai une message 'Document non enregistré'.
J'ai également testé sans collé l'image et là le code s'exécute bien.

Quelqu'un a-t-il déjà rencontré ce problème de collage d'image et d'enregistrement ?

Merci de votre aide.

 

[Lone-wolf]

Bonsoir jmh1

Pourquoi tu utilise 3 classeurs??? 🙄. Le classeur où tu colle l'image suffit. Dans un premier dossier tu met le classeur, dans un deuxième dossier tu met l'image ou les images, puis tu exécute la macro.

Un exemple de Jacques Boisgontier que je viens d'adapter.

Option Explicit

Sub essai()
Dim nom$, répertoire

    répertoire = ThisWorkbook.Path & "\Images\"    ' dossier images

    With ActiveSheet
        nom = .Range("a2")                  'extension à adapter
        .Pictures.Insert(répertoire & nom & ".jpg").Name = nom
        .Shapes(nom).Left = .Range("b2").Left
        .Shapes(nom).Top = .Range("b2").Top
    End With
End Sub