Exportation vers Excel

Le
AfterBoy
Bonjour,

Je veux à partir d'Access 2007 en VBA ouvrir un nouveau document Excel
2007. Par contre lorsque j'utilise ce code j'ai le message d'erreur
"Type défini par l'utilisateur non défini"

Dim xlApp As Excel.Application 'Application
Excel <-- ERREUR ICI
'Dim xlwb As excel.Workbook 'Classeur Excel
Dim xlws As Worksheet 'Feuille Excel
Dim xlws_new As Worksheet 'Nouvelle feuille Excel ajoutée

'Ouverture de l'application
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True

y'a t'il une référence que je dois ajouter dans Access.


Merci
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
3stone
Le #22504711
Salut,

AfterBoy wrote:
Je veux à partir d'Access 2007 en VBA ouvrir un nouveau document Excel
2007. Par contre lorsque j'utilise ce code j'ai le message d'erreur
"Type défini par l'utilisateur non défini"

Dim xlApp As Excel.Application 'Application
Excel <-- ERREUR ICI
'Dim xlwb As excel.Workbook 'Classeur Excel
Dim xlws As Worksheet 'Feuille Excel
Dim xlws_new As Worksheet 'Nouvelle feuille Excel ajoutée

'Ouverture de l'application
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True

y'a t'il une référence que je dois ajouter dans Access.




Et, si tu essayais simplement la réf. Microsoft Excel ?

Hmm... ;-)

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
AfterBoy
Le #22572961
Bonjour,

J'ai ajouté la référence Microsoft Excel 12 et j'ai l'erreur "membre
de méthode ou de données introuvable"

Private Sub Commande419_Click()
Dim EX As New Application
Dim Book As Workbook
Dim Feuille As Worksheet
Set EX = CreateObject("Excel.application")
EX.Visible = True
Set Book = EX.Workbooks.Add <------- ERREUR ICI
'Toutes les fonctions Application sont disponibles avec BooK
Set Feuille = Book.Sheets(1)
'Exemple:
Feuille.Name = "Cette Feuille"
With Feuille
.[a1] = "Ceci est la cellule A1"
.[a2] = "Ceci est la cellule A2"
.Columns("A:A").ColumnWidth = 23.14
End With
'Toutes les fonctions excel sont disponibles avec Feuille.

Merci de m'aider
3stone
Le #22573441
Salut,

AfterBoy wrote:
J'ai ajouté la référence Microsoft Excel 12 et j'ai l'erreur "membre
de méthode ou de données introuvable"

Private Sub Commande419_Click()
Dim EX As New Application
Dim Book As Workbook
Dim Feuille As Worksheet
Set EX = CreateObject("Excel.application")
EX.Visible = True
Set Book = EX.Workbooks.Add <------- ERREUR ICI
'Toutes les fonctions Application sont disponibles avec BooK
Set Feuille = Book.Sheets(1)
'Exemple:
Feuille.Name = "Cette Feuille"
With Feuille
.[a1] = "Ceci est la cellule A1"
.[a2] = "Ceci est la cellule A2"
.Columns("A:A").ColumnWidth = 23.14
End With
'Toutes les fonctions excel sont disponibles avec Feuille.




Oui, mais non ! ;-)

Déjà, il y a beaucoup d'erreurs...
et cela commence par la déclaration/ !
Dim EX As New Application

oui, et quelle application ??

Dim EX As New Excel.Application

ira déjà mieux !
Idem pour ton Add... qui ne s'utilise pas avec le "Set"

Pour commencer en automation, tu peut regarder les
quelques exemples simple de Raymond :
http://officesystemaccess.seneque.net/vba/excel.htm

regarde le menu de gauche pour les exemples.

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
Publicité
Poster une réponse
Anonyme