Discussion :

[ranomanitra]

Bonjour,

Je suis encore novice et je suis en train dexporter des données access sur excel. Je souhaiterai en faisant l'export dire à access d'appeler la feuille qui reçoit les données, de supprimer la plage de cellule contigue à celle sélectionnée, et supprimer toutes les données.

Après exportation des données via access, tout marche bien. Mais si je recommence j'ai le message suivant qui apparait

"erreur d'execution 1004 methode range de l'objet global a echoue"
et excel est systématiquement planté

Je suis obligé d'ouvrir le gestionnaire des tâches et ôté l'application excel systématiquement.

Auriez vous des solutions à me proposer ??

Le code qui me pose pb est le suivant
'appel de la feuille correspondante surlaquelle exporter les données+ efface les données

Code :

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

1
2
3
   xlApp.Sheets("BDD").Select
    Range("A2").CurrentRegion.Select
    Selection.ClearContents

c'est au niveau de Range ("A2)que la macro bugg
Pour info : dans outil /reference ci-dessous les éléments cochés
visual basic for Applications
Microsoft Access 14.0 Object Library
OLE Automation
Microsoft Excel 14.0 Object Library
Microsoft DAO 3.6 Objcet Library

Je suis sous access 2010

Merci beaucoup!!! Merci bcp aussi à ce site qui m'a beaucoup aidé ds la creation de cette macro.

[User]

Bonsoir,

Il faut bien penser à préfixer l'objet range.

Excel n'est pas censé deviner à quelle feuille Range("A2") appartient

Donc, à quelle feuille appartient Range("A2") dans ton code ?

A+

[ranomanitra]

Range ("A2") appartient à la feuille BDD.
Merci !!!

[User]

Bonjour,

En fait tu n'es pas sous Excel, tu pilotes Excel depuis Access en VBA c'est ça la différence. Sous Excel ton code marcherait peut-être mais dans Access tu as besoin de gérer ces objets avec des variables.

Essaie par exemple de te servir de ta variable xlApp pour faire référence à ces objets et méthodes, ton code pourrait ressemble à ça:

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
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
 
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open("C:\Documents and Settings\Fichier.xls")
 
      xlBook.Sheets("BDD").Select
      xlBook.Sheets("BDD").Range("A2").CurrentRegion.Select
      xlApp.Selection.ClearContents
...
 
xlBook.Close
xlApp.Quit
 
Set xlBook = Nothing
Set xlApp = Nothing

Utilise pour ça l'explorateur d'objets disponible depuis l'éditeur VBE.

A+...

[ranomanitra]

Oui j'ai déjà remplacer par xlapp et j'ai tjs le bugg
j'ai mis

xlApp.Sheets("BDD").CurrentRegion.Select

et j'ai comme message d'erreur "erreur d'execution 438 Propriété ou methode non géré par cet objet"

[User]

En fait c'est :

Code :

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

xlBook.Sheets("BDD").Range("A2").CurrentRegion.Select

il te faut en plus utiliser la variable:

Code :

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

Dim xlBook As Excel.Workbook

A+

[ranomanitra]

Ha non excuse moi!!!
je n'avais pas lu toute ta réponse et ça marche!!!
Merci énormément!!! t'es génial !!!
merci à ce site car c'est un super outil!!

[User]

De rien,

J'espère que tu as compris le principe et l'utilité de l'explorateur d'objets