Bonsoir,
La macro ci-dessous genere un message d'erreur:
erreur de compilation
Type défini par l'utilisateur non défini
Quelqu'un peut-il me dire ou ça bloque.
Merci de me répondre
Private Sub Commande56_Click()
'Déclaration des variables
Dim appExcel As Excel.APPLICATION 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel
'Ouverture de l'application
Set appExcel = CreateObject("Excel.Application")
'Ouverture d'un fichier Excel
Set wbExcel = appExcel.Workbooks.Open("C:\Documents and
Settings\Bernard.BS-PERSO\Mes documents\CALCUL\DEVIS BS AUTO 0104.xls")
'wsExcel correspond à la première feuille du fichier
Set wsExcel = wbExcel.Worksheets(1)
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
michdenis
Bonjour Bernard,
Ce code fonctionne si tu l'exécutes dans un module d'excel.
Si tu exploites ce code dans un module d'une autre application de Microsoft, tu devras ajouter la bibliothèque suivante avant d'exécuter ce code : "Microsoft Excel objet librairy".
Pour ne pas avoir à déclarer cette bibliothèque, utilise plutôt cette version : '-------------------- Private Sub Commande56_Click() 'Déclaration des variables Dim appExcel As Object 'Application Excel Dim wbExcel As Object 'Classeur Excel Dim wsExcel As Object 'Feuille Excel
'Ouverture de l'application Set appExcel = CreateObject("Excel.Application") 'Ouverture d'un fichier Excel '/...... etc
End Sub '--------------------
Salutations!
"Bernard SALIEN" a écrit dans le message de news:% Bonsoir, La macro ci-dessous genere un message d'erreur:
erreur de compilation Type défini par l'utilisateur non défini
Quelqu'un peut-il me dire ou ça bloque.
Merci de me répondre
Private Sub Commande56_Click() 'Déclaration des variables Dim appExcel As Excel.APPLICATION 'Application Excel Dim wbExcel As Excel.Workbook 'Classeur Excel Dim wsExcel As Excel.Worksheet 'Feuille Excel
'Ouverture de l'application Set appExcel = CreateObject("Excel.Application") 'Ouverture d'un fichier Excel Set wbExcel = appExcel.Workbooks.Open("C:Documents and SettingsBernard.BS-PERSOMes documentsCALCULDEVIS BS AUTO 0104.xls") 'wsExcel correspond à la première feuille du fichier Set wsExcel = wbExcel.Worksheets(1)
End Sub
Bonjour Bernard,
Ce code fonctionne si tu l'exécutes dans un module d'excel.
Si tu exploites ce code dans un module d'une autre application de Microsoft, tu devras ajouter la bibliothèque suivante avant
d'exécuter ce code : "Microsoft Excel objet librairy".
Pour ne pas avoir à déclarer cette bibliothèque, utilise plutôt cette version :
'--------------------
Private Sub Commande56_Click()
'Déclaration des variables
Dim appExcel As Object 'Application Excel
Dim wbExcel As Object 'Classeur Excel
Dim wsExcel As Object 'Feuille Excel
'Ouverture de l'application
Set appExcel = CreateObject("Excel.Application")
'Ouverture d'un fichier Excel
'/...... etc
End Sub
'--------------------
Salutations!
"Bernard SALIEN" <93206310nospam@wanadoo.fr> a écrit dans le message de news:%23nNXAOQ5DHA.2312@TK2MSFTNGP12.phx.gbl...
Bonsoir,
La macro ci-dessous genere un message d'erreur:
erreur de compilation
Type défini par l'utilisateur non défini
Quelqu'un peut-il me dire ou ça bloque.
Merci de me répondre
Private Sub Commande56_Click()
'Déclaration des variables
Dim appExcel As Excel.APPLICATION 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel
'Ouverture de l'application
Set appExcel = CreateObject("Excel.Application")
'Ouverture d'un fichier Excel
Set wbExcel = appExcel.Workbooks.Open("C:Documents and
SettingsBernard.BS-PERSOMes documentsCALCULDEVIS BS AUTO 0104.xls")
'wsExcel correspond à la première feuille du fichier
Set wsExcel = wbExcel.Worksheets(1)
Ce code fonctionne si tu l'exécutes dans un module d'excel.
Si tu exploites ce code dans un module d'une autre application de Microsoft, tu devras ajouter la bibliothèque suivante avant d'exécuter ce code : "Microsoft Excel objet librairy".
Pour ne pas avoir à déclarer cette bibliothèque, utilise plutôt cette version : '-------------------- Private Sub Commande56_Click() 'Déclaration des variables Dim appExcel As Object 'Application Excel Dim wbExcel As Object 'Classeur Excel Dim wsExcel As Object 'Feuille Excel
'Ouverture de l'application Set appExcel = CreateObject("Excel.Application") 'Ouverture d'un fichier Excel '/...... etc
End Sub '--------------------
Salutations!
"Bernard SALIEN" a écrit dans le message de news:% Bonsoir, La macro ci-dessous genere un message d'erreur:
erreur de compilation Type défini par l'utilisateur non défini
Quelqu'un peut-il me dire ou ça bloque.
Merci de me répondre
Private Sub Commande56_Click() 'Déclaration des variables Dim appExcel As Excel.APPLICATION 'Application Excel Dim wbExcel As Excel.Workbook 'Classeur Excel Dim wsExcel As Excel.Worksheet 'Feuille Excel
'Ouverture de l'application Set appExcel = CreateObject("Excel.Application") 'Ouverture d'un fichier Excel Set wbExcel = appExcel.Workbooks.Open("C:Documents and SettingsBernard.BS-PERSOMes documentsCALCULDEVIS BS AUTO 0104.xls") 'wsExcel correspond à la première feuille du fichier Set wsExcel = wbExcel.Worksheets(1)
End Sub
RaMa
Bonsoir
Au chemin près ta macro fonctionne bien chez moi
RaMa
"Bernard SALIEN" a écrit dans le message de news:%
Bonsoir, La macro ci-dessous genere un message d'erreur:
erreur de compilation Type défini par l'utilisateur non défini
Quelqu'un peut-il me dire ou ça bloque.
Merci de me répondre
Private Sub Commande56_Click() 'Déclaration des variables Dim appExcel As Excel.APPLICATION 'Application Excel Dim wbExcel As Excel.Workbook 'Classeur Excel Dim wsExcel As Excel.Worksheet 'Feuille Excel
'Ouverture de l'application Set appExcel = CreateObject("Excel.Application") 'Ouverture d'un fichier Excel Set wbExcel = appExcel.Workbooks.Open("C:Documents and SettingsBernard.BS-PERSOMes documentsCALCULDEVIS BS AUTO 0104.xls") 'wsExcel correspond à la première feuille du fichier Set wsExcel = wbExcel.Worksheets(1)
End Sub
Bonsoir
Au chemin près ta macro fonctionne bien chez moi
RaMa
"Bernard SALIEN" <93206310nospam@wanadoo.fr> a écrit dans le message de
news:%23nNXAOQ5DHA.2312@TK2MSFTNGP12.phx.gbl...
Bonsoir,
La macro ci-dessous genere un message d'erreur:
erreur de compilation
Type défini par l'utilisateur non défini
Quelqu'un peut-il me dire ou ça bloque.
Merci de me répondre
Private Sub Commande56_Click()
'Déclaration des variables
Dim appExcel As Excel.APPLICATION 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel
'Ouverture de l'application
Set appExcel = CreateObject("Excel.Application")
'Ouverture d'un fichier Excel
Set wbExcel = appExcel.Workbooks.Open("C:Documents and
SettingsBernard.BS-PERSOMes documentsCALCULDEVIS BS AUTO 0104.xls")
'wsExcel correspond à la première feuille du fichier
Set wsExcel = wbExcel.Worksheets(1)
"Bernard SALIEN" a écrit dans le message de news:%
Bonsoir, La macro ci-dessous genere un message d'erreur:
erreur de compilation Type défini par l'utilisateur non défini
Quelqu'un peut-il me dire ou ça bloque.
Merci de me répondre
Private Sub Commande56_Click() 'Déclaration des variables Dim appExcel As Excel.APPLICATION 'Application Excel Dim wbExcel As Excel.Workbook 'Classeur Excel Dim wsExcel As Excel.Worksheet 'Feuille Excel
'Ouverture de l'application Set appExcel = CreateObject("Excel.Application") 'Ouverture d'un fichier Excel Set wbExcel = appExcel.Workbooks.Open("C:Documents and SettingsBernard.BS-PERSOMes documentsCALCULDEVIS BS AUTO 0104.xls") 'wsExcel correspond à la première feuille du fichier Set wsExcel = wbExcel.Worksheets(1)
