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

Signaler
Messages postés
20
Date d'inscription
lundi 15 avril 2002
Statut
Membre
Dernière intervention
3 octobre 2003
-
Messages postés
20
Date d'inscription
lundi 15 avril 2002
Statut
Membre
Dernière intervention
3 octobre 2003
-
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

4 réponses

Messages postés
97
Date d'inscription
jeudi 10 mai 2001
Statut
Membre
Dernière intervention
20 juin 2005

Bonjour,

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

Cordialement
0
Messages postés
20
Date d'inscription
lundi 15 avril 2002
Statut
Membre
Dernière intervention
3 octobre 2003

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
0
Messages postés
97
Date d'inscription
jeudi 10 mai 2001
Statut
Membre
Dernière intervention
20 juin 2005

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
0
Messages postés
20
Date d'inscription
lundi 15 avril 2002
Statut
Membre
Dernière intervention
3 octobre 2003

Benoit Stéphane
0