Impression image instable

Bonjour à tous!

Mon fichier d'évaluation des risques professionnels vient d'accoucher d'une de ses fonctionnalités: la mise en page automatisée d'une fiche d'exposition individuelle.

Sur cette fiche, le nom et prénom du salarié évalué + le nom des activités qu'il pratique dans l'entreprise (une 15aine) + le nom des risques auxquels il est confronté + les pictogrammes de ces risques (une trentaine).
Le tout alimenté par macro, les images étant des Contrôles ActivX pour faciliter la permutation des différents pictogrammes selon les salariés.

Mon problème:

à l'impression (PDF ou via macro de mise en page ou via le menu Excel) certaines images disparaissent (Contrôle ActivX vide ou blanc avec une croix rouge) !

Ce qui fait que ma fiche individuelle est inutilisable...

Après recherche, j'ai testé la fonction ScreenUpdating = False , sans succès (même pire!)

J'utilise Excel 2010 avec Win7.

Merci de vos lumières!

Bonjour,

J'imagine que vos contrôles Image sont remplis via un LoadPicture. Mais où se trouvent les images

• Sur votre disque ?
• Dans un des onglets de votre classeur ?

Et les contrôles qui semblent vides à l'impression sont-ils toujours les mêmes ?
Ou les images concernées sont-elles toujours les mêmes ?

Bonjour Ben_L,

Les images sont enregistrées sur un formulaire, sélectionnées puis transférées sur commande via une fonction :

Code:

---

.Image1.Picture = Me.Image1.Picture

---

Les contrôles vides sont variables, disparaissent aléatoirement dès que je lance l'impression.

Je pensais à une légère corruption du fichier. En effet, je n'arrive pas à reproduire le problème.

Si c'est bien le cas, tout pourrait rentrer dans l'ordre en :

• supprimant les images du formulaire puis en les y remettant,
• supprimant les contrôles ActiveX puis en les réinsérant.

Les images sont vidées systématiquement au chargement de formulaire:

Code:

---

.Image1.Picture = LoadPicture()

---

de manière à alléger le fichier avant enregistrement.

Je vais essayer de réinitialiser les ActivX en les supprimant!

Serait il envisageable de les faire réapparaître avec la même mise en page par macro? cela permettrait peut être de les régénérer à la demande?

Bon...

Ca ne fonctionne pas, les contrôles ont été remplacés mais le soucis subsiste!

Je manque d'idées...

Votre fichier est-il confidentiel ou pouvez-vous le mettre à disposition ?

Le document entier est confidentiel, toutes ses pages et USF sont intriqués...

De toutes manières trop volumineux pour être mis en ligne!

Je vais travailler à une version allégée et expurgée de manière à pouvoir centrer le document sur mon problème!

Je vous remercie, à très vite!

Bonjour Ben L

ci joint une version allégée pour que cela puisse "passer"...

J'ai rencontré un nouveau souci aléatoire depuis: impression totalement vierge (pdf ou imprimante)!

Pièce jointe 315483

Bonjour,

J'ai commencé à regarder... Rien de très concluant pour l'instant.
Vous avez 2 objets nommés Image1 (idem pour Image2), mais ça n'est pas la cause du problème.

Sur mon poste, les problèmes d'affichage ne se limitent pas à l'impression. Même à l'écran, c'est très incertain.
Il va falloir que je lance quelques tests pour me faire une idée de l'origine potentielle de ce comportement.
Pour l'instant je pense à :

• un trop grand nombre d'objets qu'Excel n'arrive pas à gérer correctement,
• un problème lié au stockage des images directement dans le UserForm.

J'essaie de vous faire un retour en début de semaine.
Bon week-end à vous

Bonjour

Citation:

---

Les images sont vidées systématiquement au chargement de formulaire:

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

.Image1.Picture = LoadPicture()

de manière à alléger le fichier avant enregistrement.

---

