Discussion :

[cindaille]

Bonjour

Mon code suivant récupére les données d'une requête de Access et les transfère vers Excel, ensuite je veux mettre en forme ces données.
Mais l'erreur "Objet requis" empêche cette mise en forme.
Quelqu'un sait-il d'où provient cette erreur?

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
29
30
31
32
33
34
Private Sub Commande11_Click()
On Error GoTo Err_Commande11_Click
 
    Dim qstr As String
    Dim Chemin
    Dim oApp As Object
 
    Chemin = InputBox("Entrer le chemin d'enregistrement des données", , "C:\My Documents\")
 
    DoCmd.TransferSpreadsheet acExport, 8, "Leçons par projet", Chemin, False, ""
 
    Set oApp = CreateObject("Excel.Application")
 
    Chemin = Chemin & ".xls"
    oApp.Workbooks.Open filename:=Chemin
    oApp.Application.Visible = True
 
    With oApp.Application.Worksheets("Leçons_par_projet").Activate
 
    With oApp.Application.Worksheets.Activesheet
    .Columns("C:C").Select
    .Selection.Delete Shift:=xlToLeft
    .Columns("I:I").Select
    .Selection.Delete Shift:=xlToLeft
    End With
 
Exit_Commande11_Click:
    Exit Sub
 
Err_Commande11_Click:
    MsgBox Err.Description
    Resume Exit_Commande11_Click
 
End Sub

[Keraccess]

bonjour,

Avant le "end With" essaye d'ajouter ".close" comme ci-dessous :

Code :

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

1
2
3
4
5
6
7
With oApp.Application.Worksheets.Activesheet
    .Columns("C:C").Select
    .Selection.Delete Shift:=xlToLeft
    .Columns("I:I").Select
    .Selection.Delete Shift:=xlToLeft
    .close
    End With

Ou alors:

Code :

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

Set oApp = Nothing

Bon courage pour la suite...[/code]

[MC2]

Salut,
le with de

With oApp.Application.Worksheets("Leçons_par_projet").Activate

est en trop.
A+

[Tofalu]

Essaye comme cela.

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
29
30
31
32
33
34
35
 
Private Sub Commande11_Click() 
On Error GoTo Err_Commande11_Click 
 
    Dim qstr As String 
    Dim Chemin 
    Dim oApp As Object 
 
    Chemin = InputBox("Entrer le chemin d'enregistrement des données", , "C:\My Documents\") 
 
    DoCmd.TransferSpreadsheet acExport, 8, "Leçons par projet", Chemin, False, "" 
 
    Set oApp = CreateObject("Excel.Application") 
 
    Chemin = Chemin & ".xls" 
    oApp.Workbooks.Open filename:=Chemin 
    oApp.Application.Visible = True 
 
    oApp.Application.Worksheets("Leçons_par_projet").Activate 
 
    With oApp.Application.Worksheets.Activesheet 
    .Columns("C:C").Select 
    .Selection.Delete Shift:=xlToLeft 
    .Columns("I:I").Select 
    .Selection.Delete Shift:=xlToLeft 
    End With 
 
Exit_Commande11_Click: 
    Exit Sub 
 
Err_Commande11_Click: 
    MsgBox Err.Description 
    Resume Exit_Commande11_Click 
 
End Sub

[cindaille]

Maintenant cela fonctionne
Mais lorsque je lance l'éxécution cela marche une seule fois, ensuite le message "Variable objet ou variable bloc With non définie" apparaît

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Private Sub Commande11_Click()
On Error GoTo Err_Commande11_Click
 
    Dim Chemin
    Dim oApp As Object
 
    Chemin = InputBox("Entrer le chemin d'enregistrement des données", , "C:\My Documents\")
 
    DoCmd.TransferSpreadsheet acExport, 8, "Leçons par projet", Chemin, False, ""
 
    Set oApp = CreateObject("Excel.Application")
 
    Chemin = Chemin & ".xls"
    oApp.Workbooks.Open filename:=Chemin
    oApp.Application.Visible = True
 
    oApp.Application.Worksheets("Leçons_par_projet").Activate
 
With oApp    
    With Activesheet.PageSetup
        .CenterHeader = ""
        .CenterFooter = ""
        .Orientation = xlLandscape
    End With
 
    Columns("C:C").Select
    Selection.Delete Shift:=xlToLeft
    Columns("I:I").Select
    Selection.Delete Shift:=xlToLeft
 
End With
 
    oApp.Quit
    Set oApp = Nothing
    Set Chemin = Nothing
 
Exit_Commande11_Click:
    Exit Sub
 
Err_Commande11_Click:
    MsgBox Err.Description
    Resume Exit_Commande11_Click
 
End Sub

[MC2]

Salut,
il te faudrait consulter l'aide sur l'utilisation de "With... End With" car maintenant, il te manque plusieurs "."

Code :

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

1
2
3
4
5
6
7
With oApp
   With .ActiveSheet... etc
       .CenterHeader...
       ...
   End With
   .Columns... etc
End With