Remplacer Windows("Fiche.xls").Activate par une expression avec Activesheet.Name

[Aloha]

Bonsoir,

Comment puis-je remplacer Windows("Fiche.xls").Activate par une expression générique dans un fichier ne contenant qu'une seule feuille dont le nom change et qui est identique à celui du fichier lui-même(sans .xls évidemment)?

Ou bien: y a-t-il moyen de procéder autrement lorsqu'il n'y a qu'une feuille?

Merci pour toute aide.

Aloha

 

[Fred0o]

Re : Remplacer Windows("Fiche.xls").Activate par une expression avec Activesheet.Name

Bonsoir Aloha,

Tu peux essayer ceci :

Windows(ActiveSheet.Name & ".xls").Activate

Ceci dit, je ne vois pas bien à quoi peut te servir d'activer une fenêtre déjà active.

A+

 

[Aloha]

Re : Remplacer Windows("Fiche.xls").Activate par une expression avec Activesheet.Name

Bonsoir "Fred0o",

Tu as raison! Il manque quelque chose: le classeur portant le même nom +.xls

p. ex.: activer le classeur "Dupont.xls" et sa feuille unique "Dupont"

Bonne soirée

Aloha

 

[Fred0o]

Re : Remplacer Windows("Fiche.xls").Activate par une expression avec Activesheet.Name

Re-bonsoir,

Cela ne m'aide pas beaucoup. En effet, quelle est l'information qui te dis que c'est Dupont que tu dois activer dans ton fichier qui contient la macro ?
Tu dis :

Comment puis-je remplacer Windows("Fiche.xls").Activate par une expression générique dans un fichier ne contenant qu'une seule feuille dont le nom change et qui est identique à celui du fichier lui-même(sans .xls évidemment)?

Donc, le nom du fichier change et il faut bien que tu puisse le passer à la Sub qui ouvrira ce fichier.

A+

 

[Aloha]

Re : Remplacer Windows("Fiche.xls").Activate par une expression avec Activesheet.Name

Bonjour,

Le code est contenu dans la feuille Dupond du fichier Dupond.xls ainsi que celle du nom de Durand et Duroc.

Pour m'exprimer autrement: je veux créer un fichier modèle dont le nom et celui de sa feuille unique changent.

A+

Aloha

 

[JNP]

Re : Remplacer Windows("Fiche.xls").Activate par une expression avec Activesheet.Name

Bonjour le fil 🙂,
je ne sais pas si ça peut t'aider (la question me parait floue 🙄), mais tu peux utiliser des indices :
Windows(X) est ton classeur de base, Windows(Y) celui que tu as créé (à condition qu'il n'y ait pas d'autre fenêtre (tu peux utiliser Windows.Count pour vérifier), mais attention, le classeur de macro personnelle compte aussi... Pour savoir son nom, propriété .Caption
Plus facile, Workbooks.Count et Workbooks(X), avec propriété .Name.
Bon courage 😎

 

[Efgé]

Re : Remplacer Windows("Fiche.xls").Activate par une expression avec Activesheet.Name

Bonjour à tous,
Pas sur d'avoir compris mais peut être:
En début de macro
Dim classeur_actif As String
classeur_actif = ActiveWorkbook.Name
et en fin
Windows(classeur_actif).Activate

Cordialement

 

[Aloha]

Re : Remplacer Windows("Fiche.xls").Activate par une expression avec Activesheet.Name

Bonjour

Merci beaucoup

Aloha