Discussion :

[IronHeavy]

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!

[Ben_L]

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 ?

[IronHeavy]

Bonjour Ben_L,

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

Code :

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

.Image1.Picture = Me.Image1.Picture

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

[Ben_L]

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.

[IronHeavy]

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.

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?

[IronHeavy]

Bon...

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