Discussion :

[npenel]

Bonjour à tous,

Je souhaiter transférer en VBA certains données à partir d'Access 2007 vers Excel 2007. Le fichier Excel doit être déjà ouvert.

Ainsi la méthode classique à partir d'Access

Code :

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

Excel.Workbooks.Open ("mydoc.xls")

n'est pas possible.

lorsque pour compter les feuilles excel déjà ouverte je fais un

Code :

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

Excel.WorkBooks.count

j'obtiens = 0 même avec plusieurs fichiers excel déjà ouvert.

Je n'arrive donc pas à communiquer entre Access et une feuille Excel déjà ouverte.

- Quelqu'un aurait déjà eu ce problème ??

- Comment faire ?

Merci par avance pour votre aide

NP

[User]

Salut,

Est-ce que cette disussion pourrait t'aider ?

[npenel]

Super ce code fonctionne. Merci beaucoup 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
15
16
17
18
19
20
 
Function ClasseurOuvert(fichier As String) As Boolean
 On Error GoTo erreur
 Dim o As Object
 Set o = GetObject(fichier)
 ClasseurOuvert = True
 Exit Function
erreur:
 ClasseurOuvert = False
End Function
 
Sub test()
 Dim xlw As Object, fichier As String
 fichier = "f:\excel\test.xls"
 If ClasseurOuvert(fichier) Then
  Set xlw = GetObject(fichier)
  xlw.Sheets("Feuil1").Range("C1") = 10
 End If
 
End Sub