Discussion :

[issoram]

Bonjour à tous,

• Je dispose dans un classeur source d'une feuille "MODELE" dans laquelle j'insère une image (par code).
• Une fois cette feuille "MODELE" mise en forme, je la copie dans un autre classeur via la méthode

  Code :

  Sélectionner tout - Visualiser dans une fenêtre à part

  Worksheet("MODELE").Copy

Voici le problème:
Lorsque je déplace l'images source ou la supprime, l'image ne s'affiche plus dans le nouveau classeur créé. En fait Excel cherche le lien vers cette image est bien évidement ne la trouve plus.
Or ce que je ne comprends pas c'est pourquoi il me copie un lien et pas l'image en tant que telle. Car dans le classeur source je ne rencontre pas ce problème (Il a bien copié l'image sans le lien)

Idéalement il me faudrait l'équivalent en VBA des options:

1. Insérer
2. Lier au fichier
3. Insérer et lier

proposées lors de l'insertion d'image. Avec l'enregistreur de Macros c'est toujours le même code qui est généré quelque soit l'option choisie:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Pictures.Insert("chemin de l'image")

Merci d'avance à ceux qui pourront m'aider.

[jackborogar]

Essayes dans ton nouveau fichier:

Edition => Liaisons => Rompre la liaison => OK

Cdt

[issoram]

Merci,

Je ne trouve pas l'équivalent sous 2010. J'ai essayé données/connexion mais rien la dedans.

[jackborogar]

Voici le lien: http://office.microsoft.com/fr-fr/ex...010342210.aspx

[issoram]

Oui, c'est bien ce que j'avais tenté mais il n'y a pas les liens vers les images.
ça doit être une option quelque part.

[issoram]

Bon ben j'ai résolu mon problème mais c'est pas du très propre.Je vous résume rapidement ce que j'ai trouvé. Si jamais il y 'a mieux, je suis preneur.

Après avoir parcouru les différents forums du net, il en ressort que (pour Excel 2010):

1. Charger une image avec Pictures.Insert ne permet pas de spécifier si on insère cette dernière avec ou sans lien. (Chez moi c'est assez aléatoire)
2. Il vaut mieux utiliser la méthode

   Code :

   Sélectionner tout - Visualiser dans une fenêtre à part

   AddPicture(Filename, LinkToFile, SaveWithDocument, Left, Top, Width, Height)

   où l'argument LinkToFile permet de spécifier l'édition ou non de lien.

Par contre, les arguments Width, Height sont obligatoires. Or dans mon cas, souhaitant conserver les proportions de l'image d'origine, il faut donc que je récupère ses dimensions avant le chargement.

Du coup:

1. Je charge l'image une première fois avec la méthode Pictures.Insert
2. Je récupère ses dimensions
3. Je calcule les nouvelles dimensions (en gardant les proportions)
4. La supprime
5. La recharge avec la méthode Shapes.AddPicture

Je laisse un moment en non résolu, car il doit sûrement y avoir moyen de faire autrement.