Discussion :

[jkris95]

Bonjour, deja je débute sur vba, alors je decouvre le code et j'arrive a sauvegarder automatiquement une feuille de calcul à l'ecran sous un autre nom, mais je voudrais faire plus.

J'ai une feuille ouverte, apellons là, "principale", je mets tous les jours cette feuille a jour a l'aide d'une autre feuille que je recois et dont le nom change quotidiennement, appelons là "jvk_20130211_maj". le début "jvk" est toujours fixe.

je voudrais a l'aide d'un bouton sur la feuille "principale", activer l'autre qui commence par "jvk xxxxxxx" et la sauvegarder sous un autre nom fixe.

donc en gros ma routine serait

en étant sur

1- "principale"
2- activer "jvk xxxxxxx" (avec xxxxx qui change tous les jours.)
3- enregistrer sous 'jvk-maj"

a pres il ily a d'autre instructions de maj mais ca ca roule, ce n'est que du copier coller.

je bute sur activer, le point 2, si le nom ne changait pas ca irait, mais là non.

Ca parait surement simple pour beaucoup, mais moi j'ai la tete comme un chou, et je tourne en rond.

merci d'avance à l'ame charitable qui me donnera un petit coup de main, et qui en plus va m'apprendre a comprendre la manipulation des strings, car je pense que la piste est là.

[keygen08]

Bonjour

Ceci fera t-il cela
Sauf erreur, le code aprés JVK et la date du jour

Code :

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

1
2
3
4
5
6
7
8
9
Sub devellopez4()
Dim date1 As String
'met au fomat désiré la date du jour
date1 = Format((Now), "yyyymmdd")
'Cherche et renomme la feuille
Sheets("JVK_" & date1 & "_maj").Name = "JVK_maj"
'active la feuille nouvellement renommer
Sheets("JVK_maj").Select
End Sub

[jkris95]

super merci, grace a vous j'ai trouvé, et mieux compris comment manipuler les variables (base de tout je sais)!

encore mille merci pour votre aide

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Macro2()
'
' Macro2 Macro
' 
'
'
Dim date1 As String
'met au fomat désiré la date du jour
date1 = Format((Now), "yyyymmdd")
'Cherche et active la feuille
    Windows("JVk_" & date1 & "_MAJ.xls").Activate
'Sauvegarde la feuille sous le nom voulu
       ActiveWorkbook.SaveAs Filename:= _
        "P:\JVK_MAJ.xls" _
        , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
'Retour feuille principale
Windows("recap.xls").Activate
 
End Sub