Load image problème - image vide

Version imprimable

2 pièce(s) jointe(s)

Bonjour,

Je crée en se moment un petit fichier de gestion contenant notamment un planning sur une feuille.
Je ne veux pas que les utilisateurs aient accès à une cellule Excel c'est pour cela que je passe majoritairement par des UserForm et des pictures à l'interieur.

Pour effectuer cela j'ai un dossier à la source de mon disque dur qui stock les CopyPictures que je crée via VBA et qui s'actualisent à chaque fois que j'en appelle les procédures.
Puis je les charge sur mes contrôles Images.
des Textbox relié à mon planning permettent de changer les jours du planning

Problème avec mon ancien PC qui lorsque je lançais l'userform m'affichais bien l'image du planning dans mon contrôle mais à chaque changement de jour l'image avait un décalage de jours ( un peu de l'image précédente et un peu de la nouvelle, si j’actualisais 1 ou 2 fois cela se remettais bien ) Je me suis dit que ça venais du PC un peu flemmard.

PC changé , nouveau problème l'image est loadé mais elle est toute blanche, sans le paste du planning

Serait-ce une erreur dans mon code ? Je n'arrive pas à trouver :(

L'intrigue est de plus que lorsque j'effectue l'ensemble de la procédure en pas à pas elle fonctionne très bien et mon planning s'affiche parfaitement

Voilà le code:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Private Sub Planning_Disponibilité() Dim dossier As String, Image2 Dim Plage As Range On Error GoTo 1 Chemin_Planning = Sheets("Paramètre").Range("E7").Value ' Paramètre Liaison Image1 = Chemin_Planning & "\Image_Planning_Disponibilité.jpg" Sheets("planning").Select Set Plage = Sheets("planning").Range("G2:Ak5") Plage.CopyPicture With Sheets("planning").ChartObjects.Add(0, 0, Plage.Width, Plage.Height).Chart .Paste .Export Image2 End With Sheets("planning").ChartObjects(Sheets("planning").ChartObjects.Count).Delete Me.Image2.Picture = LoadPicture(Image1) 1 End Sub
Je vous remercie d'avance pour vos avis sur le sujet :)

04/03/2017, 21h19
clementmarcotte

Bonjour,

Commence par zigouiller ton

Code:

on error goto

Tu vas avoir au moins les messages d'horreur.
04/03/2017, 22h04
Exson13

salut clementmarcotte,

merci pour ta réponse.

aucunes erreurs n'interviennent :(

as-tu d'autres suggestions ?
04/03/2017, 23h39
joe.levrai

Bonjour,

peut-être qu'en rafraichissant ton Userform ça devrait le soulager ?

Code:

Me.Repaint

juste après la ligne où tu ajoutes l'image

si ça ne suffit pas :

- prévoir d'effacer l'image précédente
- prévoir une temporisation juste avant et après l'insertion
05/03/2017, 13h26
Exson13

1 pièce(s) jointe(s)

Bonjour,

Je vous remercie encore pour vos réponses !

Rien des propositions citées n'ont résolu le souci........

Je vais reprendre différemment avec un autre fichier et les mêmes méthodes pour clarifier la procédure

Je reviens vers vous avec un fichier claire si je n'y arrive pas.

N'hésitez pas à rebondir si d'autres recommandations vous viennent :)

Même résultat avec un autre fichier très simplifié..

Quel est le résultat chez vous ?

Je pense que ça pourrait venir du passage par graphique, ai-je une autre solution ? :calim2:Pièce jointe 251089
08/03/2017, 19h39
Exson13

bonjour,

je relance car je n'ai toujours pas résolu mon problème...

J'ai testé au boulot et ça marche très bien sous xl 2007 .

la je ne trouve pas de solution.. j'ai essayé avec un graphique ordinaire et j'arrive bien à avoir une image , mais en partant d'une plage de cellule non

connaissez vous un autre moyen d'afficher une image de cellule dans un formulaire?
09/03/2017, 00h05
unparia

Bonjour
Questions toutes bêtes, mais auxquelles ne répond pas le bout de code montré :

- où se trouve écrite la procédure Planning_Disponibilité ?
- quelle procédure appelle cette sub Planning_Disponibilité ?
- où se trouve le contrôle image Image2 ?

Certaines "choses" me surprennent, à commencer par

Code:

Dim dossier As String, Image2

alors que (dans la même procédure) on voit :

Code:

Me.Image2.Picture = LoadPicture(Image1)

Le On Error Goto 1 me paraît cacher dans cette "affaire" l'erreur résultant de ce paradoxe. Mais du coup : pas d'image dans Image2 :cfou:
09/03/2017, 12h00
Exson13

Bonjour unparia et merci,

En effet lorsque j'ai rédigé le message et donc coller le code il y avait une erreur sur (Image1 = Chemin_Planning & "\Image_Planning_Disponibilité.jpg")c'est image2 qui fallait mettre..

C'est vrai que le nom de ma variable n'est pas très significatif et pourrait embrouiller excel

Par rapport à tes trois question:
- où se trouve écrite la procédure Planning_Disponibilité ?
Elle est dans l'userform , pense-tu que je devrais la déplacer dans un module ?

-quelle procédure appelle cette sub Planning_Disponibilité ?
Elle est appellé dès l'ouverture de l'UF et a à chaque mise à jour des textbox (anné , mois , et jours)

-où se trouve le contrôle image Image2 ?
Il se trouve aussi dans l'userform

Il y a je pense quelquechose qui embrouille excel vu que celà marche sur xl2007 et pas sur 2016 et je l'espère :aie:
09/03/2017, 12h35
unparia

Citation:

Elle est appellé dès l'ouverture de l'UF

Merci, mais cela ne dit pas à quelle étape (évènement) de cette "ouverture" ?
Est-il si difficile et non "naturel" de montrer cette procédure de A (sa déclaration) à Z (End Sub) ?

Citation:

En effet lorsque j'ai rédigé le message et donc coller le code il y avait une erreur sur (Image1 = Chemin_Planning & "\Image_Planning_Disponibilité.jpg") c'est image2 qui fallait mettre..

Je n'ai jamais entendu (c'est nouveau, çà ?) parler de copiés/collés qui "transformaient" ce qui était copié et collé !
Et maintenant (ta "précision") est encore pire qu'auparavant en ce sens qu'elle met en exergue une totale incompréhension de ce que sont les variables objet et les variables string :pleure:

Merci pour ce message inutile provoqué surement par une mauvaise digestion de ta part...

Pour me défendre j'invoque juste le fait que j'ai coller une partie de mon code qui a ce moment là était erroné certes.

je pense avoir posé assez de question sans réponse avec en prime un ignare de service...

Pour ceux qui veulent j'ai contourné le problème par implantation d'un graphique vierge fixe dans une feuille excel
Je colle mon "copy picture" sur celui-ci puis le supprime à la fin.

Probablement une erreur de code moi qui ai commencé il y a peu
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Private Sub Planning_Semaine() Dim dossier As String, Image Dim Plage As Range Dim Image_planning As Object Chemin_Planning = Sheets("Paramètre").Range("E7").Value ' Paramètre Liaison Image = Chemin_Planning & "\Image_Planning_Semaine.jpg" Sheets("planning").Select Set Image_planning = Sheets("planning").ChartObjects(1).Chart Set Plage = Sheets("planning").Range("G7:Ak35") Application.CutCopyMode = False Plage.CopyPicture With Image_planning .Paste .Export Image End With ActiveChart.Shapes.Range(Array("chart")).Delete Me.Image1.Picture = LoadPicture(Image)