Bonjour !
Je pilote excel à partir d'access.
Mon code fonctionne correctement lorsque je l'éxécute une première fois.
Mais lorsque je ferme (manuellement) le fichier excel, et que je reclique sur le bouton Bt_Arch_Suivi, le fichier excel s'ouvre, créer une feuille,
et le programme bugue sur la dernière ligne : "La méthode cells a échoué".

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
 
Private Sub Bt_Arch_Suivi_Click()
 
Dim ChoixAn As Integer
ChoixAn = Me.ListeAnS
 
    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.Add("\\Ntserver\commun\Base\Archives\Archive_Suivis.xls")
 
    xlApp.Visible = True
 
    'Ajouter une feuille de calcul ( une pour chaque année )
    Set xlSheet = xlBook.Worksheets.Add
    xlSheet.Name = " " & ChoixAn & " "
 
    Cells(1, 1).Select
Je ne comprends pas ...
Et surtout je ne vois pas comment je pourrais faire.

Merci d'avance à ceux qui pourront me conseiller !