Bonjour !

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
    Workbooks.Open Filename:= _
        "Y:\Test.xls"
    Sheets(d).Select
        
    Range("D5:H23").Select <- ERREUR 1004 Select Method of Range class failed
    Selection.Copy
    Windows("Test datacard.xls").Activate
    Sheets("Correspondance").Select
    Range("B5").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    With Selection.Font
        .Name = "Arial"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
Le problème est le suivant : j'arrive à ouvrir ma feuille dans le bon onglet mais la sélection ne fonctionne pas alors qu'elle fonctionne indépendemment de la première partie du code...
L'erreur vient-elle du choix de la feuille ?

Pouvez-vous m'aider ?