Bonjour,

J'ai une macro qui me permet de faire un export de ma feuille xls en JPG sur mon disque dur.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
'
' Export graphique
'

Sub exportgraphique()
Dim Plage As Range
    Set Plage = Application.InputBox(Prompt:="Sélectionner votre zone: (Ex. A1:F154) ", _
    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 "RACINE OU EST MON FICHIER XLS/export.jpg", "JPG"
    End With
    ActiveWorkbook.Close False
End Sub
Comment faire en sorte que mon export puisse se faire à la racine où est enregistré mon fichier xls ?

Merci d'avance pour vos savantes réponses !

Tidams