Discussion :

[cedricM2o]

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

[clementmarcotte]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[cedricM2o]

Bonjour,

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