Bonjour à tous
J'ai migré mes bases d'access 2003 à 2007 et ce code qui me permettait d'ouvrir un fichier excel ne fonctionne plus

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Function RECH()
Dim Nomfic As Variant
Dim OuvertureChemin As Variant
Dim RetVal As Variant
Nomfic = "D\NOM DU FICHIER" & "\Recherche"
OuvertureChemin = "C:\Program Files\Microsoft Office\Office11\Excel.exe " & Nomfic & ".xlsx"
RetVal = Shell(OuvertureChemin, 1)
End Function
Quelqu'un peut-il maider à adapter ce code
Merci d'avance