VBA enregistrement de l'image d'une feuille

[Byfranck]

Bonjour à tous,

je suis en pleine finalisation d'une base de données clients, j'ai besoin d'extraire des statistiques qui sont dans une feuille nomée Stats.
Tout roule grâce au indications trouvées dans le Forum sauf que je n'arrive pas à enregistrer l'image crée dans le même répertoire que là ou se trouve la base de données.
Dans le code je ne peux pas précisier le chemin car la base tourne sur différents PC, il faudrait donc que l'image .gif s'enregistre toujours par défaut dans le répertoire de la base.

(Avec le code ci-desous, l'image gif s'enregistre systématiquement dans "Mes documents"! 😕)
Un coup de main serait le bienvenue!

Private Sub MeStats_Click()
Dim Plage As Range
Dim Area As String
' Exportation en .gif de la plage A1:I25
Set Plage = Sheets("Stats").Range("A1:N78")
' Recuperation nom du vendeur
Area = Sheets("feuil1").Range("B20").Value
Application.ScreenUpdating = False
Workbooks.Add: Plage.CopyPicture: ActiveSheet.Paste
With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart
.Paste
.Export Area & "-Export-" & Format(Now, "yyyymmdd") & ".gif", "GIF"

End With
ActiveWorkbook.Close False

End Sub

Merci d'avance pour vos conseils.
Franck

 

[Hulk]

Re : VBA enregistrement de l'image d'une feuille

Hello,

Question : Il y a quoi dans ta feuille1 cellule B20 ?

Le mieux c'est que tu déposes un échantillon de ton fichier sans données confidentielles.

Cdt, Hulk.

 

[Byfranck]

Re : VBA enregistrement de l'image d'une feuille

Hello,

Question : Il y a quoi dans ta feuille1 cellule B20 ?

Le mieux c'est que tu déposes un échantillon de ton fichier sans données confidentielles.

Cdt, Hulk.

Bonjour Hulk,
Pas vraiment possible d'envoyer l'extrait de ma base (242 colonnes 3800 lignes .. total >3,5Meg!)

en B20 sur la Feuil1 j'ai le code de la région.
Si le prob ne vient pas de là j'ai essayé avec un mom de fichier sans variable même problème.

 

[Byfranck]

Re : VBA enregistrement de l'image d'une feuille

C'est bon je viens de trouver:

.Export ThisWorkbook.Path & "\" & Area & "-Export-" & Format


Merci de topute façon à ceux qui se sont creusé la tête!

Franck