Récuperer la date d'un textbox (utilisation fichier pdf, Aide)

Version imprimable

Voir 40 message(s) de cette discussion en une page

2 pièce(s) jointe(s)

Récuperer la date d'un textbox (utilisation fichier pdf, Aide)

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:

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
Pièce jointe 387672

Pièce jointe 387673

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:

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.

1 pièce(s) jointe(s)

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:

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:

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

Pièce jointe 387679

11/06/2018, 08h22
Calican

Re:Récuperer la date d'un textbox (utilisation fichier pdf, Aide)

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.
11/06/2018, 08h30
patricktoulon

re

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
11/06/2018, 08h39
Calican

Re
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:

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.
11/06/2018, 08h49
patricktoulon

re

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
11/06/2018, 09h02
Calican

Re

Merci quand même
11/06/2018, 09h16
RyuAutodidacte

Salut Patrick,

Ben moi je te mets des plus un :plusser: 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
11/06/2018, 09h22
patricktoulon

re

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

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:

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:

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.

Code:

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

11/06/2018, 09h39
Calican

Re

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.

re
au final ton evenement click devrait donner ceci

Code:

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"

11/06/2018, 09h57
Calican

Re

Re,

A la ligne

Code:

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
11/06/2018, 10h09
patricktoulon

re

re
essaie ca

Code:

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

sinon c'est que le format dans le textbox n'est pas bon
11/06/2018, 10h15
Calican

Re

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

1 pièce(s) jointe(s)

prends celui la

Code:

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

Pièce jointe 387712

11/06/2018, 10h28
patricktoulon

re

Citation:

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
11/06/2018, 10h36
Calican

1 pièce(s) jointe(s)

Re

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

Pièce jointe 387717

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

1 pièce(s) jointe(s)

je viens de tester sauvegarde pdf compris ca fonctionne

Code:

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

Pièce jointe 387720

Voir 40 message(s) de cette discussion en une page