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
François Picalausa
Bonjour/soir,
Ce code fonctionne bien chez moi: 'Référence à Microsoft Excel 10.0 Object Library
Dim objExcel As Excel.Application Dim MyWorkbook As Workbook Dim MyWorksheet As Worksheet
Set objExcel = New Excel.Application Set MyWorkbook = objExcel.Workbooks.Add If MyWorkbook.Worksheets.Count > 0 Then Set MyWorksheet = MyWorkbook.Worksheets(1) MyWorksheet.Cells(1, 1).HorizontalAlignment = xlCenter MyWorksheet.Cells(1, 1).FormulaR1C1 = "Hello!" Else MsgBox "Aucune feuille dans le classeur!" End If
objExcel.Visible = True
Tu peux éventuellement essayer Range("A1") à la place de Cells(1,1).
"Bernard Jonckers" a écrit dans le message de news:3fa3a382$0$22522$
J'utilise VB6 et excel 2000. Je voudrais pouvoir centrer du texte dans une cellule, et ensuite le formater sous condition.
L'utilisation de
oSheet.Cells(1,1).HorizontalAlignment = xlCenter
me renvoie un message d'erreur.
Apparemment, les propriétés des objets Excel ne sont pas accessibles par VB !!
Comment faire ?
Merci de votre aide.
BJ
Bonjour/soir,
Ce code fonctionne bien chez moi:
'Référence à Microsoft Excel 10.0 Object Library
Dim objExcel As Excel.Application
Dim MyWorkbook As Workbook
Dim MyWorksheet As Worksheet
Set objExcel = New Excel.Application
Set MyWorkbook = objExcel.Workbooks.Add
If MyWorkbook.Worksheets.Count > 0 Then
Set MyWorksheet = MyWorkbook.Worksheets(1)
MyWorksheet.Cells(1, 1).HorizontalAlignment = xlCenter
MyWorksheet.Cells(1, 1).FormulaR1C1 = "Hello!"
Else
MsgBox "Aucune feuille dans le classeur!"
End If
objExcel.Visible = True
Tu peux éventuellement essayer Range("A1") à la place de Cells(1,1).
Ce code fonctionne bien chez moi: 'Référence à Microsoft Excel 10.0 Object Library
Dim objExcel As Excel.Application Dim MyWorkbook As Workbook Dim MyWorksheet As Worksheet
Set objExcel = New Excel.Application Set MyWorkbook = objExcel.Workbooks.Add If MyWorkbook.Worksheets.Count > 0 Then Set MyWorksheet = MyWorkbook.Worksheets(1) MyWorksheet.Cells(1, 1).HorizontalAlignment = xlCenter MyWorksheet.Cells(1, 1).FormulaR1C1 = "Hello!" Else MsgBox "Aucune feuille dans le classeur!" End If
objExcel.Visible = True
Tu peux éventuellement essayer Range("A1") à la place de Cells(1,1).
