[AC-2007] ouverture d'un fichier excel

[STOUPI]

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 :

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

[paidge]

BOnjour,

En 2s, première réponse de :

Code :

1
2
3
4
5
6
7
8
9
    Dim xls As Excel.Application
    On Error GoTo errHnd
    Set xls = CreateObject("Excel.Application")
    xls.Workbooks.Open "C:\monChemin\monFichier.xls"
    xls.Visible = True
    Exit Sub
 
errHnd:
    MsgBox "Erreur N° " & Err.Number & vbLf & Err.Description, , Err.Source

PS : n'oublie pas d'activer la référence MS EXCEL XX.0 Object Library dans VBE

[STOUPI]

Bonjour
J'aie essayer cette programmation mais il me sort

Erreur de compilation
type défini par l'utilisateur non défini

N'étant pas un spécialiste, pouvez-vous m'aider
Merci beaucoup

[paidge]

Envoyé par paidge

PS : n'oublie pas d'activer la référence MS EXCEL XX.0 Object Library dans VBE

Je crois que c'est ça qui ne va pas...