Erreur d'éxécution en automation VB-Excel

Question

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

Derrick soft · Answer

Bonjour,

Il faut ajouter la référence d'excel dans le projet pour que cela fonctionne.

Cordialement

cs_criche · Answer

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

Derrick soft · Answer

Bonjour,

Sous VB
Projet/Références... et dans la liste choisir Microsoft Excel X Object Library.

Le X correspond à ta version d'excel :
10.0 pour XP,
9.0 pour 2000,
Etc...

Cordialement

cs_criche · Answer

Benoit Stéphane

Erreur d'éxécution en automation VB-Excel

4 réponses

Discussions similaires