Changer d'onglet via une autre instance Excel

Version imprimable

24/06/2023, 17h35
Crachover

Changer d'onglet via une autre instance Excel
Bonjour,

J'ai deux fichiers Excel ouvert en même temps
- un fichier que je vais appeler SOURCE
- un fichier que je vais appeler TV
Le fichier TV contient plusieurs onglets avec des copier avec liaison du fichier SOURCE

J'utilise donc ce fichier pour afficher des infos sur un autre écran...

Mon problème est que de temps en temps je dois changer d'onglet sur le fichier TV, ce qui m'oblige à me rendre et regarder l'autre écran (qui ne se trouve pas juste à côté...) pour changer d 'onglet

Mes questions :
1. serait-il possible de créer des boutons sur le fichier SOURCE qui afficherait directement l'onglet souhaité sur le fichier TV tout en restant sur le fichier SOURCE ?
2. si oui, serait-il aussi possible d'avoir une info sur le fichier SOURCE m'indiquant sur quelle onglet je suis sur le fichier TV ?
Ps : les deux fichiers seront toujours au même endroit (même répertoire) !

Merci d'avance pour votre aide :-)
24/06/2023, 18h02
Philippe Tulliez

Bonjour,

Citation:

serait-il possible de créer des boutons sur le fichier SOURCE qui afficherait directement l'onglet souhaité sur le fichier TV tout en restant sur le fichier SOURCE ?

A partir du moment où vous précisez la parentalité d'un objet, vous pouvez faire ce que vous voulez.
Example de l'activation de la feuille nommée "Power" du 2ème classeur ouvert? La ligne de code se trouve dans une procédure présente dans le premier classeur ouvert

Code:

Workbooks(2).Worksheets("Power").Activate

A savoir que si l'on veut lire ou écrire dans un autre classeur, il n'y a aucune obligation d'activer la feuille ni de sélectionner une cellule

Citation:

si oui, serait-il aussi possible d'avoir une info sur le fichier SOURCE m'indiquant sur quelle onglet je suis sur le fichier TV ?

Pour connaître le nom de la feuille active du deuxième classeur ouvert

Code:

MsgBox Workbooks(2).ActiveSheet.Name

Si le classeur se nome "TV", vous remplacez la constante 2 par le nom du classeur et son suffixe.

Bonjour, voici mon idée.
Cette macro va créer autant de boutons que d'onglets dans le fichier TV, à toi de changer la taille et la position.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Sub CreerBoutonsOnglets()
    Dim wbTV As Workbook
    Dim wsSource As Worksheet
    Dim wsTV As Worksheet
    Dim btn As Button
    Dim i As Integer
 
    ' Spécifiez le nom du fichier TV
    Set wbTV = Workbooks("TV.xlsx")
 
    ' Spécifiez le nom du fichier SOURCE
    Set wsSource = ThisWorkbook.Sheets("SOURCE")
 
    ' Parcourez tous les onglets dans le fichier TV
    For i = 1 To wbTV.Sheets.Count
        ' Récupérer le nom de l'onglet actuel
        Set wsTV = wbTV.Sheets(i)
        Dim ongletNom As String
        ongletNom = wsTV.Name
 
        ' Créer un bouton dans le fichier SOURCE
        'les paramètres sont dans l'ordre: left,top,width,height
        Set btn = wsSource.Buttons.Add(200, 20 * i, 80, 20)
        With btn
            ' Modifier le nom du bouton avec le nom de l'onglet
            .Name = ongletNom
            ' Lier le bouton à la macro générique
            .OnAction = "ActiverOngletTV"
            ' Passer le nom de l'onglet en tant que paramètre à la macro
            .Caption = ongletNom
        End With
    Next i
End Sub

Une macro pour les effacer et te permettre de tester différentes tailles et positions sans encombrer la feuille:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub EffacerBoutons()
    Dim wsSource As Worksheet
    Dim btn As Button
 
    ' Spécifiez le nom du fichier SOURCE
    Set wsSource = ThisWorkbook.Sheets("SOURCE")
 
    ' Boucle à travers tous les boutons de la feuille de calcul source
    For Each btn In wsSource.Buttons
        btn.Delete
    Next btn
End Sub

