Utiliser une fonction VBA excel dans vba word

Version imprimable

Bonjour,

Je sais que me demande n'est pas "normal" mais j'ai un document word qui écrit dans une feuille excel pour cela j'ai besoin de savoir résoudre la position de la colonne.
Exemple 44=AR
donc impossible d'utiliser la fonction chr (x+97)
sous excel il faut faire : Left$(Cells(1, 44).Address(0, 0), (NoColonne < 27) + 2)

et dans l'autre sens
AR=44
Range("AR" & "1").Column

Dans word j 'ai essayer de créer un Excel.Application :

mais ce code ne marche pas :-(
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 sub Test() Dim xlApp As Excel.Application Dim xlWorkbooks As Excel.Workbooks Dim xlSheet As Excel.Worksheet Dim myCells As Cells Set xlApp = CreateObject("Excel.application") NoColonne = 40 DenomCol = Left$(xlApp.Cells(1, NoColonne).Address(0, 0), (NoColonne < 27) + 2)'la méthode a échoué DenomCol = Left$(xlSheet.Cells(1, NoColonne).Address(0, 0), (NoColonne < 27) + 2)'variable de bloc with non définie DenomCol = Left$(myCells(1, NoColonne).Address(0, 0), (NoColonne < 27) + 2)'erreur de compilation End Sub
Si vous avez des idées ou des pistes je suis à l'écoute

merci

Bonjour,

Comme ceci. Regarde les commentaires au sujet de la référence et de certains termes avec ou sans s

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Test()
    Dim xlApp As Excel.Application
    'Ne pas confondre Workbook (un classeur) et
    'WorkBooks (Une collection de classeurs)
    'Ne pas confondre Worksheet et sheet (une feuille Excel) et
    'Worksheets et Sheets (Une collection de feuilles)
    Dim classeur As Excel.Workbook
    Dim feuille As Excel.Worksheet
    'En ajoutant la référence à Excel dans Outils - Références
    'On profite de L'intellisence et on se passe de CreateObject
   ' Set xlApp = CreateObject("Excel.application")
    Set xlApp = New Excel.Application
    xlApp.Visible = True
    Set classeur = xlApp.Workbooks.Add
    Set feuille = classeur.ActiveSheet
    NoColonne = 40
    DenomCol = Left$(feuille.Cells(1, NoColonne).Address(0, 0), (NoColonne < 27) + 2) 'la méthode a échoué
    'DenomCol = Left$(xlSheet.Cells(1, NoColonne).Address(0, 0), (NoColonne < 27) + 2) 'variable de bloc with non définie
    'DenomCol = Left$(myCells(1, NoColonne).Address(0, 0), (NoColonne < 27) + 2) 'erreur de compilation
    MsgBox (DenomCol)
End Sub

05/05/2014, 16h14
cedricM2o

Merci

Bonjour,

Merci pour la réponse rapide qui est en plus fonctionnelle
bonne journée