Discussion :

[qltmi]

Bonjour,

je voudrais sélectionner un certain nombre de colonne et avoir la dernière colonne sélectionnée pour copier le tout dans une nouvelle feuille. Pour cela j'ai fait le code suivant qui marche très bien sous Excel,

Code :

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

1
2
3
4
5
6
7
           xlws.Cells(10, 10).Select
            LastColumn = Selection.End(xlToRight).Column
 
            xlws.Range(Selection, Selection.End(xlToRight)).Select
            xlws.Range(Selection, Selection.End(xlDown)).Select
            Selection.Copy
            tmpWs.Range("A1").PasteSpecial

Malhereusement, ce code ne marche pas sous access. J'avais déjà recontré des problèmes avec des macro qui contenait le mot "selection" et qui marchait une fois sur deux, mais là ma macro ne marche pas du tout.
Merci pour votre aide.

[Maxence HUBICHE]

C'est parce que, comme tu es dans access, et non pas dans Excel, il charche Selection dans Access, qu'il ne trouve pas.
Par contre, tu mettrais la référence à ton objet application excel devant Selection, ca pourrait aller beaucoup mieux !

par exemple :

Code :

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

monObjetApp.Selection.xxxxx

[qltmi]

Bonjour,
Merci ça marche parfaitement.