Piloter excel sous access (comment travailler dans une feuille particulière) [Résolu]

[labjon01]

Bonjour,

J'ai regardé dans la FAQ, mais étant nouveau en programmation, je n'arrive pas à transposer ce que j'y ai lue dans mon code. En effet, je n'arrive pas à aller dans une feuille particulière pour y faire ensuite des opérations courantes. Le message d'erreur qui apparaît à la ligne «xlSheet.Columns("A:K").Select» est le suivant:

«La méthode Select de la classe Range a échouée».

C'est pourquoi je soupçonne que je ne suis pas vraiment entré dans la feuille puisque le code pour les opérations semble être le même que vue ailleurs...donc devrait être bon...

Voici le code:

Code :

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
Sub Gros_test_excelworksheet()
 
 
    Dim xlApp As Excel.Application
    Dim xlSheet As Excel.Worksheet
    Dim xlBook As Excel.Workbook
 
 
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open("C:\Documents and Settings\labjon01\Bureau\SISAT\Validation SISAT\Validation_listes_CSSS_Chibougamau.xls")
 
 
             Set xlSheet = xlBook.Worksheets("Validation1_Chibougamau")
             xlSheet.Columns("A:K").Select
             xlSheet.Columns("A:K").EntireColumn.AutoFit
             xlSheet.Range("A1:K1").Select
 
        With Selection.Interior
            .ColorIndex = 15
            .Pattern = xlSolid
        End With
 
    xlBook.Save
    xlBook.Close
    xlApp.Quit
    Set xlSheet = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing
 
End Sub

Est-ce bien l'initialisation du xlSheet qui est problématique? J'avoue être un peu perdu..

Merci d'avance!

Précision: j'utilise la version 2003 d'excel et d'access

[helas]

Bonjour,

Modifier comme ci-dessous

Code :

1
2
3
4
5
6
7
8
9
10
11
 
Sub Gros_test_excelworksheet()
 
    Dim xlSheet As Excel.Worksheet
    Dim xlBook As Excel.Workbook
 
    Workbooks.Open("C:\Documents and Settings\labjon01\Bureau\SISAT\Validation SISAT\Validation_listes_CSSS_Chibougamau.xls")
    Set xlBook = Workbooks("Validation_listes_CSSS_Chibougamau.xls")
    Set xlSheet = xlBook.Worksheets("Validation1_Chibougamau")
 
     xlSheet.Columns("A:K").Select

[Mulumebet]

Bonjour,

Quand je reproduis votre programme j'ai un message m'indiquant "type défini par l'utilisateur non défini" (donc j'ai supprimé les DIM) et ensuite un message d'erreur "Objet requis" mais à la ligne "with selection.interior"
J'avoue être sans solution...j'ai d'ailleurs posté un message pour un problème similaire.
Je travaille aussi avec Office 2003
Bon courage !

[curt]

Bonsoir,

Regarde dans les références... Excel ne doit pas y être (MANQUANT).
Sélectionne-le dans la liste déroulante Microsoft Excel 11.0
Recompile. Il ne doit plus y avoir d'erreur - par contre, remet les déclarations de variables (les DIM comme tu les appelles)

Curt

[labjon01]

Bonjour,

J'ai essayé votre code et le même message d'erreur continu à apparaître au même endroit...

[labjon01]

J'ai finalement trouvé une solution qui fonctionne:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
 
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open("C:\Documents and Settings\labjon01\Bureau\SISAT\Validation SISAT\Validation_listes_CSSS_Chibougamau.xls")
 
        With xlBook.Sheets("Validation1_Chibougamau")
        .Select
        .Columns("A:K").Select
        .Columns("A:K").EntireColumn.AutoFit
        .Range("A1:K1").Select
        End With
......

Merci pour vos réponses!

[doncamelo]

Bonsoir labjon01,

J'ai testé ton code et j'ai toujours le message d'erreur.

En activant la référence conseillé par Curt, tout fonctionne.

" Microsoft Excel 12.0 Object Library "