Je veux =E0 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=E9fini par l'utilisateur non d=E9fini"
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=E9e
'Ouverture de l'application
Set xlApp =3D CreateObject("Excel.Application")
xlApp.Visible =3D True
y'a t'il une r=E9f=E9rence que je dois ajouter dans Access.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
3stone
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 ?
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 ?
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 ?
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
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.
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
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
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
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