Convertir contenu cellule en fichier PNG

Bonjour à tous;

Voici mon défi :

J'ai besoin de créer des fichiers PNG à partir du contenu d'une cellule excel.

Par exemple la cellule A1 contient un chiffre (255 comme exemple); j'aimerais que, via une fonction, excel me crée un fichier qui s'appelerait 255.PNG et qui serait bien entendu l'image du contenu de la cellule (soit 255 dans ce exemple);

idem avec la cellule A2 = 256 --> création d'un fichier 256.PNG; etc...

J'espère m'être bien expliqué !?

Merci d'avance à vous !...et prenez soin de vous...

Sougoliv

Bonjour,

un truc du genre peut-être ?

Sub export_jpg()
Dim val As String

Application.ScreenUpdating = False
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
val = Cells(i, 1)
If val <> "" Then
Cells(i, 1).CopyPicture
Workbooks.Add
ActiveSheet.Paste
With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart
    .Paste
    .Export "C:\modifier_le_chemin_ici\" & val & ".png", "png"
End With
ActiveWorkbook.Close False
End If
Next
End Sub

Merci... je vais essayer ça rapidement :)

Merci JoyeuxNoel ;) ...bon début, en tous cas, ça fait qqch :)

Alors voilà, après avoir ajuster l'emplacement pour l'export dans le script et créé un liste de test :

A1=1

A2=2

A3=3

etc...

lorsque j'exécute le script, ça "travaille, me crée bien des fichiers PNG (1.png, 2.png, etc...) dans le répertoire spécifié... mais lorsque j'ouvre un de ceux-ci, ils sont tous vides ?

Est-ce que je fais quelque chose de travers ? j'ai essayé de changer la couleur de la police en me disant que peut-etre c'etait blanc/blanc mais ce n'est pas ça...

Merci pour l'aide déjà :)

Bonjour,

Chez moi aucun souci :

Merci pour le retour super rapide...

bon pas de bol pour moi... du coup qu'est-ce ça pourrait être ?

la verison d'excel ? je suis en 365

quelle police et taille as-tu utilisé ?

merci

Je ne sais pas.

Poste ton code, voire ton fichier, pour essayer de voir si un truc foire.

Pour les couleurs, polices, etc, je n'ai absolument rien touché et je ne pense pas que ça change bien grand chose.

parfait, merci...

voici le fichier.

Ca marche nickel chez moi.

Je ne sais pas quoi te dire de plus du coup :(

Bonjour Sougoliv,

Hello JoyeuxNoel,

En retour le fichier posté avec modifs. Sur ma petite pause de l'après-midi.

Lancer la macro Zoneimage en module 1.

Salut,

je viens d'essayer le fichier sur un autre PC (aussi une Surface). c'est le même résultat - cà-dire fichier image vide !

le seul point commun entre les deux essais, est que j'ai installé la même version d'office sur les deux machines (O365)... Ce serait ça ???

Toutes pistes/idées sera la bienvenue !

Merci d'avance

Bonjour,

Avant de demander d'autres pistes, peut-être peux-tu tenter celle d'X Cellus, non ?

Hello JoyeuxNoel, X Cellus;

sorry, je n'avais pas fait attention à ce post !...

en effet, ça fonctionne maintenant ! C'est super génial...

Un grand merci à vous deux !

Bonne continuation :)

Bonjour à tous;

je reviens sur ce post précédent, car j'ai besoin de faire de plus grande quantité et, malgré que la macro (de X Cellus) à l'air de bien fonctionner, après 13 images, ça s'arrête !?

Donc si je par exemple, 50 numéros dans les cellules A1 à A50, à la 13ème, ça s'arrête...

une idée ? pour éviter de faire tout le travail par batch de 13 ?

Merci d'avance :)

...rectifications, ce n'est après 13, mais c'est plutot aléatoire :

je viens de faire 20 cellules à la fois, il ne m'en a fait que 10.

puis j'ai relancé la macro, et il a fait les 20 ???

Bonjour Sougoliv,

Je viens à nouveau de tester plusieurs fois le fichier posté il y a quelques mois.

Et n'est pas rencontré le souci que tu reportes.

J'ai augmenté de 10 en 10 le nombre d'images jusqu'à 50 images au final et tout c'est bien déroulé en moins de 5 à 6 secondes.

Vérifies que tu n'as pas d'images qui porterait le même nom que celles que tu réalises...

Et que les objets soient bien libérés en fin de macro

Set objChrt = Nothing
Set rngImage = Nothing

Et n'oublies pas de clore ce sujet.