Discussion :

[Invité]

Bonjour à tous

J'aimerai placé une macro dans une feuille d'un classeur Excel 365 afin de pouvoir basculer sur une autre feuille d'un autre classeur.

C'est à dire j'ouvre un classeur avec un TDB et de ce TDB je peux ouvrir un autre classeur , or quand je suis sur ce dernier, j'aimerai bien avoir un bouton qui me renvoie sur le TDB du 1erclasseur.

Auriez vous l'aimabilité de m'aider sur ce problème.

Merci d'avance à tout le monde.

Cordialement CarTune

[EricDgn]

Bonjour,

C'est le genre de macro que l'on peut facilement se préparer en utilisant le "Enregistrer une macro" d'Excel.

La version minimale, qui suppose que les 2 classeurs sont déjà ouverts:

Code :

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

1
2
3
4
Sub OuvrirClasseur()
    Windows("Classeur_1.xlsm").Activate         '--- passe sur le Classeur_1.xlsm --- à adapter
    ActiveWorkbook.Worksheets("Feuil1").Select  '--- sélectionne Feuil1 --- à adapter
End Sub

et si on veut l'améliorer un minimum, pour gérer les erreurs possibles:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub OuvrirClasseur()
    On Error GoTo ErreurClasseur
    Windows("Classeur_1.xlsm").Activate         '--- passe sur le Classeur_1.xlsm
    On Error GoTo ErreurFeuil
    ActiveWorkbook.Worksheets("Feuil1").Select  '--- sélectionne Feuil1
    Exit Sub
ErreurClasseur:
    MsgBox "Le fichier Classeur_1.xlsm  n'a pas encore été ouvert", , "Annulé"
    Exit Sub
ErreurFeuil:
    MsgBox "Il n'y a pas de Feuil1 dans le Classeur_1.xlsm.", , "Anomalie"
End Sub

A adapter dans chacun des classeurs pour y indiquer les bons noms de fichier et de feuille.

Cordialement.

[Invité]

Bonsoir à vous EricDgn,

Merci pour vos deux macros. J'ai essayé de les placer mais cela ne fonctionne pas.

Je suis sûr que je fais une erreur quelque part !

Je vous laisse le nom de mon classeur et les feuilles qui se trouvent dans ce classeur, pourriez vous me les placer en modèle SVP.

Nom du classeur : Facturation mensuelle
Les feuilles du classeur : TDB Factiuration
Facture
Archives
Clients

Je vous Remercie d'avance

Cordialement CarTune

[EricDgn]

Bonjour,

De ce que je lis, il n'y a que 1 classeur contenant 4 feuilles.

Ce que vous souhaitez est d'avoir sur chaque feuille Facture, Archives, Clients un bouton qui permet de revenir sur la feuille TDB Facturation? Si oui, c'est ceci:

Code :

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

1
2
3
Sub VersTDB()
    ThisWorkbook.Worksheets("TDB Facturation").Select  '--- sélectionne TDB Facturation
End Sub

Cordialement.

[Invité]

Re EricDgn

Merci pour votre retour. Mais cette macro je l'ai.

j'avais mentionné dans mon premier post que je voudrai avoir un bouton sur le TDB de deux classeurs afin de pouvoir facilement basculer d'un classeur à l'autre.

1)Mon premier classeur est nommé : Gestion collective prête 1 - Copie (2) (1)
la première feuille de ce classeur est nommée : TDB

2) Mon deuxième classeur est nommé : Facturation mensuelle
La première feuille de ce classeur est nommée : TDB Facturation

Donc je souhaiterai avoir un bouton sur : TDB et une autre sur TDB Facturation

J'espère que cela n'est pas trop compliqué !

Merci à vous EricDgn

A+

[EricDgn]

Dans ce cas,

Dans le dossier Gestion collective prête 1 - Copie (2) (1)

Code :

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

1
2
3
4
Sub OuvrirClasseur()
    Windows("Facturation mensuelle").Activate
    ActiveWorkbook.Worksheets("TDB Facturation").Select
End Sub

et dans le dossier Facturation mensuelle

Code :

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

1
2
3
4
Sub OuvrirClasseur()
    Windows("Gestion collective prête 1 - Copie (2) (1)").Activate
    ActiveWorkbook.Worksheets("TDB").Select
End Sub

Il est supposé que les 2 dossiers sont déjà ouverts.
Cordialement.

[Invité]

Merci beaucoup EricDgn,

Tès bonne explication et bien à comprendre.

Je vous souhaite une Bonne soirée et à bientôt peut-être.

Cordialement CarTune