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

[Calican]

Merci quand même

[RyuAutodidacte]

Salut Patrick,

Ben moi je te mets des plus un car je n'aime pas ce principe des moins 1 sans aucune justification et anonymement
De plus celui qui à mis ses moins 1 n'a qu'à donner son aide

@Calican, la réponse pour récupérer la date se trouve dans le code de ton useform calendrier/ textbox

[patricktoulon]

re
bonjour RYU
merci
ca fait quelque jour que ca a recommencé
je vais essayé de regler le probleme plus haut
d'aurenavant je donnerais que des mauvaises reponses comme ca ils seront justifiés et tant pis pour les demandeurs
quand ca deviendra impossible peut etre que la haute sphere fera quelque chose

[Calican]

Merci de ta réponse, je vais essayé d'être plus clair.

Ici je recupére la date dans le Date_Txt qui est un Textbox

Code :

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

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

Puis , Ici j'ai besoin de la date ou du calendrier directement ou du textbox pour l'insérer exactement a "<--- ici"

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
 
 
Private Sub PDF_Click()
On Error Resume Next
Dim Chemin As String, nomfichier As String, dossier As String
 
'Partie sauvegarde du fichier ON
 
    dossier = '<--- ici
 
 
    nomfichier = "confidentiel" & "_" & Format(Date - 1, "dd_mm_yyyy") & ".pdf"
 
    Chemin = "R:\confidentiel\" & dossier
 
     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

Merci beaucoup pour votre aide.

[patricktoulon]

re

Code :

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

1
2
3
4
Private Sub PDF_Click()
madate=cdate(me.textbox1)-1
'....
'.....

[Calican]

Je vais faire plusieurs essaie avant de revenir vers vous, je rencontre quelques problèmes, mais rien de très grave.

Merci de votre réponse.

[patricktoulon]

re
au final ton evenement click devrait donner ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub PDF_Click()
    Dim Chemin As String, nomfichier As String, madate As Date
    madate = CDate(Me.textbox1.Text) - 1    'le moins 1 je ne sais pas a quoi il te sert je l'ai mis quand meme 
    nomfichier = "truc" & "_" & Format(Date - 1, "dd_mm_yyyy") & ".pdf"
    Chemin = "R:\Dossier\" & Format(madate, "mmmm yyyy") & "\"
    Range("B4:H34").Select    'ca non plus je sais pas trop a quoi ca te sert a rien visiblement 
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & nomfichier, _
                                    Quality:=xlQualityStandard, IncludeDocProperties:=True, _
                                    IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

PS:
au cas ou le dossier n'existerait pas !!
donc entre la ligne 5 et 6 tu met
if dir(chemin,vbdirectory)="" then mkdir chemin'en esperant que "R:\Dossier\" existe sinon il faudra creer aussi "Dossier"

[Calican]

Re,

A la ligne

Code :

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

madate = CDate(Me.TextBox1.Text) - 1

Excel m'annonce une incompatibilité de type savez vous a quoi c'est dut ?

Et la selection de cellules sert a copié en PDF seulements ces cellules la pour ensuite les enregistrer

[patricktoulon]

re
essaie ca

Code :

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

madate = CDate(Me.TextBox1.value) - 1

sinon c'est que le format dans le textbox n'est pas bon

[Calican]

Re,

Plus d'erreur mais il ne l'enregistre pas, cependant cela m'avance déja beaucoup.

Le moins 1 c'est par ce que le rapport du la veille et fait le matin d'après , alors - 1 car c'est le jour d'avant

et le range (). select c'est pour selectionneer la zone a mettre en PDF avant de l'enregistrer

Merci

[patricktoulon]

prends celui la

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub PDF_Click()
    Dim Chemin As String, nomfichier As String, madate As Date
    madate = CDate(Me.TextBox1.Text) - 1    'le moins 1 je ne sais pas a quoi il te sert je l'ai mis quand meme
    nomfichier = "truc" & "_" & Format(madate, "dd_mm_yyyy") & ".pdf"
    Chemin = "R:\Dossier\" & Format(madate, "mmmm yyyy") & "\"
    Range("B4:H34").Select    'ca non plus je sais pas trop a quoi ca te sert a rien visiblement
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & nomfichier, _
                                    Quality:=xlQualityStandard, IncludeDocProperties:=True, _
                                    IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

[patricktoulon]

et le range (). select c'est pour selectionneer la zone a mettre en PDF avant de l'enregistrer

c'est pas parce que tu selectionne une plage que c'est elle seule qui va etre imprimé en pdf du moins a ma connaissance

[Calican]

Re,
voici le résultat final, le dossier dans le quel je voulais le mettre ce place en nom devant le fichier




Juste un problème de syntaxe de chemin je pense , ça devrait aller, merci bien.

[patricktoulon]

je viens de tester sauvegarde pdf compris ca fonctionne

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub PDF_Click()
    Dim Chemin As String, nomfichier As String, madate As Date
    madate = CDate(Me.TextBox1.Text) - 1    'le moins 1 je ne sais pas a quoi il te sert je l'ai mis quand meme
    nomfichier = "truc" & "_" & Format(madate, "dd_mm_yyyy") & ".pdf"
    Chemin = "R:\Dossier\" & Format(madate, "mmmm yyyy") & "\"
    If Dir(Chemin, vbDirectory) = "" Then MkDir Chemin
    Range("B4:H34").Select    'ca non plus je sais pas trop a quoi ca te sert a rien visiblement
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & nomfichier, _
                                    Quality:=xlQualityStandard, IncludeDocProperties:=True, _
                                    IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub