Discussion :

[Greg1982]

Bonjour,

Je n'arrive pas à coder la demande suivante:
Fichier 1 sur valeur de la cellule A1 = 1 ouvrir fichier 2 onglet 1 et si valeur cellule A1=2 ouvrir fichier 2 onglet 2
J'ai essayé avec la fonction If ==> goto mais je bloque.
Merci pour votre aide.

[unparia]

Bonjour

J'ai essayé avec la fonction If ==> goto mais je bloque.

Montre le code que tu as essayé (la procédure entière) en nous précisant si le classeur dans lequel tu veux te rendre a été ouvert (et comment) et appartient donc à la collection Workbooks.

[Greg1982]

Bonjour

Montre le code que tu as essayé (la procédure entière) en nous précisant si le classeur dans lequel tu veux te rendre a été ouvert (et comment) et appartient donc à la collection Workbooks.

Code :

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

1
2
3
4
5
6
7
8
9
Sub Macro2()
'
' Macro2 Macro
'
   If Sheets("Relevé analyse vibratoire").Range("e4").Value "rigide" goto
    Windows("Rapport1").Activate
    Sheets("Rigide").Select
    End If
End Sub

Le fichier "Rapport1" est déjà ouvert. Ce fichier sera ouvert au démarrage de la macro.

Merci.

[unparia]

Ah ...
Et si (ce serait vraiment un minimum de chez minimum) tu commençais par étudier la syntaxe d'une expression contionnelle (If ...) ?
Si le bât blesse déjà à ce niveau, il vaut sans aucun doute mieux que tu t'intéresses au moins aux rudiments.
Je ne t'aiderai personnellement qu'ensuite.
Je suis très franchement désolé.

[jerome.vaussenat]

Salut,

Et parce que je partage le point de vue de Unparia, voici un lien pour tout savoir sur le VBA et devenir le plus autonome possible.

https://laurent-ott.developpez.com/t...el-vba-tome-1/

Bonne lecture

[jerome.vaussenat]

Salut,

Voici une proposition de code.

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
Sub toto()
    'Attention, il faut que la cellule A1 contienne un Entier.
    'Et ce N° doit correspondre à un N° de feuille existante dans le classeur ouvert
 
    'Déclaration d'une variable pour stocker le N° de feuille à activer
    Dim numfeuille As Integer
 
    'on mémorise le N° de la feuille
    numfeuille = Cells(1, 1).Value
 
    'ouverture du fichier
 
    'Après ouverture du fichier on active la feuille qui va bien
    ActiveWorkbook.Sheets(numfeuille).Select
End Sub

En espérant que cela fasse ce que tu veux.