Bonjour,

J'ai une appli qui fonctionne sous 2003.
Je voudrais la faire fonctionner sous 2007, voir 2010.

J'ai du enlever une référence : manquant utility.mda. Mais visiblement elle n'est pas utile sous 2007.

J'ai des fonctions qui plantent:
"Erreur inattendue: Code 2046-->La commande ou l'action "AfficherFenêtre" n'est pas disponible pour l'instant."

Le code correspondant:
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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
Function Gen_Maintenance(ByVal Fonction As String)
'**********************************************************************
'Opérations : Donne accès au fonctions de maintenance
'**********************************************************************
 
On Error GoTo Err_Gen_Maintenance
 
'Initialisation des variables
Dim Réponse As Variant
Dim optionAppli As Property
Dim Ardéchoise As Database
Const TITRE_MSGBOX As String = "Mode Maintenance"
 
 
'** demande de confirmation de l'opération de MAJ du champ abandon
'Réponse = MsgBox("Vous allez passer en mode 'Maintenance' reservé à l'administrateur.", _
            vbInformation + vbOKCancel + vbDefaultButton1, TITRE_MSGBOX)
 
'If Réponse = vbOK And SécuInput() Then
 
  Select Case Fonction
    Case "Restaure"
      'Affichage des menus
      Call Menu_on
      'Touches de raccourcis
      'Application.SetOption "Macro d'affectation des raccourcis", ""
      'Barres d'outils
      Set Ardéchoise = CurrentDb
      'Set optionAppli = Ardéchoise.CreateProperty("AllowBuiltInToolbars", dbBoolean, True)
      'Ardéchoise.Properties.Append optionAppli
      Ardéchoise.Properties![AllowBuiltInToolbars] = True
      'Set optionAppli = Ardéchoise.CreateProperty("AllowToolbarChanges", dbBoolean, True)
      'Ardéchoise.Properties.Append optionAppli
      Ardéchoise.Properties![AllowToolbarChanges] = True
      'Set optionAppli = Ardéchoise.CreateProperty("AllowShortcutMenus", dbBoolean, True)
      'Ardéchoise.Properties.Append optionAppli
      Ardéchoise.Properties![AllowShortcutMenus] = True
 
      'Fenetre BD
      DoCmd.Close acForm, "Lien Caché", acSaveNo
      Application.RunCommand acCmdWindowUnhide
      Application.DoCmd.Maximize
  End Select
 
'Else
'  Réponse = MsgBox("Opération Annulée.", vbInformation + vbOKOnly, TITRE_MSGBOX)
'End If
 
Exit_Gen_Maintenance:
  Exit Function
 
Err_Gen_Maintenance:
  Call Gen_Erreur(Err.Number, DATA_ERRFUNCTION)
  Resume Exit_Gen_Maintenance
 
End Function
Je ne sais pas ce qu'il faut mettre à jour.

Une idée?
Merci