Erreur Access VBARésolu

Question

Bonjour

J'ai récupéré un code pour extraire un graphique vers une image jpg.
Le problème, il suffit que le code ai été exécuté une fois, pour que :
- lors de la fermeture du formulaire
- lors d'une tentative d'accès au code.
access affiche ce message

suivit de celui si

Voici le code en question

Public Sub CmdExportJPG_Click()
    On Error GoTo JPG_Erreur
    Dim oleGrf As Object
    Dim strFileName As String

    Set oleGrf = Me!Graph_.Object
    strFileName = Application.CurrentProject.Path & "/Graphique" & Format(Now, "YY-MM-DD_HH-MM") & ".jpg"
    oleGrf.Export Filename:=strFileName
JPG_Exit:
    Set oleGrf = Nothing
Exit Sub
JPG_Erreur:
MsgBox Err.Description
Resume JPG_Exit
End Sub

Ce qui est bizarre, c'est que tant que la demande de fermeture du formulaire n'est pas faite, access reste stable, et les autres commandes vba s'exécutent.

Renfield · Accepted Answer

http://support.microsoft.com/default.aspx?scid=kb;en-us;Q287022




Renfield





Admin CodeS-SourceS

- MVP Visual Basic

Renfield · Answer

de quel type de graph s'agit-t'il ?

strFileName = Application.CurrentProject.Path & "/Graphique" & Format(Now, "YY-MM-DD_HH-MM") & ".jpg"

tu n'ignore pas que c'est le \ qui permet sous Windows de séparer les Folder et non les / ....

enfin, je trouve étrange le .Object

Renfield
Admin CodeS-SourceS- MVP Visual Basic

Klums · Answer

& "/Graphique" &
Autant pour moi, c que j'avais pas sauvegardé et je l'ai mal réecrit, par contre il generait comme meme l'image mais je l'ai corrigé malggré tout.

Set oleGrf = Me!Graph_.Object
je le sort de là : 
http://www.3stone.be/access/articles.php?lng=fr&pg=47
Pour le type de graph :
Application OLE : Graphique Microsoft Graph
Classe Objet : MSGraph.Chart.8

c'est le graphe par defaut qu'il y a dans inserer -> Graphique.
(ou inserer ->Objet ->Graphique Microsoft Graph)
Merci

Klums · Answer

Alors là, bien joué, en plus la deuxième solution qu'il propose se raproche bien plus de ce que je voulais faire.
Merci de repondre en plus à une question que je n'avais meme pas posé :)

Erreur Access VBA

4 réponses

Votre réponse

Discussions similaires