Discussion :

[dido123123]

Bonjour tout le monde j'espère que vous allez bien ?

Alors voila je suis actuellement en train de créer une macro qui crée une nouvelle feuille à partir d'un fichier. Comment est ce que je pourrais faire en sorte que dans le nouveau fichier que crée ma macro de type nom_date, que la date soit la valeur d'une cellule se trouvant dans le fichier auquel je travaille.. Je ne sais pas si je me fais comprendre.

Je vous remercie d'avance

[Menhir]

En supposant que la date soit en A1 et que ce soit une VRAIE date (au sens Excel du terme) :

Code :

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

NomFichier = "Racine-" & Format(A1;"yyyymmdd")

[dido123123]

En supposant que la date soit en A1 et que ce soit une VRAIE date (au sens Excel du terme) :

Code :

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

NomFichier = "Racine-" & Format(A1;"yyyymmdd")

Merci pour ta réponse mais c'est pas vraiment ce que je veux :/
Ci dessous mon code et ce que je veux c'est remplacer la valeur date par la valeur date se trouvant dans la cellule B2 du fichier "Export Analyse PDC Par CRC.XLS".

Je te remercie

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
Sub Monnaie()
Dim Monnaie As String
Monnaie = InputBox("Monnaie à traiter")
If Len(Monnaie) <> 3 Then Exit Sub
    ActiveSheet.Range("$A$1:$N$305").AutoFilter Field:=5, Criteria1:=Monnaie
    'Workbooks.Add
    Dim classeur As Workbook
 Set classeur = Application.Workbooks.Add
 With classeur
 .Worksheets(1).Name = "PDC" & Monnaie
 .SaveAs "C:\Users\THIAMCH\Desktop\Export DEV\PDC_" & Monnaie & "_Date.xlsx"
 Windows("Export Analyse PDC Par CRC.XLS").Activate
    Range("A1:N305").Select
    Selection.Copy
 Windows("PDC_" & Monnaie & "_Date.xlsx").Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 End With
End Sub

Voici mon code et ce que je veux c'est remplacer la valeur date par la valeur date se trouvant sur la cellule B2 du fichier "Export Analyse PDC Par CRC.XLS".

Je te remercie

[Menhir]

Merci pour ta réponse mais c'est pas vraiment ce que je veux :/

C'est ce que tu as demandé.
Si la demande ne correspond pas au besoin, je ne vois pas comment la réponse pourrait correspondre.

Ci dessous mon code et ce que je veux c'est remplacer la valeur date par la valeur date se trouvant dans la cellule B2 du fichier "Export Analyse PDC Par CRC.XLS".

Tu as les éléments nécessaire dans ma réponse précédente.