Discussion :

[Celia1303]

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 !

[Arkham46]

salut,

Code :

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

Cells(1, 1).Select

c'est pas une commande access, il faut que tu précises le classeur concerné.

sinon tu libères tes objets à la fin de la fonction?

[Celia1303]

Salut !

Meme si je me positionne sur la feuille, ca ne change rien

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
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 & " "
 
    'se positionner sur la feuille
    xlApp.Sheets(" " & ChoixAn & " ").Select
 
    Cells(1, 1).Select

Je ne libère pas les objets à la fin, car lorsque je mets =nothing ca marche pas

Ou alors comment on fait pour les libérer ?

[Arkham46]

t'as pas compris ce que je disais je crois...

c'est pas :

Code :

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

Cells(1, 1).Select

mais

Code :

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

xlApp.activesheet.Cells(1, 1).Select

(enfin je pense de mémoire)
Tu ne peux pas faire appel à la méthode Cells sans préciser à quelle feuille tu réfères; c'est peut-être pas ça qui va empêcher excel de se fermer mais je doute que la sélection de la cellule fonctionne comme ça.

Sinon pour libérer excel c'est :

Code :

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

set xlApp = nothing

[Celia1303]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
xlApp.ActiveSheet.Cells(1, 1).Select
'Cells(1, 1).Select
With ActiveCell
        .Value = "Num du suivi"
        With .Font
             .Bold = True
             .Color = RGB(153, 0, 0)
             .Italic = True
             .Name = "Comic sans MS"
             .Size = 10
             .Underline = xlUnderlineStyleDouble
        End With
    End With

Merci pour ta réponse.

Mais maintenant ca plante sur
.value = "..."

[Arkham46]

argh!

c'est la même chose, <activecell> est un objet excel, tu dois lui dire de quelle feuille!

d'ailleur quand tu fais de l'automation ne passe par des activecell ou activesheet, utilise directement les objets :

Code :

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

1
2
With xlSheet .Cells(1, 1)
  .Value = ....

J'imagine que tu as enregistré une macro sous excel, c'est pour ça que tu utilises les objets activesheet et activecell?
Mais ici en VBA ça ne sert à rien d'activer les objets.

[Celia1303]

d'ailleur quand tu fais de l'automation ne passe par des activecell ou activesheet, utilise directement les objets :

Tu as raison, je te remercie.

En fait je passais par activecell car j'ai fait un copier coller d'un code que j'ai trouvé sur le net.

J'ai pas l'habitude de travailler avec excel.

Merci beaucoup!