Macro pour sauvegarder un fichier en JPG ?

Bonjour,

Je cherche à avoir une petite macro qui me permettrait de sauvegarder un morceau de tableau en jpg (ou gif...), plutôt que de Copier le tableau puis ouvrir un logiciel de retouche (Paint Shop par exemple) puis coller.

Tout cela en 1 seul clic, ce qui me permettrait de mettre vite à jour ce tableau sur le net, sur des forums où il me faut aller très vite.

Est-ce que c'est possible ?

Merci d'avance pour vos solutions et/ou pistes !

PS : j'ai excel 2003 (cela dit, c'est écrit excel 2002 !)

Salut le forum

Un petit bout de code tiré du site http://dj.joss.free.fr/web.htm

Sub exportgif()
Dim Plage As Range

Set Plage = Application.InputBox(Prompt:="Sélectionner votre zone: (Ex. A1:B10) ", _
                         Title:="Sélection de zone ", Default:="$A$1", Type:=8)

Application.ScreenUpdating = False
  Workbooks.Add
    Plage.CopyPicture
      ActiveSheet.Paste

With ActiveSheet.ChartObjects.Add(0, 0, _
                    Selection.Width, Selection.Height).Chart
    .Paste
    .Export "D:\Test.gif", "GIF"
End With

ActiveWorkbook.Close False

End Sub

Mytå

Bonjour,

Merci pour le bout de code qui fonctionne parfaitement bien.

Peut-on rajouter une fonction pour formater le jpg sortie au format 530x350 par exemple ou tout autre dimension?

Cordialement.