Automation excel - ouvrir un fichier sans classeur

**Celia1303** · 22/11/2005, 16h32

Bonjour !

Je voudrais ouvrir un fichier excel par automation via access,
sans les 3 feuilles par défault.

Voici mon code actuel :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
Private Sub L_Contacts_DblClick(Cancel As Integer)
 
'automation pour piloter excel
    Dim xlApp As Excel.Application
    Dim xlSheet As Excel.Worksheet
    Dim xlBook As Excel.Workbook
 
 
  'Initialisations
    Set xlApp = CreateObject("Excel.Application")
    'Set xlBook = xlApp.Workbooks.Open("C:\Documents base\Liste_Contacts")
    Set xlBook = xlApp.Workbooks.Add
    xlApp.Visible = True
 
    'Ajouter une feuille de calcul ( une pour chaque année )
    Set xlSheet = xlBook.Worksheets.Add
    xlSheet.Name = "Liste des contacts"
 
    'supprimer les feuilles créés par defaut
    xlApp.Sheets("Feuil1").Delete
    xlApp.Sheets("Feuil2").Delete
    xlApp.Sheets("Feuil3").Delete
 
    'se positionner sur la feuille Liste des contacts
    xlApp.Sheets("Liste des contacts").Select
 
End Sub

Le problème en procédant comme cela est que excel affiche un message de confirmation de suppression pour chaque feuille.

Il me semble qu'il éxiste un tutoriel sur ce sujet sur developpez.com,
mais je ne le trouve plus.

Merci.

**Arkham46** · 22/11/2005, 17h17

salut,

tu peux pas ouvrir un classeur sans feuille, mais tu peux déjà limiter à 1 feuille (SheetsInNewWorkbook ) et la renommer c'est plus simple

Si je peux me permettre une remarque :
- si tu crées un objet xlBook autant l'utiliser pour faire appel aux feuilles, sinon si tu as plusieurs classeurs il risque de modifier le mauvais

Code :

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

1
2
3
4
5
6
    Set xlApp = CreateObject("Excel.Application") 
    xlApp.SheetsInNewWorkbook = 1
    Set xlBook = xlApp.Workbooks.Add 
    xlApp.Visible = True 
    xlBook.sheet(1).name = "Liste des contacts"
    ...