Discussion :

[tidams]

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

[aalex_38]

Bonjour,

Tu peux essayer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Path

sinon tu peux regarder ici, c'est instructif

[tidams]

Merci pour ta réponse, mais Application.Path n'a pas l'air de fonctionner dans ce contexte là...

J'ai pas trouvé mon bonheur dans ton lien... je vais persévérer !

[aalex_38]

Pardon, je n'avais pas bien lu ta question !

As-tu regardé l'aide en ligne pour la méthode export ?

L'option FileName devrait résoudre ton problème.

[fred65200]

bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
.Export ThisWorkbook.Path & Application.PathSeparator & "export.jpg", "JPG"

ne convient pas?
cordialement

[tidams]

bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
.Export ThisWorkbook.Path & Application.PathSeparator & "export.jpg", "JPG"

ne convient pas?
cordialement

Si c'est parfait merci !!!!

Je peux vous soumettre une dernière requête ? Je voudrais savoir si il était possible de faire un truc du style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Export ThisWorkbook.Path & Application.PathSeparator & "NOMDELAFEUILLE.jpg", "JPG"