Discussion :

[Calican]

Bonjour à tous , je vous expose mon problème je crée des fichier PDF a partir d'une feuille excel, j'ajoute dans le nom du fichier le format date -1 afin d'avoir toujours la date enferieur vu que le début du fichier est le même et que chaque jour on fait un nouveau rapport.

J'aimerais donc récupéré ce format date et lui dire si la date est 01/01/2018 alors classer dans R:\dossier\janvier 2018 ; si la date est 01/02/2018 alors classer dans R:\dossier\fevrier 2018 et ainsi de suite.

Quelqu'un sait-il comment faire ?
Voici ce que j'ai a l'instant :

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
24
25
26
27
 
Private Sub PDF_Click()
On Error Resume Next
Dim Chemin As String, nomfichier As String
 
'Partie sauvegarde du fichier ON
 
  nomfichier = "truc" & "_" & Format(Date - 1, "dd_mm_yyyy") & ".pdf"
 
    If nomfichier = "truc" & "_" & Format(Date - 1, "dd_06_2018") & ".pdf" Then
 
    Chemin = "R:\Dossier\juin 2018"
 
    ElseIf nomfichier = "truc" & "_" & Format(Date - 1, "dd_07_2018") & ".pdf" Then
 
    Chemin = "R:\Dossier\juillet 2018"
 
    End If
 
     Range("B4:H34").Select
 
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & "\" & nomfichier, _
                                          Quality:=xlQualityStandard, IncludeDocProperties:=True, _
                                          IgnorePrintAreas:=False, OpenAfterPublish:=True
 
'Partie sauvegarde du fichier off
End Sub

j'aimerais si possible récupéré la date du textbox sous le calendrier et mettre celle ci derriere le nom de mon fichier pdf a la place de

Code :

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

Format(Date - 1, "dd_mmmm_yyyy") & ".pdf"

et a partir ce cette même date dire si la valeur est dd_07_2018 alors tu ira stocker dans R:\juillet 2018

Merci de votre aide.