OVH Cloud OVH Cloud

Pilotage de Excel par OLE Automation

5 réponses
Avatar
dpl
Désolé pour une question sans doute posée et reposée

comment traduire le code excel vba suivant:
-> Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

le code suivant ne fonctionne pas:
-> :m_xExcel>>Selection>>Borders(xlInsideHorizontal)>>LineStyle = xlnone

Je precise que je dois utiliser ce genre de methode, n'etant pas maitre
du projet

Merci d'avance pour vos reponses
DPL

5 réponses

Avatar
Pascal ROY
dpl a écrit :
Désolé pour une question sans doute posée et reposée

comment traduire le code excel vba suivant:
-> Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

le code suivant ne fonctionne pas:
-> :m_xExcel>>Selection>>Borders(xlInsideHorizontal)>>LineStyle = xlnone

Je precise que je dois utiliser ce genre de methode, n'etant pas maitre
du projet

Merci d'avance pour vos reponses
DPL


Bonjour,

Ca devrait marcher a la condition que les variables (constantes)
xlInsideHorizontal et xlNone soit déclarées !

Pascal
Avatar
dpl
Effectivement, j'ai trouvé sur wdforge le moyen de recuperer la valeur
numerique de ces constantes et de les coller dans un fichier de
declarations externe
merci dpl

Pascal ROY wrote:
dpl a écrit :
Désolé pour une question sans doute posée et reposée
comment traduire le code excel vba suivant:
-> Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
le code suivant ne fonctionne pas:
-> :m_xExcel>>Selection>>Borders(xlInsideHorizontal)>>LineStyle = xlnone
Je precise que je dois utiliser ce genre de methode, n'etant pas
maitre du projet
Merci d'avance pour vos reponses
DPL





Bonjour,
Ca devrait marcher a la condition que les variables (constantes)
xlInsideHorizontal et xlNone soit déclarées !
Pascal


Avatar
Pascal ROY
Si ca t'interresse j'ai un fichier Word contenant les
constantes excel97, je peux te le faire parvenir...
(le tout etait de le retrouver, les vacances ont un
effet terrible sur le mémoire :-) )

Pascal

dpl a écrit :

Effectivement, j'ai trouvé sur wdforge le moyen de recuperer la valeur
numerique de ces constantes et de les coller dans un fichier de
declarations externe
merci dpl

Pascal ROY wrote:

dpl a écrit :

Désolé pour une question sans doute posée et reposée
comment traduire le code excel vba suivant:
-> Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
le code suivant ne fonctionne pas:
-> :m_xExcel>>Selection>>Borders(xlInsideHorizontal)>>LineStyle = xlnone
Je precise que je dois utiliser ce genre de methode, n'etant pas
maitre du projet
Merci d'avance pour vos reponses
DPL






Bonjour,
Ca devrait marcher a la condition que les variables (constantes)
xlInsideHorizontal et xlNone soit déclarées !
Pascal




Avatar
Stéphane
dpl a écrit :
Désolé pour une question sans doute posée et reposée

comment traduire le code excel vba suivant:
-> Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

le code suivant ne fonctionne pas:
-> :m_xExcel>>Selection>>Borders(xlInsideHorizontal)>>LineStyle = xlnone

Je precise que je dois utiliser ce genre de methode, n'etant pas maitre
du projet

Merci d'avance pour vos reponses
DPL



Pour connaitre la valeur des constantes :
Quand tu es dans l'éditeur de source (excel ou word) appui sur F2
tu arrives sur l'explorateur d'objet de Micro$oft, tapes
'xlInsideHorizontal' dans la zone de recherche puis les jumelles.
Ensuite en sélectionnant la constante, il t'affiche en bas de fenêtre :

Const xlInsideHorizontal = 12

Il te suffit de recopier tel quel le code dans WD. Du genre :
CONSTANTE xlDiagonalDown = 5
CONSTANTE xlDiagonalUp = 6
CONSTANTE xlEdgeLeft = 7
CONSTANTE xlNone = -4142

--
Ami Calmant
Stéphane
Avatar
dpl
Stéphane wrote:

Pour connaitre la valeur des constantes :
Quand tu es dans l'éditeur de source (excel ou word) appui sur F2
tu arrives sur l'explorateur d'objet de Micro$oft, tapes
'xlInsideHorizontal' dans la zone de recherche puis les jumelles.
Ensuite en sélectionnant la constante, il t'affiche en bas de fenêtre :

Const xlInsideHorizontal = 12

Il te suffit de recopier tel quel le code dans WD. Du genre :
CONSTANTE xlDiagonalDown = 5
CONSTANTE xlDiagonalUp = 6
CONSTANTE xlEdgeLeft = 7
CONSTANTE xlNone = -4142




Bien vu, je ne connaissait pas cette façon de faire
Merci pour vos reponses
dpl