Discussion :

[patricktoulon]

Bonjour a tous
je travaille sur la capture en image de tout ce qui peut se passer a l'ecran avec ou sans api histoire de remettre au gout du jour tout mes petites bonbinettes de macro

je suis actuellement sur la capture d'une plage copiée sur un graphique (ca pas de soucis c'est vieux comme le monde)

mais j'ai eu une envie de proposer a l'utilisateur un dialog enregistrer sous
alors a ma connaissance seule la fenetre dialog excel existe
j'ai eu donc l'idée de la détourner pour proposer a l'utilisateur le choix d'enregistrer sa capture par la boite de dialog saveas

ma question est donc y a t il un moyen plus propre c'est a dire un dialog qui me permettrait de recupérer le nom tapé dans le dialog
je sais c'est tordu mais c'est moi et c'est comme ca

demo

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub enregistrer_capture_sous()
    Dim plage, graf, choix As Integer, chemin As String, Ext
    Ext = "jpg"
    With ActiveSheet
        Set plage = .Range("a1:D7")
        plage.CopyPicture xlScreen, xlPicture
        Set graf = .ChartObjects.Add(plage.Left, plage.Top, plage.Width, plage.Height)
        graf.Chart.Paste
        chemin = enregistrer_sous("jpg")
        If chemin <> "" Then graf.Chart.Export Filename:=chemin, FilterName:=Ext
        graf.Delete
    End With
End Sub

fonction de la boite de dialog détournée

Code :

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

1
2
3
4
5
6
7
Function enregistrer_sous(Ext) As String
    Dim choix
    enregistrer_sous = ""
    choix = Application.FileDialog(msoFileDialogSaveAs).Show    'afficher la boite de dialogue "enregistrer sous" de excel
    'la fonction retourne le resultat
    If choix <> 0 Then enregistrer_sous = Split(Application.FileDialog(msoFileDialogSaveAs).SelectedItems(1), ".")(0) & "." & Ext
End Function

merci pour vos retour

[eriiic]

Bonjour,

pas bien compris quel nom tu voulais.
Application.FileDialog(msoFileDialogSaveAs).SelectedItems(1) contient chemin\nomFichier.ext
eric

[patricktoulon]

bonjour erric
oui mais si je detourne pas le result et que je tape macapture.JPG
je me retrouve avec "macapture.JPG.xls"
car cette boite de dialog est faite sauve en general le classeur
donc ma question était simple
existe il une autre boite de dialog me permettant de récupérer le chemin avec nom tapé

un peu comme avec getopenfilename qui nouvre rien mais te donne le chemin du fichier que tu a choisi

[mjpmjp]

bonjour,

fileFilter et fileformat :
http://www.rondebruin.nl/win/s5/win001.htm

@+JP

[patricktoulon]

Ahhh!! ben voila

dans le mille mjpmjp

Code :

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

1
2
3
4
5
Function enregistrer_sous2(Ext) As String
    enregistrer_sous2 = ""
    fname = Application.GetSaveAsFilename(InitialFileName:=Environ("userprofile") & "\Desktop", filefilter:="image Files (*.jpg), *.jpg", Title:="ENREGISTREMENT DE LA CAPTURE")
    If fname <> False Then enregistrer_sous2 = fname
End Function

perfect!!

[RyuAutodidacte]

Coucou,

Ben alors Patrick une petite faiblesse - pourquoi chercher loin ce que l'on peut avoir sous le bout de son nez

aller j'arrête de te taquiner

Amicalement
Ryu

[patricktoulon]

salut RYU
et bien ca n'est pas parce que j'en sais pas mal que je sais tout

chez nous on dit "baleille devant ta porte avant de dire au voisin de balayer devant la sienne"

nan!! moi aussi j'arrête de te taquiner

[RyuAutodidacte]

Re,

T'inquiète, je balaie tjs devant ma porte, et ce n'est pas mon genre de dire aux autres de balayer devant la leur.
Je me fais pas de souci sur ce que tu connais ou pas, je sais que t'y arrivera.
On est tous à même de passer sur des choses évidentes, moi le 1er
En tout cas tu démarres au quart de tour qd on te taquine gentiment


Amicalement

Ryu

[patricktoulon]

re
c'est vrai il faut pas me chauffer je reconnais
je rends au centuple le bon comme le mauvais

si tu a une idée pour le second problème je cherche toujours une méthode propre

d'habitude dans mes classes control il y a des controls dans le userform

alors je fait forme.controls(1).parent.width et ca match

mais la je n'ai pas de control il est vide

[mjpmjp]

bonjour,

du code en vrac ...

Code :

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

1
2
3
4
5
6
7
 
Function enregistrer_sous2(Ext) As String
    chemin = "D:\"
    nom_defaut = Date & " - Titre"
    ChDir chemin
    Application.Dialogs(xlDialogSaveAs).Show (chemin & nom_defaut)
End Function

redimensionne excel

Code :

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

1
2
3
4
 
aza = Application.Dialogs(xlDialogSaveAs).Parent
MsgBox aza.Width
aza.Width = 500

@+JP
liste des boites de dialogues: