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.

[patricktoulon]

bonjour
teste ca et regarde le message
tu n'a rian a ajouter c a le fera pour les douze mois de l'année (sans if else)et tout le tointoin
et l'annér prochaine pareil l'année se fera tout seul dans le chemin

Code :

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

1
2
3
4
5
6
7
8
Private Sub PDF_Click()
    Dim Chemin As String, nomfichier As String,madate as date
    'Partie sauvegarde du fichier ON
    madate = Date - 1
    nomfichier = "truc" & "_" & Format(madate, "dd_mm_yyyy") & ".pdf"
    Chemin = "R:\Dossier\" & Format(madate, "mmmm") & year(date)
    MsgBox nomfichier & vbCrLf & Chemin
End Sub

j'aurais pu l'ecrire comme ca aussi

Code :

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

Chemin = "R:\Dossier\" & Format(madate, "mmmm yyyy")

[Calican]

Re,

je vois ce que tu as voulu faire, le problème c'est que j'ai vraiment besoin de récupérer cette date d'une source exterieure, vu que cette date est modifiable par l'utilisateur de l'interface VBA.

Alors que dans ce cas si la date et du jour mais ne gère pas par example : un rapport d'un jour précédent que l'on aurait pas fait pour X raison.

Je dois renommer mon fichier pdf avec la date "saisie" par l'utilisateur dans l'interface et le stocker dans un dossier exemple Juin_2018 si la date dd_06_2018 correspond, si l'utilisateur refait un rapport de janvier, j'aimerais récuperer sa valeur Date saisie et donc le stocké dans janvier_2018.

Merci de m'avoir répondu.

[patricktoulon]

re
cette date est récupérée dans quoi et quel interface ? tu n'est pas tres precis je ne suis pas devant ton PC

[Calican]

Re,
Cette date est récupéré dans un textbox sur un userform qui apparait a l'ouverture du classeur a la commande userform1.show 0

Image au premier message: le textbos sous le calendrier ce remplie grace a

Code :

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

1
2
3
4
5
 
Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
On Error Resume Next
Date_Txt = DateClicked
End Sub

et j'aimerais récupérer cette date par n'importe quel moyen pour la mettre et dans mon nom de fichier et faire en sorte que a partir de cette date il le range dans le bon dossier, je ne peut pas montrer toute l'interface, une grande partie est confidentiel.

[patricktoulon]

re
désolé comme a chaque fois que je poste une reponse je me prend un "-1" la plus part du temps injustifié, j'arrete la mon aide
désolé pour toi