Discussion :

[darkspoilt]

Bonjour,

POur detecter la fin de mon tableu j'ai utiliser la fonctione suivante

Code :

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

colonne = xls.ActiveSheet.Range("a1").End(xlToRight)(1, 2).Column

ensuite j'aimerais utilise le numéro de collone recu pour faire des manipulation Excel via Acces
Par exemple

Code :

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

xls.ActiveSheet.Range("B1:J49").Borders(xlInsideVertical).LineStyle = xlNone

J'aimerais soit pourvoir utiliser mon numéro de colone trouver soir convertir mon numéro de colonne en lettre
Si quelqu'un peut m'aider je le remercie d'avance

[Pierre Fauconnier]

Bonjour

Tu as au moins deux solutions

1. Utiliser

Code :

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

    Range(Cells(1, 2), Cells(49, Colonne)).Borders...

2. Utiliser une fonction qui renvoie la lettre d'une colonne en fonction de son numéro

Code :

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

1
2
3
4
5
6
 
Function LettreColonne(Colonne As Integer) As String
    If Colonne > 0 And Colonne < 257 Then
        LettreColonne = Split(Cells(1, Colonne).Address(1, 0), "$")(0)
    End If
End Function

Ok?

[darkspoilt]

POur la premiere solution il me met que la méthode Cells de l'objet global a échoué.
J'ai écris cela

Code :

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

xls.ActiveSheet.Range(Cells(1, 2), Cells(49, colonne)).Borders(xlEdgeBottom).LineStyle = xlContinuous

[Pierre Fauconnier]

Effectue la macro en "pas à pas" pour vérifier que colonne contient une valeur valide (>0 ET <257)

Ok?

[darkspoilt]

J'ai aussi la meme erreur pour la deuxieme solution

CEla est déja vérifié. J'ai pas une référence dans Acces a ajouter??
Colonne contient 17.

[Pierre Fauconnier]

Quel est le type de ta variable xls?

[darkspoilt]

xls est une Excel.Application c'est le point d'entrée de ma fenetre Excel via Access