Vbscript Excel : Sélectionner des colonnes non contigues
Bonjour à tous, je début en VBA depuis peu et j'ai un problème surement tout simple mais que je n'arrive pas à résoudre en VBS, alors que cela fonctionne bien en VBA.
Je n'arrive pas à travers mon script vbs à sélectionner des colonnes non contiguës d'un tableur excel.
J'ai beau chercher sur le forum et sur google, aucune solution ne marche
Voici le script :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
| Dim objXL,rng1,rng2
SET objXL = CreateObject("Excel.Application")
Const xlDown = -4121
Const xlToRight = -4161
Const xlUp = -4162
WITH objXL
.Workbooks.Open ("C:/Users/ABC/Desktop/TEST.xls")
Set rng1 = objXL.Range("D2", objXL.Selection.End(xlDown))
Set rng2 = objXL.Range("G2", objXL.Selection.End(xlDown))
.Application.Union(rng1, rng2).Select
.Application.ActiveWorkbook.Save
.Application.Quit
.Application.DisplayAlerts = False
.Application.DisplayAlerts = True
END WITH
SET objXL = Nothing |
Il persiste à sélectionner toutes les colonnes entre la C et la G !
En VBA j'ai essayé ceci qui fonctionne :
Code:
Application.Union(Range("C2:C" & Range("C" & Rows.Count).End(xlUp).Row), Range("G2:G" & Range("G" & Rows.Count).End(xlUp).Row)).Select
mais dans le script j'ai une erreur de type Objet requis : 'Rows'
Qu'est ce que cela signifie ?
Merci pour votre aide !
