Ouvrir un fichier Excel à partir de Access

Alan -  
Kobaya Messages postés 282 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
je cherche un moyen d'ouvrir un classeur Excel à partir de Access en VB.
Si quelqu'un a une idée....
Thank's
A voir également:

3 réponses

Réponse 1 / 3
zenon Messages postés 729 Statut Membre 180
 
La commande Shell peut faire ça:

X = Shell ( "CheminDeLExécutable Chemin du fichierAOuvrir")
1
Réponse 2 / 3
Kobaya Messages postés 282 Date d'inscription   Statut Membre Dernière intervention   214
 
salut,

tu peux aussi essayer en créant une instance Excel avec le code ci-dessous (il faut que Excel soit référencé dans Access, mais comme je n'ai plus Access sur mon poste, je ne vais pas pouvoir te dire exactement comment faire. Regarde dans le menu Outils/Référence de l'éditeur VBA)


Sub LiaisonEXCEL()
Dim XL As Excel.Application
Dim WB As Excel.Workbook

On Error GoTo Err_test

' utilisation d'une instance EXCEL existante
Set XL = GetObject(, "Excel.Application")
XL.Workbooks.Add

Set WB = XL.ActiveWorkbook

' mets ici ton code

Set XL = Nothing: Set WB = Nothing
Exit Sub

Err_test:
If Err = 429 Then
' création d'une instance EXCEL
Set XL = GetObject("", "Excel.Application")
Resume Next
Else
MsgBox Err.Description & vbLf & "dans la procédure test", vbCritical, ActiveDocument.Name
Resume
End If
Set XL = Nothing: Set WB = Nothing
End Sub

A+,
Kobaya.
1
Réponse 3 / 3
Kobaya Messages postés 282 Date d'inscription   Statut Membre Dernière intervention   214
 
Je dois préciser que ce code est issu de Word.
Donc remplace :

MsgBox Err.Description & vbLf & "dans la procédure test", vbCritical, ActiveDocument.Name

par

MsgBox Err.Description & vbLf & "dans la procédure test", vbCritical

A+,
Kobaya.
1