Une macro pour activer l'onglet de TV:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub ActiverOngletTV()
    Dim wbTV As Workbook
    Dim wsTV As Worksheet
    Dim ongletNom As String
 
    ' Spécifiez le nom du fichier TV
    Set wbTV = Workbooks("TV.xlsx")
 
    ' Récupérer le nom de l'onglet à afficher
    ongletNom = Application.Caller
 
    ' Activer l'onglet spécifié dans le fichier TV
    wbTV.Sheets(ongletNom).Activate
 
    ' Activer la feuille du fichier source
    ThisWorkbook.Activate
    ' Réactiver la feuille spécifique du fichier source si nécessaire
    ' Remplacez "Feuil1" par le nom de votre feuille source
    ThisWorkbook.Sheets("SOURCE").Activate
    ActiveSheet.Range("A1").Value = ObtenirOngletActif()
 
End Sub

Et une fonction pour récupérer l'onglet actif de TV et utilisée dans ActiverOngletTV pour rafraîchir le statut dans la cellule A1:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Function ObtenirOngletActif() As String
    Dim wb As Workbook
    Dim ws As Worksheet
 
    ' Spécifiez le nom du fichier TV
    Set wb = Workbooks("TV.xlsx")
 
    ' Récupérer le nom de l'onglet actif dans le fichier TV
    Set ws = wb.ActiveSheet
 
    ' Renvoyer le nom de l'onglet actif
    ObtenirOngletActif = ws.Name
End Function

La seule macro à lancer au départ est CreerBoutonsOnglets() une seule fois et par la suite si tu modifies tes onglets TV, le reste est automatique.

24/06/2023, 20h00
Crachover
Merci, je test... :-)

1er TEST
Ne fonctionne pas - erreur 9 (L'indice n'appartient pas à la sélection"
Code:

1 2 Workbooks("TV.xlsx").Worksheets("Feuil1").Activate MsgBox Workbooks("TV.xlsx").ActiveSheet.Name
Pour la solution 2, cela semble ne pas fonctionner, le problème serait aussi au niveau de l'activate
Attention, j'aimerais plus simple, je créerai moi même les différents boutons, pas besoin d'automatiser tout ça ;-)

Ps : j'ai aussi testé avec un lien absolu [C:\Users\Propriétaire\Desktop\TV.xlsx], mais rien... :-/ Il semble ne pas voir mon fichier TV.xlsx...

Si pas trop demandé, serait-il possible d'avoir un exemple (fichiers) ?
24/06/2023, 20h38
Franc

2 pièce(s) jointe(s)

Tes erreurs sont probablement dues aux noms des feuilles ou classeurs.
Voici les 2 fichiers que j'ai utilisés pour test et qui fonctionnent.
Les 2 fichiers doivent être ouverts, tu ta places sur le fichier "Source" et tu lances la macro CreerBoutonsOnglets.
Ensuite tu n'as plus qu'à cliquer sur le bouton désiré pour activer l'onglet dans TV.
24/06/2023, 20h44
Crachover

Merci, ça fonctionne mais... !

Je viens de comprendre le problème... Mes deux fichiers sont ouverts dans deux Excel séparé ! Obligatoire pour pouvoir mettre le fichier TV sur un 2ème écran...
24/06/2023, 21h59
Franc

Oups désolé, là ça dépasse mes compétences d'autodidacte, je dois passer la main.
24/06/2023, 23h54
Philippe Tulliez

Bonjour,

Citation:

Mes deux fichiers sont ouverts dans deux Excel séparé !

Ce n'était pas précisé dans votre demande.

Citation:

Obligatoire pour pouvoir mettre le fichier TV sur un 2ème écran...

Il est parfaitement possible de glisser un classeur vers un autre écran sans pour autant ouvrir une seconde session. C'est ce que j'ai fait pour effectuer le test.
25/06/2023, 11h31
Crachover

Bonjour,

Citation:

J'utilise donc ce fichier pour afficher des infos sur un autre écran..

.
Comment faites-vous pour afficher sur un 2ème écran, sans ouvrir deux Excel (sessions) ? Y a -t-il une option dans Excel ?

Bien à vous :-)
25/06/2023, 12h17
Philippe Tulliez

Bonjour,

Citation:

Comment faites-vous pour afficher sur un 2ème écran, sans ouvrir deux Excel (sessions) ? Y a -t-il une option dans Excel ?

Si vous avez deux écrans, il suffit de sélectionner avec la souris, la fenêtre que vous voulez déplacer (en général, je le fais au niveau de la barre de titres) et cela quelle que soit le fichier et l'application et vous le glissez vers l'écran souhaité.
25/06/2023, 13h23
Franc

