[AC-2007] Piloter un fichier excel ouvert

[fisio]

Bonjour à vous,

Je souhaite piloter un fichier déjà ouvert y faire des actions pas à pas : supprimer ligne, supprimer une colonne, etc.

Le code suivant ne fonctionne pas

Code :

Workbooks("pointage.xls").Worksheets("Séptembre").Columns(1).Delete

Je ne souhaite pas réouvrir à chaque fois le fichier.

Merci

[LedZeppII]

Bonjour,

Voila une exemple :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Test()
Dim xlWbk As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim sFile As String
 
On Error GoTo PROC_Err
 
sFile = "C:\Doss1\Doss2\Nom du fichier.xls"
 
Set xlWbk = GetObject(sFile)
Set xlSheet = xlWbk.Sheets("Nom de la feuille")
' Supprime la troisième colonne
xlSheet.Range("C:C").Delete xlShiftToLeft
' Fin
GoTo PROC_Exit
 
PROC_Err:
MsgBox "Erreur " & Err.Number & " : " & Err.Description
 
PROC_Exit:
Set xlSheet = Nothing
Set xlWbk = Nothing
End Sub

Il faut une référence VB à "Microsoft Excel xx.x Object Library" (xx.x dépend de la version d'Office).

A+

[fisio]

Code :

1
2
3
4
5
6
7
Dim xlWbk As EXCEL.Workbook
Dim xlSheet As EXCEL.Worksheet
Dim sFile As String
sFile = "C:\Users\RV\Desktop\pointage_agriaus.xls"
Set xlWbk = GetObject(sFile)
Set xlSheet = xlWbk.Sheets("Novembre")
xlSheet.Columns(1).Delete

Suite à l'expression du code suivant j'ai le code erreur 9 : indice n'appartient pas a la sélection

[helas]

Bonsoir,
Il ne pourrait s'agir que de la feuille Novembre
Le nom est-il exact?