VBA-EXCEL- appelr un fichier excel a l'aide d'une variable

salut a tous
je viens a vous pour une petite aide
voila.
je suis entrain de faire une macro que je dois activer chaque semaine.
a chaque activation j'appelle un classeur ouvert.
son nom est de la forme aaaaaa_aammjj.
donc jessaie de faire en sorte de faire en sorte de ne pas avoir a taper le nom du fichier a chaque lancement de la macro.
voila mon bout de code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub a() Dim f1 As Worksheet   Dim dtRef As String Dim nom As String Dim classeur As String   dtRef = InputBox("dt?")   Set f1 = Workbooks("nom & dt".xls).Sheets("a")   End Sub

---

je sais que cava pas a la derniere ligne mais je l'ai laissé pour que vous compreniez ce a quoi je veux arriver.

merci de votre aide

Hm, pas tres clair je trouve :?

A quoi sert ta inputbox? récupérer la date?

sinon pour activer deja... là t'a un souci

Code:

---

Set f1 = Workbooks("nom & dt".xls).Sheets("a")

---

si tu veux activer ta feuille "a" de ton classeur aaaaaa_aammjj essaye ca :

Code:

---

1 2	Workbooks(nom & dtref & ".xls").activate sheets("a").activate

---

nom et dtref sont des variables donc tu met pas de " "

si t'a des erreurs essaye de faire des msgbox pour voir ce que tu lui demande d'activer... là tu voulais la feuille a du classeur "nom & dt" et y'a meme pas de & avant ton xls... :? enfin bref essaye ma solution :P

Citation:

---

Hm, pas tres clair je trouve :?

---

qui dit, Elstak... Et c'est pas le seul ;)
Autre question : Si j'ai bien compris, Nom est fixe, dtRef variable
Pourquoi ne pas utiliser le boîte de dialogue d'Excel pour ouvrir ton fichier ?

Code:

---

Application.Dialogs.Item(xlDialogOpen).Show

---

Si tu te places dans le bon répertoire avant d'exécuter cette ligne, tu trouveras tous tes classeurs

Code:

---

1 2	ChDir "D:\xls" Application.Dialogs.Item(xlDialogOpen).Show

---

ca marche pas....
erreur de syntaxe

Citation:

---

Erreur de syntaxe !

---

Ah voui ? Sur quelle ligne ? Sur quel code ?

je ne veux pas ouvrir mon classeur ouvert.il l'est deja.
je veux juste definir set f1=workbooks("aaaa_aammjj")

selon les jours la derniere partier du nom de mon classeur change.et c'est pas forcement la date du jour!
donc je place un inputbox qui me demande aammjj
et puis je declare une variable string comme egale a "aaaa" & dt.
et puis f1=workbooks("aaaa & dt")!
voila ce que je veux faire. et jarive pas

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim stNomClasseur As String stNomClasseur = nom & "_" & dt & ".xls" On Error Resume Next Set Wk = Workbooks(stNomClasseur) On Error GoTo 0   If Wk Is Nothing Then Msbbox stNomClasseur & " Inacessible !!!" Exit Sub End If Set f1 = Wk.Sheets("a")

---

...

Pourrai tu nous dire comment compte tu lancer ta macro ... une liste de choix serai peu -être plus conviviale que tes 2 input box (Nom et dt)..

CA MARCHE!
MERCI l'ami
t le meilleur:D

mon fichier il est deja ouvert quand je lance la macro.
donc ca sert a rien que je rechoisisse a partir d'une liste.
la razcine du non est fixe juste la fin change.
je rentre la date via inputbox. et le tour est joué!

bonjour...
ton idée marche que lorsque le fichier excel est dans le meme classeur...
pas quand il est ouvert dans un autre fichier excel....

et la ce se corse parceque je narrive pas a resoudre cette problematique

Citation:

---

ton idée marche que lorsque le fichier excel est dans le meme classeur...

---

un fichier dans un classeur ???

Citation:

---

pas quand il est ouvert dans un autre fichier excel....

---

??

Sois plus rigoureux car là meme en essayant de rempalcer des mots je comprends pas (et je pense pas que ca vienne de moi :roll: )

Citation:

---

Envoyé par VBBBA

bonjour...
ton idée marche que lorsque le fichier excel est dans le meme classeur...
pas quand il est ouvert dans un autre fichier excel....

et la ce se corse parceque je narrive pas a resoudre cette problematique

---

De ce que j'ai pu comprendre de ton problème, tu as plusieurs instances d'Excel d'ouverte.

WorkBooks est un membre de l'objet Application. Il y a autant d'objet Application que d'instance Excel de lancée.

Pourquoi ouvrir plusieurs instances d'Excel?

ca arrive non?
mon code est prévu pour toutes les situations...jessaie en tout cas. et ce cas s'est présenté.

en fait mon autre probleme consernant les doubles applications est quand je veux tester si un fichier est ouvert par exemple
ma macro marche quand je suis que sur un classeur mais des que mon fichier à tester est sur un autre classeur elle ne le voit pas. et jarrive pas a resoudre ce pb...