Discussion :

[Naoned005]

Bonjour a tous

J'ai fait une macro (qui fonctionne parfaitement ). Elle copie colle et enregistre un de mes onglets de mon workbook excel sous le lecteur Z. Voici le code

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
21
22
23
Sub copiecollevaleur1()
 
 
 
    Sheets("confirm 1").Select
    Sheets("confirm 1").Copy
    Cells.Select
    Range("A4").Activate
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
NomFichier = Range("O7") & "_" & Range("O8") & "_" & Range("O12") & "_" & Range("O14")
    ActiveWorkbook.SaveAs Filename:= _
        "Z:\Risques et documentation OPCVM\Rapprochement Front Back\Confirmation Trades\Avril 2012\20120416\" & NomFichier & ".xls" _
        , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
 
 
 
        ActiveWindow.Close
 
End Sub

Le probleme et oui il y en a un c'est que l'onglet est enregistré sous Avril 2012\20120416 (20120416 signifie le 16 Avril 2012). Mais le lendemain je vais devoir enregistrer le même onglet excel sous 20120417 (17 Avril 2012) et le surlendemain le même sous 20120418 (bref c'est judicieux ).

Et donc dans ma macro si dessus l'onglet est toujours enregistré sous ...Avril 2012\20120416. Comment faire pour que quotidiennement le dernier argument de mon chemin (a savoir 20120416) change de lui même??


J'espere que j'ai été clair?

Bonne journée a tous et Merci d'avance

[L'Albatros]

Hello !

Toi aussi t'es en stage en banque ?

Alors voilà, regardes le bout de code ci-dessous:

Code :

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

1
2
3
4
5
MaDate = Format(Now, "DD-MM-YY h-mm-ss")
 NomSource = "MonFichier.xls"
 CheminDest = "O:\DG\DCM\DEVO\_Jean-Baptiste\CESO\Calcul_CESO\Résultats_Calcul_CESO\"
 NomDest = "Rapport_CESO du " & MaDate & ".xls"
 Workbooks(NomSource).SaveAs CheminDest & NomDest

Qu'en dis-tu ?

[Naoned005]

Merci,

Oui je suis en stage mais dans une société de gestion

Pour mon code j'ai essayé dans tout les sens ton astuce donc dans mon code j'ai mi au début

Code :

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

MaDate = Format(Now, "DD-MM-YY")

Et pour le chemin j'ai changé ça comme ça:

Code :

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

"Z:\Risques et documentation OPCVM\Rapprochement Front Back\Confirmation Trades\Avril 2012\MaDate\" & NomFichier & ".xls" _

Donc dans mes dossiers je crée un fichier quotidiennement que je nomme du type 20-04-12 (pour respecter le format que tu m'a mis en exemple) mais ça n'a pas l'air de fonctionner apres quand j'execute la macro????????? C'est le nom de mon fichier qui n'est pas correct (j'ai enlevé les heure minute et seconde)???

Merci encore dslé de répondre un peu tard

Bne journée

[bilou_12]

[Naoned005]

merci bilou!!

Tjs aussi instructif

Lol a ce we