Comme je n'ai pas 2 écrans je ne me suis jamais posé la question mais j'ai effectivement vu qu'il y a possibilité de séparer 2 fichiers au sein de la même instance d'Excel. Dans l'onglet "Affichage" --> groupe "Fenêtre" tu as l'option "Côte à côte". Cela sépare tes 2 fichiers que tu peux déplacer à l'écran indépendamment l'un de l'autre.
J'ai testé mes macros dans cette configuration et elles fonctionnent parfaitement.
Dans le même ordre d'idée, on peut doubler un même classeur et le visionner sur 2 fenêtres séparées et ainsi voir 2 onglets différents du même classeur, côte à côte.
Pour cela, toujours dans l'onglet "Affichage", choisir "Nouvelle fenêtre".
J'ai XL2021, je ne sais pas si c'est dispo pour XL2007.
25/06/2023, 13h54
Philippe Tulliez

Bonjour Franc,

Citation:

J'ai XL2021, je ne sais pas si c'est dispo pour XL2007.

Cela existait déjà dans la version 2003 pour 97, je ne me souviens plus.
25/06/2023, 17h36
Crachover

Bon, je dirais que ce n'est pas possible avec Excel 2007...

J'ai bien l'option "Afficher côte à côte", mais cela reste dans la même instance/session/fenêtre Excel...

Pas grave, il me reste juste qu'à me rendre sur l'écran B pour changer d'onglet manuellement.

Bonne journée

Bonjour,

J'ai trouvé ceci (rien à voir avec ma demande...), mais cela semble possible non ?

Comment exécuter une macro d'un fichier Excel déjà ouvert dans une autre instance ?

C'est possible à condition de connaitre au moins le chemin et le nom du classeur ouvert dans l'autre session :
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub ClasseurAutreInstance() Dim Wb As Workbook Dim Chemin As String Chemin = "C:\dossier\nomClasseur.xls" Set Wb = GetObject(Chemin) If Not Wb Is Nothing Then _ Wb.Parent.Run "'nomClasseur.xls'!Module1.nomMacro" End Sub

Bonjour,
Personnellement, je n'ai jamais eu de nécessité d'ouvrir une autre instance d'excel mais il est parfaitement possible de manipuler ses objets.

Petit exemple ci-dessous. Il est certainement possible de faire mieux mais n'ayant pas besoin de ce type de manipulation, je manque d'expérience.

Code d'une procédure qui ouvre un classeur dans une autre instance

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Function NewExcel(FullName As String) As Excel.Application
 ' Ouverture du Classeur dans une nouvelle instance d'Excel
 ' Argument
 '   FullName Chemin complet du classeur à ouvrir
 ' Déclaration et affactation des objets et variables
 Dim appExcel As Excel.Application
 Set appExcel = CreateObject("Excel.Application")
 On Error GoTo ErrorHandler
 With appExcel
 .Workbooks.Open FileName:=FullName
 .Visible = True
 End With
 Set NewExcel = appExcel
ErrorHandler:
  With Err
    If .Number Then MsgBox "Erreur " & .Number & " - " & .Description
  End With
 ' Fin
 On Error GoTo 0
 Set appExcel = Nothing
End Function

Exemple d'un code qui l'invoque

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Test()
  ' Déclaration des constantes et variables
  Const FileName As String = "Base de données.xlsx"
  Const SubFolder As String = "/Data/"
  Dim oExcel As Excel.Application
  Dim CurrentPath As String
  Dim FullName As String
  ' Affectation des objets et variables
  CurrentPath = ThisWorkbook.Path
  FullName = CurrentPath & SubFolder & FileName
  Set oExcel = NewExcel(FullName) ' Ouvre un classeur excel dans une nouvelle instance 
  ' ici Instructions
  With oExcel
    Debug.Print .ActiveSheet.Name ' Affiche ne nom de la feuille active 
  .Worksheets("Base 1").Activate  ' Active la feuille nommée  Base 1
  End With
  ' Fin
  Set oExcel = Nothing
 End Sub

Comme le fichier Excel sera déjà ouvert, il me reste à comprendre cette partie... merci :-)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Test()
  ' Déclaration des constantes et variables
  Const FileName As String = "Base de données.xlsx"
  Const SubFolder As String = "/Data/"
  Dim oExcel As Excel.Application
  Dim CurrentPath As String
  Dim FullName As String
  ' Affectation des objets et variables
  CurrentPath = ThisWorkbook.Path
  FullName = CurrentPath & SubFolder & FileName
  Set oExcel = NewExcel(FullName) ' Ouvre un classeur excel dans une nouvelle instance 
  ' ici Instructions
  With oExcel
    Debug.Print .ActiveSheet.Name ' Affiche ne nom de la feuille active 
  .Worksheets("Base 1").Activate  ' Active la feuille nommée  Base 1
  End With
  ' Fin
  Set oExcel = Nothing
 End Sub

