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