Enregistrer une image créée par Excel (macro)

Hello à tous,

Tout d'abord, merci @Steelson pour son aide concernant ma demande sur la création de QRCode.

Pour résumer, voici ce qu'il en est:

Le but est de réaliser un publipostage via Word avec les infos de la feuille Excel.

FIchier Excel créant un QRCode via des infos sur la Feuil1.

Le QRCode n'est pas lié a une cellule.

Le QRCode est enregistré via une Macro dans le fichier où est placé le fichier Excel.

PB: L'image enregistré en .jpg est "vide" enfin il n'y a que le cadre et pas le QRCode.

Je vous joins un fichier en exemple et encore un grnad merci à Steelson pour son aide et à vous tous qui aurez une idée.

PS: Je suis sur Excel 2016 EN. (Peut-être est-ce là le souci...)

Merci.

Bonjour,

Ici, ton code fonctionne correctement et les images enregistrées contiennent bien le code QR.

En voici un en exemple ...

ric

charlesdudu

Hello Ric,

Steelson arrive au même résultat que toi.

Malheureusement moi je n'ai rien, aurais-tu une idée du souci ?

Merci,

Bonjour,

Une idée du souci ???

  • Excel est-il bien à jour ?
  • Si tu as Excel 2016, je présume que la version de Windows est la version 10.
  • Est-ce une version récente ? Windows 10 version 1903, 1809, 1803, 1709 ... ?
  • Est-ce que la machine a été redémarrée dernièrement ? (les mises en veille à répétition peuvent poser problème)
  • Est-ce que le nettoyage du disque a été fait dernièrement ?

-- Quel est le dossier de travail de ce fichier ?

ric

Hello,

Alors le PC a bien été redémarré, je viens de le refaire.

L'OS est Windows 7 pro 64bits SP1.

L'ordi est géré par l'entreprise, donc je suppose qu'il est à jour.

J'ai mis le fichier sur le bureau, les documents, même résultat...

Merci

Bonjour,

J'ai en cours un traitement sur ma machine qui m'empêche de redémarrer et qui peut prendre quelques heures.

Je viens de tester à nouveau ton fichier et je me retrouve avec le même souci ... les images des codes QR sont maintenant vides.

Dès que je reprends le plein contrôle de ma machine, je refais d'autres tests et je te tiens au courant.

ric

Bonjour,

J'ai quand même continué les tests durant le traitement.

J'ai observé qu'il se pourrait que ce soit lié aux délais de Pict.CopyPicture.

J'ai donc testé Application.Wait Now + TimeValue("0:00:05") et les codes QR sont bien revenus dans les images.

Si c'est bien cela, il y aura sûrement un compromis à faire entre une seconde et cinq secondes.

ric

Re,

J'ai tenté de modifier le timer jusqau'à 15'' mais rien à faire, c'est toujours pareil.....

Bonjour,

Mon niveau Excel est maintenant dépassé avec ce genre de problème.

Ça va prendre une personne avec de meilleures connaissances que les miennes.

Mais, j'ai une autre observation à soumettre :

  • - quelque soit le délai de Application.Wait ... si l'on va sur le code et que l'on fait un pas-à-pas lent (touche F8), les images contiennent toujours les codes QR.
  • --- Quand les images contiennent les codes QR, elles sont de 5 ko, sinon elles ne sont que de 2 ko.

-- Les tests que j'ai effectués en automatique ne sont pas stables ... parfois c'est bon, parfois ce n'est pas bon. Je ne comprends pas cette instabilité.

ric

Bonjour,

Chercher, chercher et vous trouverez ...

Un code qui fonctionne bien sur ma machine, sans délai d'attente.

À tester sur la tienne ...

Sub saveimage()
Dim Pict
Dim chrt As ChartObject
   'getting width and height of picture so the chart can be sized correctly
   'if the chart has an other size the picture will be scaled to fit inside the chart area

   For Each Pict In Worksheets("Feuil1").Pictures
      Pict.CopyPicture
      W = Pict.Width
      H = Pict.Height
      Set chrt = ActiveSheet.ChartObjects.Add(0, 0, W, H)
      Pict.CopyPicture
      chrt.Border.LineStyle = 1      'no border around chart (and picture)
      chrt.Select
      ActiveChart.Paste
      chrt.Chart.Export ThisWorkbook.Path & "\" & Pict.Name & ".jpg", "JPG"

      nb = Worksheets("Feuil1").ChartObjects.Count
      Worksheets("Feuil1").ChartObjects(nb).Delete
   Next Pict
End Sub

ric

Hello Ric,

Un grand merci pour ton aide !!!

Tout fonctionne parfaitement !

ric

Rechercher des sujets similaires à "enregistrer image creee macro"