EDIT:
Je n'y arrive pas :-/

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Test()
  ' Déclaration des constantes et variables
  Const FileName As String = "TV.xlsx"
  ' Const SubFolder As String = "C:\Users\Propriétaire\Desktop\"
  Const SubFolder As String = ""
  Dim oExcel As Excel.Application
  Dim CurrentPath As String
  Dim FullName As String
  ' Affectation des objets et variables
  CurrentPath = ThisWorkbook.Path
  FullName = CurrentPath & SubFolder & FileName
  Set oExcel = NewExcel(FullName) ' Ouvre un classeur excel dans une nouvelle instance
  ' ici Instructions
  With oExcel
    Debug.Print .ActiveSheet.Name ' Affiche ne nom de la feuille active
  .Worksheets("#EQUIPES").Activate  ' Active la feuille nommée  Base 1
  End With
  ' Fin
  Set oExcel = Nothing
 End Sub

Le problème semble commencer ici : Set oExcel = NewExcel(FullName)

Bonjour,

J'ai trouvé ceci qui fonctionne très bien... MAIS je n'arrive pas à l'adapter pour que ce code n'ouvre pas une autre instance (elle serait déjà ouverte manuellement), MAIS qu'elle ne fasse QUE changer d'onglet... Des idées ?

Le code pourrait ouvrir effectivement le fichier si il n'est pas ouvert (encore mieux...), mais après ne plus l'ouvrir mais simplement changer d 'onglet (#INTRO ; @EQUIPES ; etc...)
Code:

1 2 3 4 5 6 7 Sub Test2() ' Ouvrir un fichier Excel dans une nouvelle instance Set instancebase = CreateObject("Excel.Application") instancebase.Visible = True ' Mode visible ou pas ! Set ClasseurBase = instancebase.Workbooks.Open("C:\Users\Propriétaire\Desktop\\TV.xlsx") instancebase.Worksheets("#EQUIPES").Activate End Sub
Merci d'avance :-)

27/06/2023, 12h36
Philippe Tulliez

Bonjour,

Citation:

Le code pourrait ouvrir effectivement le fichier si il n'est pas ouvert (encore mieux...), mais après ne plus l'ouvrir mais simplement changer d 'onglet (#INTRO ; @EQUIPES ; etc...)

Dans ma dernière réponse, j'ai publié le code qui ouvre par VBA, un classeur Excel et deux exemples avec l'instance ouverte. L'un qui affiche la feuille active de la nouvelle instance et l'autre qui active la feuille.

Dans ma première réponse (fil), j'ai publié deux exemples pour manipuler un classeur différent de ThisWorkbook dans la même instance

Plus bas dans une autre réponse, je vous indique comment avoir des classeurs sur deux écrans séparés en le glissant/déposant dans la même instance, vous permettant ainsi d'utiliser le code que j'ai publié dans ma première réponse.

Je comprends de moins en moins ce que vous cherchez à faire

Deux instances

1er écran (portable) -> instance une (Source.xlsm)
2ème écran (TV) -> instance deux (TV.xlsx)

L'instance TV.xlsx contient plusieurs onglets

[#INTRO]
[#EQUIPES]
etc...

J'aimerais pouvoir choisir l'onglet sélectionné/affiché dans l'instance deux (TV.xlsx) à partir de l'instance une (Source.xlsm)

Pour ce qui est de votre code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Sub Test() ' Déclaration des constantes et variables Const FileName As String = "Base de données.xlsx" Const SubFolder As String = "/Data/" Dim oExcel As Excel.Application Dim CurrentPath As String Dim FullName As String ' Affectation des objets et variables CurrentPath = ThisWorkbook.Path FullName = CurrentPath & SubFolder & FileName Set oExcel = NewExcel(FullName) ' Ouvre un classeur excel dans une nouvelle instance ' ici Instructions With oExcel Debug.Print .ActiveSheet.Name ' Affiche ne nom de la feuille active .Worksheets("Base 1").Activate ' Active la feuille nommée Base 1 End With ' Fin Set oExcel = Nothing End Sub
Je n'arrive pas à le faire fonctionner, voir précédent message... :-)

27/06/2023, 13h08
umfred
Comme ça a été répondu plus haut:
pour activer la feuille/onglet "#EQUIPES" du classeur "TV.xlsx" déjà ouvert

Code:

Workbooks("TV.xlsx").WorkSheets("#EQUIPES").Activate

Si pas ouvert, un
Code:

1 2 3 Dim wbTV as WorkSheet Set wbTV=Workbooks.open(Chemin_vers_le_fichier & "TV.xlsx") wbTV.Worksheets("#EQUIPES").Activate
Comme on est déjà dans Excel, inutile d'ouvrir une nouvelle instance d'Excel
27/06/2023, 15h23
Crachover

Bonjour,

Citation:

Comme on est déjà dans Excel, inutile d'ouvrir une nouvelle instance d'Excel

Expliquez moi alors comment vous faites pour afficher deux fichiers Excel différents sur deux écrans sans devoir ouvrir deux fois Excel...

Chez moi, deux fichiers ouverts dans une même instance ne peuvent pas être déplacés en dehors de l'instance (logique, je crois...), donc impossible de déplacer ce fichier sur un autre écran...

Belle journée :-)
27/06/2023, 16h19
Philippe Tulliez

Bonjour,

Citation:

Expliquez moi alors comment vous faites pour afficher deux fichiers Excel différents sur deux écrans sans devoir ouvrir deux fois Excel...

Mais je vous l'ai expliqué.
Je fais cela tous les jours et avec n'importe quel fichier que ce soit excel, word, ou autre
Vous placez le pointeur de votre souris sur le titre, vous cliquez et tout en maintenant le clic, vous glissez le fichier vers l'autre écran.

[EDIT]
En relisant, je constate que vous avez encore une version 2007. C'est possible qu'avec cette version on ne puisse pas le faire. Je n'en ai plus le souvenir
27/06/2023, 17h41
Crachover

Je suis effectivement sur Office 2007 et je ne peux pas changer sur ce portable...

Je viens de tester sur Office 2016 et ce n'est pas du tout la même histoire :-)

Sur Office 2007, lorsque j'ouvre deux fichiers, ils se retrouvent dans la même instance Excel (même fenêtre). Pour pouvoir les déplacer, je dois ouvrir un nouveau Excel vierge et y placer le fichier... Donc dans la première solution, Excel vois les deux fichiers, par contre dans la 2ème solution, ils ne se voient pas... d'où mon problème

Sur Office 2016, lorsque j'ouvre les deux fichiers, ils se retrouvent directement dans deux fenêtres indépendantes et ils se voient... et là effectivement c'est nickel :-)

Donc vos codes fonctionnent mais pas sous Office 2007, car sous 2007, deux fichiers ouvert séparément ne se voient pas.:-/

Une solution pour moi ? :-)
27/06/2023, 18h39
umfred

J'avais oublié ce point là effectivement, désolé.
Sinon, on peut modifier dans les options d'Excel 2007 la façon dont sont ouverts les classeurs

Citation:

Dans Excel 2007, Excel 2010 et Excel 2013:

allez dans: "Fichier" –> "Options" –> "Options avancées"
dans la partie "Général" (tout à la fin des "Options avancées") cochez l'option "Ignorer les autres applications qui utilisent l'échange dynamique des données"

https://excel-malin.com/faq/excel-fa...velle-fenetre/

(il y a une façon en passant par le registre, mais quitte à choisir, autant prendre celle qui passe par les options normales, si intéressé : https://www.01net.com/astuces/commen...es-555172.html )
27/06/2023, 19h58
Crachover

J'avais vu cette option, mais cela ne change rien...
28/06/2023, 16h39
umfred

Citation:

Envoyé par Crachover

J'avais vu cette option, mais cela ne change rien...

Dans quel sens ? il faut, je crois, fermer complètement Excel pour que cela soit pris en compte à son prochain lancement.

Dans ces conditions, tu dois bien avoir une fenêtre différente par fichier ouvert ?
30/06/2023, 08h28
Crachover
Bonjour,

Chez moi, cette option a comme conséquence :
1. de ne plus ouvrir automatiquement un fichier ! Lors d'un double clic sur un fichier Excel cela ouvre une instance vide, je dois ensuite faire ouvrir et sélectionner le ficher.
2. lorsque j'ouvre un deuxième fichier, cela ouvre effectivement une deuxième instance (ouvrir, sélectionner le ficher...), mais les instances ne se voient pas ! Donc impossible (pour moi), de les "lier" via VBA :-/
Le problème est donc là et est peut-être impossible à régler, vu que cela a été réglé par la suite avec Office 2013 etc... où là, deux fichiers Excel ouverts se voient.

Bonne journée :-)