Discussion :

[Macss]

Bonjour,
ce matin mon employeur à décider que le programme que je faisais sur Access 2003 passerait a 2007 alors je me suis mis à la tâche.
Première erreur : la fonctione FileSearch qui n'existe plus en 2007 alors je l'ai remplacé par Dir. Jusque la pas trop compliqué.

Deuxième erreur que je ne suis pas capable de régler est la suivante :
La propriété HasTitle pour un graphique ne fonctionne plus de la même manière qu'en 2003

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
21
22
23
24
25
26
27
28
29
Dim GraphObj As Object
 
  'dim str_Langue as string
  Dim str_Titre As String
 
  Dim rst As Recordset
  Dim strSQL As String
  Dim strCaptionBouton As String
 
  'Permet de récupérer la langue de la base de données
  'str_Langue = trouve_Langue
  Me.ShortcutMenu = False
  If str_Langue = "FR" Then
    str_Titre = "Répartition selon l'expérience"
  Else
    str_Titre = "Distribution by Experience"
  End If
 
'  If typeUtilisateur = "DIR" Or Left(typeUtilisateur, 2) = "SS" Then
'    Me.IndépendantOLE0.RowSource = "SELECT [Req CF A1) Select_Graphique_Expérience].rang, [Req CF A1) Select_Graphique_Expérience].Experience_Mois FROM [Req CF A1) Select_Graphique_Expérience];"
'  ElseIf Left(typeUtilisateur, 3) = "ADJ" Then
'    Me.IndépendantOLE0.RowSource = "SELECT tbl_Graph_EXP.rang, tbl_Graph_EXP.Experience_Mois FROM tbl_Graph_EXP;"
'  End If
    Me.IndépendantOLE0.RowSource = "SELECT tbl_Graph.RANG, tbl_Graph.VALEUR FROM tbl_Graph WHERE tbl_Graph.NOM_GRAPH='G_EXP'"  'ORDER BY tbl_Graph.RANG;"
 
    Set GraphObj = Me![IndépendantOLE0].Object.Application.Chart
    'Mise à jour du titre du graphique
    GraphObj.HasTitle = True
    GraphObj.ChartTitle.Text = str_Titre

Le programme plante

Code :

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

GraphObj.HasTitle = True

. Avec l'erreur #1004 (unable to set the HasTitle property of the Chart Class) Cet ligne fonctionnais très bien en 2003. Je ne sais pas si vous avez des idées pour la régler ?
Merci de votre aide

[loufab]

Bonjour,

Probablement un problème de référence.

Pour Hastitle essaye d'inclure Microsoft Graph 12.0

Pour le Filesearch il est normalement dans Word ou Excel. Apparement la V12 ne le contient plus, il doit être ailleurs ! mais ou ?

A chercher.

Cordialement,

[Invité]

Bonjour

Pour FileSearch, Silkyroad est a fait une variante pour Excel 2007 qui en était dépourvu, à toi de voir si tu peux l'adapter dans Access.

http://silkyroad.developpez.com/vba/classefilesearch/

Starec

[Macss]

Merci pour votre aide !!

Étonament ce matin, le code hastitle fonctionne. C'est peut-être du à la réinstalation de office. C'est peut-être mon cadeau de noël