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

jmh1

XLDnaute Occasionnel
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

XLDnaute Barbatruc
Bonsoir jmh1

Pourquoi tu utilise 3 classeurs??? :rolleyes:. 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.

VB:
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
 
Dernière édition:

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas