OVH Cloud OVH Cloud

Image dans excel

2 réponses
Avatar
élodie
Salut j'ai un problème :
J'ai un tableau dans une de mes feuilles excel que je voudrais enregistrer
dans un fichier GIF à l'aide d'une macro. Seulement voilà, j'ai beau chercher
je ne trouve pas la suite de commande à exécuter pour arriver à résoudre mon
problème ...

Aidez-moi svp !!!

2 réponses

Avatar
isabelle
bonjour élodie,

voie sur ce lien,

http://groups.google.com/groups?hl=fr&lr=&threadm=uxxrRmF2DHA.2360%40TK2MSFTNGP10.phx.gbl&rnumh&prev=/groups%3Fq%3Djpg%2Bgroup:microsoft.public.fr.excel%26start%3D60%26hl%3Dfr%26lr%3D%26scoring%3Dd%26selm%3DuxxrRmF2DHA.2360%2540TK2MSFTNGP10.phx.gbl%26rnum%3D68

isabelle


Salut j'ai un problème :
J'ai un tableau dans une de mes feuilles excel que je voudrais enregistrer
dans un fichier GIF à l'aide d'une macro. Seulement voilà , j'ai beau chercher
je ne trouve pas la suite de commande à exécuter pour arriver à résoudre mon
problème ...

Aidez-moi svp !!!


Avatar
patrick.lyon
bonjour
le code suivant fonctionne avec mspaint

ppnom = Range("m1")
ppchemin = Range("n1")
pppaint = Range("o1")
Application.ScreenUpdating = False
'returnvalue = Shell("C:WINNTsystem32MSPAINT.EXE", 1)
ReturnValue = Shell(pppaint, 1)
ActiveSheet.Shapes("Picture 8").Select
Selection.Copy
SendKeys "%+FO", True
SendKeys ppchemin & "vide.gif~", True
' SendKeys "e:gaspvide.gif~", True
SendKeys "^v~", True
SendKeys "%+FR", True
SendKeys ppchemin & ppnom & ".gif~", True
SendKeys "{tab}~", True
' --------------------------------------------------
SendKeys "%+FQ", True
'SendKeys "%{f4}", True
Application.CutCopyMode = False
Sheets("Date").Select
Application.ScreenUpdating = True

Le 15/11/2004, "élodie" a supposé :
Salut j'ai un problème :
J'ai un tableau dans une de mes feuilles excel que je voudrais enregistrer
dans un fichier GIF à l'aide d'une macro. Seulement voilà , j'ai beau chercher
je ne trouve pas la suite de commande à exécuter pour arriver à résoudre mon
problème ...

Aidez-moi svp !!!