Erreur 1004 selection onglet/cellule marche une fois sur deux

Bonjour,

Je travaille sous ACCESS.

Mon code est très simple: ouvre un fichier excel puis sélectionne un onglet pour modifier un TCD. Ensuite il enregistre et se ferme.

Le code fonctionne une fois sur deux.

Car une fois sur deux, la ligne de code qui sélectionne l'onglet et la cellule M13 ne passe pas.. ERREUR 1004. Pourtant c'est une ligne de base... je ne comprends pas!!

Des idées quelqu'un?

Voici le code:

Option Compare Database

Sub Traitement_TEST()

'Ouvrir le fichier de S-1
    Dim xl As Excel.Application
    Dim wbk As Excel.Workbook
    Set xl = New Excel.Application
    xl.Visible = True

nf = Format(Date - 7, "yyyy") & "_H" & Format(Date - 7, "ww") & "_TEST.xlsx"

Set wbk = xl.Workbooks.Open("C:\Users\...\TEST\" & nf)

'Modifier le TCD

   wbk.Activate
   wbk.Sheets("TRLC").Select
   Range("M13").Select

    With ActiveSheet.PivotTables("Tableau croisé dynamique10").PivotFields( _
        "ETR_LOCALE_LIB")
        .Orientation = xlRowField
        .Position = 2
    End With

ActiveWorkbook.Save

    ' Quitter Excel
        xl.Quit
        Set xl = Nothing

End Sub

Bonjour Sidwel, bon jour le forum,

Peut-être comme ça (non testé) :

Sub Traitement_TEST()

'Ouvrir le fichier de S-1
Dim xl As Excel.Application
Dim wbk As Excel.Workbook
Dim O As Worksheet

Set xl = New Excel.Application
xl.Visible = True
nf = Format(Date - 7, "yyyy") & "_H" & Format(Date - 7, "ww") & "_TEST.xlsx"
Set wbk = xl.Workbooks.Open("C:\Users\...\TEST\" & nf)
Set O = wbk.Worksheets("TRLC")
With O.PivotTables("Tableau croisé dynamique10").PivotFields("ETR_LOCALE_LIB")
    .Orientation = xlRowField
    .Position = 2
End With
wbk.Save
' Quitter Excel
xl.Quit
Set xl = Nothing
End Sub

MERCI !