activer classeur excel avec nom incomplet

[charette63]

Bonsoir à toutes et tous,

j'ai, dans une macro, une ligne de commande:

Workbooks("fiche perso nursing 1002.xls") .Worksheets("récapitulatif").Activate

le "1002" est susceptible de changer, est-il possible de le remplacer par un sigle qui le suppléerais afin de garder cette ligne de commande opérationnelle quelque soit le chiffre du nom du dossier? (des * peut-être?)

merci pour votre aide

bonne nuit
cordialement
Thierry

 

[mth]

Re : activer classeur excel avec nom incomplet

Bonsoir,

1002 est certainement repérable dans la macro, on peut le mettre dans une variable, par exemple:

Sub nursing()
Dim nom As String, nomvar As String
nomvar = "1002" 'à calculer ou identifier en début de macro
nom = "fiche perso nursing " & nomvar & ".xls"
Workbooks(nom).Worksheets("récapitulatif").Activate
End Sub

Mais pour voir si cela fonctionne, ça serait plus simple avec un extrait de fichier et le code au complet, parce que là "dans le noir" je suis peut-être à coté de la plaque.

Bonne soirée,

mth

 

[Etienne2323]

Re : activer classeur excel avec nom incomplet

Salut charette,
voici quelque chose qui fonctionne chez moi.

Option Explicit

Sub test()

Dim Chemin As String
Dim Fichier

Chemin = ThisWorkbook.Path & "\"
Fichier = Chemin & Dir(Chemin & "fiche perso nursing*")
Fichier = Dir(Fichier)

Workbooks(Fichier).Worksheets("récapitulatif").Activate

End Sub

Bonne fin de soirée,

Étienne

Edit : 🙂🙂🙂 Trop rapide encore une fois ! Bises M !

 

[Dranreb]

Re : activer classeur excel avec nom incomplet

Bonjour.
De toute façon il me semble que ExpressionClasseur.Worksheets(x).Activate ne peut marcher que si ExpressionClasseur et ActiveWorkbook désignent le même classeur alors utilisez ActiveWorkbook !
À+

 

[Pierrot93]

Re : activer classeur excel avec nom incomplet

Bonjour à tous,

chez moi sous 2003, ceci fonctionne même si "classeur1.xls" n'est pas actif et même si "Feuil1" n'est pas active non plus dans le classeur en question...

Workbooks("classeur1.xls").Sheets("Feuil1").Activate

bonne journée
@+

 

[Dranreb]

Re : activer classeur excel avec nom incomplet

Ah, oui chez moi aussi. Je n'avais jamais essayé d'activé une feuille sans activer d'abord le classeur. Et bien alors quand il l'a sous le coude il n'a qu'a noter cette feuille par un Set dans une variable declarée As Worksheet et appliquer ensuite sa méthode .Activate dessus. Je ne sais pas moi, on ne voit rien du reste de son code.

Au fait, bonjour Pierrot93.
Je ne m'étais même pas rendu compte que nous ne nous étions pas encore parlé aujourd'hui...
Sous l'effet de l'agacement je suppose...
Quand est-ce que je vais me décider à prendre la ferme résolution de ne même plus commencer à lire les demandes non accompagnées d'un fichier joint ?...
Et bien ça y est. Je l'ai prise: je regarderai dorénavant d'abord s'il y a un trombone a coté de la demande avant de lire le sujet.
Cordialement.

 

[charette63]

bonjour aux participants et au forum,

J'ai opté pour la solution de Etienne2323 qui me ravis.

Je ne pensais pas qu'il eut été nécessaire de poster un fichier pour une modification sur une ligne de commande qui meparaissait simple, désolé.

Je vous remercie tous les quatre pour votre contribution

cordialement
Thierry