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 : Sélectionner tout - Visualiser dans une fenêtre à part
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