Discussion :

[flevielle]

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 ?

[ouskel'n'or]

Feuille protégée ?

[jfontaine]

Essai en ajoutant le nom de la feuille devant ton range

Code :

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

Sheets(d).Range("D5:H23").Select

[Hindioumax]

plutot que sheets(d).select essaie sheets(d).activate


sinon le code ci dessous fonctionne parfaitement

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
    Dim file as string
    file = "Y:\Test.xls"
 
   ' Ouverture du fichier
    Workbooks.Open Filename:=file
 
   ' Declaration de la feuille
    Dim MaFeuille As Worksheet
    Set MaFeuille = Worksheets("MettreLeNomDeTaFeuille")
 
   ' Selection
    MaFeuille.Activate
    Range("D5:H23").Select

++

[Pierre Fauconnier]

Bonsoir

Dans le code

Code :

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

1
2
3
4
5
6
 
   Workbooks.Open Filename:= _
        "Y:\Test.xls"
    Sheets(d).Select
 
    Range("D5:H23").Select

Il faut vérifier que la valeur de la variable d représente bien le nom ou l'index d'une feuille de calcul. Si d représente le nom ou l'index d'une feuille graphique, tu auras l'erreur que tu décris.

Pour t'assurer d'activer une feuille de calcul, tu peux également utiliser

Code :

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

worksheets(d).select

qui spécifie le type de la feuille que tu veux activer.

Tu peux placer un point d'arrêt sur

Code :

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

Range("D5:H23").Select

pour t'assurer que c'est la bonne feuille qui a été activée.

Tu peux aussi, mais c'est un autre sujet, voir s'il est vraiment utile de sélectionner les plages que tu souhaites traiter, car cela ralentit l'exécution et modifie l'aspect de l'interface utilisateur.

Ok?