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 :-(
Si vous avez des idées ou des pistes je suis à l'écoute
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
merci
Partager