Discussion :

[felitix]

Bonjour,

Depuis une macro Access je dois faire référence à un fichier excel ouvert ou non afin d'insérer des données dans certaines cellules.

J'ai le code VBA suivant celui ci marche lorsque le fichier est fermé mais lorsque qu'il est ouvert je n'arrive pas à faire référence à ce dernier:
J'avais trouvé la function suivante sur internet mais elle me retourne une collectionde workbook vide xl.workbooks.count =0
Des idées pourquoi cela ne fonctionne pas?
Peut être parce que je crée une nouvelle application ( Set xl= CreatObject) et donc que cette collection est vide.. Si oui comment faire référence à une application excel déjà ouverte?

Merci pour votre aide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Function WOuvert(nomFichier As String) As Boolean
 Dim xl As Excel.Application
 Set xl = CreateObject("Excel.Application")
 Dim wb As Excel.Workbook
 MsgBox xl.Workbooks.Count
 For Each wb In xl.Workbooks
 If wb.Name = nomFichier Then
 WOuvert = True
 End If
 Next
 Set wb = Nothing
 Set xl = Nothing
 End Function

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set xl = getobject(,"Excel.Application")

[felitix]

Tout simplement !
J'aurais du y penser avant.

Merci beaucoup d'avoir pris le temps de me répondre ca fonctionne