Discussion :

[flevielle]

Bonjour à tous,

J'ai un premier classeur contenant un onglet par date et un second classeur dans lequel le nom de l'onglet désiré se trouve dans une cellule.

Je souhaite par l'intermédiaire de ma macro, ouvrir le 2e classeur et afficher l'onglet correspondant à la date sélectionnée et... je n'y parviens pas.

Pourriez-vous m'aider.
Merci par avance

[jfontaine]

Fais nous voir ou tu en est

[flevielle]

Code :

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

1
2
    Workbooks.Open Filename:= _ "Y:\Test.xls"
Sheets("XXX").Select ' A pointer sur référence

Je n'en suis pas très loin je suis bloqué !
Ma macro me permet d'ouvrir le classeur où je dois récupérer les infos mais j'arrive pas à changer d'onglet.
Le XXX correspond à la valeur de la case de ma première feuille et au nom de l'onglet que je souhaite activer.

Je pense qu'il n'y a pas grand chose de compliqué mais je ne suis pas expert en VB et je bloque !

[Invité]

Bonjour Flevielle,

Workbooks.Open Filename:= _ "Y:\Test.xls"
Sheets("XXX").Select ' A pointer sur référence

Le XXX correspond à la valeur de la case de ma première feuille et au nom de l'onglet que je souhaite activer.

Si XXX est une variable à laquelle vous avez affecté le contenu de votre cellule, il ne faut pas mettre Sheets.("XXX") mais Sheets(XXX).

[flevielle]

ca y est c'est résolu !
J'ai simplement intégré une variable portant le nom de la feuille a ouvrir.
Merci pour votre aide

[flevielle]

Re !
J'ai un autre petit problème et je préfère le poser rapidement avant de laisser couler le topic plutôt que de faire un nouveau post.

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

Cette fois ci, j'arrive à ouvrir ma feuille dans le bon onglet mais la sélection ne fonctionne pas alors qu'il fonctionne indépendemment de la première partie du code...
Pouvez-vous m'aider encore une fois ?

[Invité]

Re Flevielle,

Code :

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

1
2
3
4
5
6
Workbooks.Open Filename:= _
        "Y:\Test.xls"
' en ajoutant
Windows("Test.xls").Activate

    Sheets(d).Select

[ouskel'n'or]

Il est aussi possible que le déroulement de la macro en soit à la ligne

Range("D5:H23").Select

avant que ton fichier ait fini d'afficher la feuille, auquel cas -> Erreur
Ajoute un DoEvents avant de sélectionner ta feuille

Code :

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

1
2
3
4
5
    Workbooks.Open Filename:= _
        "Y:\Test.xls"
    DoEvents
    WorkSheets(d).Select
    Range("D5:H23").Select <- Plus d' ERREUR 1004 Select Method of Range class failed