cs_criche
Messages postés20Date d'inscriptionlundi 15 avril 2002StatutMembreDernière intervention 3 octobre 2003
-
25 juin 2002 à 18:10
cs_criche
Messages postés20Date d'inscriptionlundi 15 avril 2002StatutMembreDernière intervention 3 octobre 2003
-
26 juin 2002 à 14:28
Benoit Stéphane
Erreur d'éxécution en automation VB-Excel
Le code VB suivant intégré dans un formulaire VB, ouvre un nouveau document excel, y affiche dans la cellule 1-17 le chiffre 100.23.
Mais quand je souhaite faire un alignement à droite dans cette cellule, le message d'erreur suivant s"affiche :
"erreur d'exécution 1004, impossible de définir la propriété HorizontalAlignment de la classe range"
Voici le code :
Dim ExcelSheet As Object
Set ExcelSheet = CreateObject("Excel.Application") ' création d'un nouveau doc excel
ExcelSheet.Application.Visible = True
ExcelSheet.Application.Workbooks.Add
ExcelSheet.Application.Cells(1, 17).Select
ExcelSheet.Application.ActiveCell.FormulaR1C1 = 100.233
ExcelSheet.Selection.NumberFormat = "0.00"
ExcelSheet.Selection.HorizontalAlignment = xlRight
cs_criche
Messages postés20Date d'inscriptionlundi 15 avril 2002StatutMembreDernière intervention 3 octobre 2003 26 juin 2002 à 00:21
Benoit Stéphane
Excuses, moi, mais pourrais tu être plus précis? qu'entends tu par "Il faut ajouter la référence d'excel dans le projet pour que cela fonctionne"
Merci