Tu n'allèges ainsi que très peu.
Je n'en suis pas certain, mais il me semble bien que c'est à toi, que j'ai récemment exposé que le contenu de tes images est une goutte d'eau comparée à l'occupation par tes contrôles images (vides ou non) eux-mêmes.
C'est également à toi, que j'ai expliqué qu'il était bien plus sage de laisser ces images dans des fichiers d'un répertoire ad hoc (où les puiser à la demande).

Bonjour unparia: Effectivement, tu m'avais fourni de précieux conseils sur la gestion des images.

Ma solution, peu orthodoxe, a néanmoins permis de retrouver un fichier de moins de 8,5 Mo (8,3 à l'origine) au lieu de 27 Mo lors de la sauvegarde.

Ta solution ne m'était pas applicable car nécessite l'utilisation de mon fichier sur un seul poste informatique. Or ce même fichier servira in fine à l'ensemble des agences de la région... maintenance impensable à distance à mon niveau (et je ne suis même pas administrateur de mon propre PC!)

Merci tout de même, j'appliquerai cette solution sur les fichiers dont je serai le seul utilisateur...

Bonjour à vous,

J'ai fouiné un peu dans votre fichier et il ne fait guère de doute qu'Excel peine à accéder à la donnée concernant les images.
Aucune certitude sur la cause, mais je ne serais pas étonné que ce soit lié à la façon dont vous stockez ces images.

En mettant les images dans un contrôle situé sur un userform, celles-ci ne sont plus directement accessibles dans l'archive zippée qu'est le fichier xlsm. Elles atterrissent toutes dans un seul fichier binaire.
J'ai essayé de les récupérer en les transférant dans un graphe, mais impossible de les copier.
Un essai sur un fichier créé par mes soins (sur le modèle du votre) a fourni des résultats concluants avec le même test.
J'en déduis que quelque chose est corrompu dans votre fichier, mais sans accès à la donnée des images j'aurai du mal à aller plus loin.

Lorsque vous avez "réinitialisé les ActivX en les supprimant", s'agissait-il :

1. des contrôles nommés Image# situés sur la feuille FICHEAGENT ?
2. des contrôles situés sur le userform FFICHEAGENT et qui sont utilisés pour stocker les images ?

C'est à mon sens le point 2- qui est le plus important.

Mais si vous acceptez de changer d'approche, je pense que vous pouvez obtenir un fichier autoportant dans lequel la donnée reste accessible.
En stockant vos images dans un onglet caché et en les chargeant dans les différents contrôles via le presse-papier.
Reste l'éventuel problème de taille du fichier, mais vue la dimension des icônes à l'impression, il semble possible de rétrécir les images...

Bonjour Ben_L,

Si j'ai bien compris

Citation:

---

Un essai sur un fichier créé par mes soins (sur le modèle du votre) a fourni des résultats concluants avec le même test.

---

Les formules utilisées sont les mêmes entre votre essai et mon fichier? Je pourrais recréer mon document à neuf de manière fonctionnelle?

J'avais remplacé les contrôles de la feuille et non du formulaire, je viens de tester en nettoyant ceux du formulaire, le problème perdure...

Je vais essayer une autre approche (onglet caché, affichage de l'image dans la case sous condition)... j'espère que cela n'alourdira pas trop le document! j'espère pouvoir rester en deçà des 10Mo pour faciliter les échanges email...

L'essai en question a consisté en le stockage d'une image dans un contrôle ActiveX positionné sur un userform.
Je supprime ensuite l'image de base située sur mon disque, afin que l'info ne soit plus contenu que dans le fichier Excel.
Dans un onglet, j'ajoute un contrôle Image et un graphique. Puis je copie l'image depuis le contrôle du userform vers le contrôle situé sur l'onglet.
Enfin je copie l'image depuis le contrôle sur l'onglet vers le graphique et j'utilise la méthode Export pour récupérer un fichier image sur mon disque.

Lorsque j'effectue cette suite d'actions depuis votre fichier, le graphique ne récupère qu'une image vide.
Si je recrée un fichier depuis 0, ça marche.
Mais je n'ai fait le test qu'avec une seule image. Le problème provient peut-être du nombre important d'images que vous manipulez (qui en plus semblent être de grande taille).

Pour un éventuel changement de paradigme, je vous conseille vivement de regarder du côté du module modPastePicture développé par Stephen Bullen (accessible ici).
Il permet de créer un objet équivalent à celui obtenu avec la méthode LoadPicture, mais en partant d'une image située sur un contrôle plutôt que d'une image située sur le disque (le tout en passant par le presse-papier).
C'est probablement ce qui provoquera le moins de modifications dans votre code.

Dans le cas de mon document, une trentaine d'images sont stockées dans mon USF;
Appelées dans autant de contrôles dudit USF en fonction des conditions;
Exportées dans autant de nouveaux contrôles sur mon onglet de synthèse.

Peut être le nombre de relais + le nombre de contrôles qui rend l'affichage instable à l'impression?

J'ai jeté un œil au module proposé... cela va nécessiter analyse plus approfondie pour tester son applicabilité à autant d'arguments!

Je vais finir d'étudier l'autre piste dans un premier temps: loger les images non sur le USF mais sur une page cachée...

Merci pour vos conseils et recherches!

Citation:

---

loger les images non sur le USF mais sur une page cachée...

---

Cela ne changera rien !

Concernant l'utilisation du module modPastePicture, c'est en fait extrêmement simple :

1. Copiez le contenu du module dans un nouveau module que vous ajoutez à votre projet,
2. Utilisez la syntaxe suivante :
   
   Code:

   ---

   1 2	ThisWorkbook.Sheets("VotreOnglet").Shapes("VotreImage").CopyPicture xlScreen, xlBitmap Set UserForm1.VotreControle.Picture = PastePicture(xlBitmap)

   ---

En utilisant cette méthode, vous pouvez stocker les images dans un objet msoShapeRectangle, plutôt que dans un contrôle ActiveX.
Cela a un impact direct sur la taille finale du fichier.

Et concernant la remarque de unparia, je suis assez étonné.
Je n'ai pas la prétention d'avoir ses connaissances sur le fonctionnement d'Excel, mais j'ai souvent stocké des images dans un onglet caché et n'ai jamais eu de problème. A part une fois avec un problème de corruption, mais qui a été réglé très rapidement en supprimant et rechargeant les images dans l'onglet caché.
unparia, auriez-vous des précisions sur la raison pour laquelle vous considérez que stocker des images à l'intérieur d'un fichier Excel est une mauvaise pratique ?

J'ai dupliqué le module dans mon fichier,

Intégré la syntaxe

Code:

---

1 2 3

ThisWorkbook.Sheets("FICHEAGENT").Shapes("Image1").CopyPicture xlScreen, xlBitmap Set FFICHEAGENT.Image1.Picture = PastePicture(xlBitmap)

---

Dans ma fonction ExpositionAgent

A priori cela intégrerait le contenu de l'image 1 de l'USF sur ma page FICHEAGENT, mais dans quoi? une cellule, mon premier contrôle "Image1"?
Au click.. pas d'image... à moins que les coordonnées de l'image collée ne soient hors sélection?

Vous avez inversé : vous copiez depuis la destination et collez vers la source.

Mais en l'état (c'est-à-dire en choisissant toujours les contrôles ActiveX du userform comme la source), il y a peu de chance que cela corrige quoi que ce soit, puisque c'est probablement cette source qui pose problème.
Le plus simple serait de sélectionner les images dans l'explorateur Windows et de les faire glisser dans un nouvel onglet. Cela constituera une source plus fiable (enfin, c'est ce que je pense) que des ActiveX sur un userform.
Le code à utiliser serait alors (en supposant que le nouvel onglet dans lequel vous avez collé vos images s'appelle "Feuil1") :

Code:

---

1 2	ThisWorkbook.Sheets("Feuil1").Shapes("Image1").CopyPicture xlScreen, xlBitmap Set ThisWorkbook.Sheets("FICHEAGENT").Image1.Picture = PastePicture(xlBitmap)

---