code pour attribuer ref cellule à une variable

[kinarius]

Bonjour à tous,

Je n'arrive pas en vb à affecter la référence d'une cellule sélectionnée à une variable. Dans mon prog ci dessous, 'col' doit avoir la valeur 'O38' pour que je puisse faire ma sélection et copier coller par la suite.

Quelle est la syntaxe en vb pour attribuer à une variable la référence de la cellule ?

mon prog:
Sub recup()

Model = 'test.xls'

' Ouverture du document excel

Dim q As String
toto = Model
Workbooks.Open Filename:=toto, UpdateLinks:=0, ReadOnly:=True

'Sélection des données

Range('A4').Select
Selection.End(xlDown).Select
Selection.Offset(0, 14).Select

col = ActiveCell.Select 'ca ne marche pas ici.

'Range('A4:O38').Select

Range('A4:col').Select
Selection.Copy

ActiveWindow.Close

'Collage des données

Windows('gestion_test.xls').Activate
Range('A4').Select
ActiveSheet.Paste

End Sub


Merci pour votre aide.
Cordialement

 

[PascalXLD]

Bonjour

essaies

col = ActiveCell.address

et plus bas

Range('A4:' & col).Select

Bon courage

 

[kinarius]

Merci Pascal
Ca marche