Résolu [VBA] Copie de feuilles " L'indice n'appartient pas à la sélection"

[tantal_fr]

Bonjour,

J'ai un souci sur une macro que je suis en train de faire avec le code d'erreur 9.
Voici le code :

Option Explicit

Sub LAS()

    'Variables
    Dim oldStatusBar As String
    Dim PauseTime, start As Single
    Dim astrLinks As Variant
    Dim i As Integer
    Dim l_a_s As Workbook
    
     
    'Initialisation macro
    'Application.ScreenUpdating = False
    'On Error GoTo ErrorHandler  'Ya un problème, on gère
    
    Set l_a_s = Workbooks.Add

    'Dupplication de la feuille cunsultation
    Sheets("Liste_à_servir").Copy After:=l_a_s.ActiveSheet
    
     'Suppression des lien externes

    Dim LesLiens As Variant
    Dim Lien As Variant
    
    LesLiens = ActiveWorkbook.LinkSources(xlExcelLinks)
    If Not IsEmpty(LesLiens) Then
        For Each Lien In LesLiens
            ActiveWorkbook.BreakLink Name:=Lien, Type:=xlExcelLinks
        Next
    End If
        LesLiens = ActiveWorkbook.LinkSources(xlExcelLinks)
        
    Application.ScreenUpdating = True
    

    
Exit Sub
   
ErrorHandler:         'Gestionnaire d'erreurs


' [...] Plein de truc, pas mis pour plus de lisibilité 
End Sub

L'erreur se produit à la ligne 20 (si je met .Sheets(1) ou .Worksheets(1), même erreur.
Je pense que la solution est triviale, seulement, sur le coups, je vois pas.

Merci de votre aide.

 

[drul]

Comme ça rapidement je dirais que en créant un nouveau WBook en ligne 17, tu le sélectionne aussi, donc il cherche Sheets("Liste_à_servir") certainement dans l_a_s ...

 

[tantal_fr]

Merci drul, effectivement c'étais ça. Je cherchais l'erreur à droite de l'expression.

 

[drul]

Comme le dirais notre sautillant modo, toujours préciser la source des données quand on joue avec plusieures feuilles et à plus forte raison plusieurs classeurs!

Heureux d'avoir pu t'aider

 

[zeb]

Vous devez être connecté pour voir les images.

" tournicoti toujours préciser la source des données quand on joue avec plusieurs feuilles et à plus forte raison plusieurs classeurs! tournicoton"

 

[drul]

:rofl:

 

[tantal_fr]

Mea culpa zeb, je ne le referais plus, promis

 

[zeb]

Je t'en prie, je cherchais moins à te donner tord qu'à donner raison à notre cher Drul. ( )