Discussion :

[VBBBA]

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 :

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

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

[Elstak]

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 :

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

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

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

Code :

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

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

[ouskel'n'or]

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 :

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

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 :

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

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

[VBBBA]

ca marche pas....
erreur de syntaxe

[ouskel'n'or]

Erreur de syntaxe !

Ah voui ? Sur quelle ligne ? Sur quel code ?

[VBBBA]

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

[SfJ5Rpw8]

Code :

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

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)..