Découpage de nom de fichier et transformation en date

[GADENSEB]

Bonjour le Forum,

Dans mon userform BASEMPLOI
J'ai le code suivant qui me permet de découper un nom de fichier que j’appelle en trois parties :

Le nom de fichier se contrustruit comme ci :
135 - 25 02 2014 - MANPOWER - FINANCIER.PDF


25 02 2014 = DATEANNONCE
MANPOWER = NOMSOCIETE
FINANCIER = POSTE


pour la partie

str = Right(str, Len(str) - InStr(str, " - ") - 2)
BASEEMPLOI.DATEANNONCE = Left(str, InStr(str, " - "))
'MsgBox Left(Str, InStr(Str, " - "))

Je cherche à transformer DATEANNONCE en date 25/02/2014 .....

Comment procéder ? Par CDATE ?


Merci bonne journée

Seb

Private Sub FICHIERPDFANNONCE_Click()

If FICHIERPDFANNONCE.Value = True Then
CANDIDATURE.Value = "ANNONCE"

'Génére le lien hypertexte vers le fihier PDF
 LIENHYPERTEXTE = Application.GetOpenFilename
 str = LIENHYPERTEXTE
 
'Découpe le nom du fichier pdf de l'annonce
 
str = Right(str, Len(str) - InStr(str, " - ") - 2)
BASEEMPLOI.DATEANNONCE = Left(str, InStr(str, " - "))
'MsgBox Left(Str, InStr(Str, " - "))
 
str = Right(str, Len(str) - InStr(str, " - ") - 2)
BASEEMPLOI.NOMSOCIETE = Left(str, InStr(str, " - "))
'MsgBox Left(Str, InStr(Str, " - "))
 
str = Right(str, Len(str) - InStr(str, " - ") - 2)
BASEEMPLOI.POSTE = Left(str, Len(str) - 4)
'MsgBox Left(Str, Len(Str) - 4)


End If
        
End Sub

 

[Dranreb]

Re : Découpage de nom de fichier et transformation en date

Bonjour.

Comme ça peut être :

Dim TSpl$()
TSpl = Split(LIENHYPERTEXTE, " - ")
BASEEMPLOI.DATEANNONCE = Replace(TSpl(1), " ", "/")
BASEEMPLOI.NOMSOCIETE = TSpl(2)
BASEEMPLOI.POSTE = TSpl(3)

Bonjour Robert

 

[Robert]

Re : Découpage de nom de fichier et transformation en date

Bonjour Gadenseb, bonjour le forum,

Peut-être comme ça :

Private Sub FICHIERPDFANNONCE_Click()
Dim da As Date

If FICHIERPDFANNONCE.Value = True Then
    'Génére le lien hypertexte vers le fihier PDF
    LIENHYPERTEXTE = Application.GetOpenFilename
    str = LIENHYPERTEXTE
    'Découpe le nom du fichier pdf de l'annonce
    str = Right(str, Len(str) - InStr(str, " - ") - 2)
    BASEEMPLOI.DATEANNONCE = Left(str, InStr(str, " - "))
    'MsgBox Left(Str, InStr(Str, " - "))
    
    da = DateSerial(Split(Me.DATEANNONCE, " ")(2), Split(Me.DATEANNONCE, " ")(1), Split(Me.DATEANNONCE, " ")(0))
    
    str = Right(str, Len(str) - InStr(str, " - ") - 2)
    BASEEMPLOI.NOMSOCIETE = Left(str, InStr(str, " - "))
    'MsgBox Left(Str, InStr(Str, " - "))
    str = Right(str, Len(str) - InStr(str, " - ") - 2)
    BASEEMPLOI.POSTE = Left(str, Len(str) - 4)
    'MsgBox Left(Str, Len(Str) - 4)
End If
End Sub

[Édition]
Bonjour Bernard on s'est croisé...

 

[GADENSEB]

Re : Découpage de nom de fichier et transformation en date

Excellent
cela marche nikel !!!!

Merci

Bonne aprem

seb

 

[GADENSEB]

Re : Découpage de nom de fichier et transformation en date

rebonjour,

Avec ce code :

Dim TSpl$()
TSpl = Split(LIENHYPERTEXTE, " - ")
BASEEMPLOI.DATEANNONCE = Replace(TSpl(1), " ", "/")
BASEEMPLOI.NOMSOCIETE = TSpl(2)
BASEEMPLOI.POSTE = TSpl(3)

BASEEMPLOI.POSTE se retrouve avec ".pdf" en fin de texte, comment contourner la chose ?


Merci

Bonne journée

Seb

 

[Dranreb]

Re : Découpage de nom de fichier et transformation en date

Bonjour.
Le plus clair me semble ça:

BASEEMPLOI.POSTE = Replace(TSpl(3), ".pdf", "")

 

[GADENSEB]

Re : Découpage de nom de fichier et transformation en date

Perfecto !!!!

Thanks

Seb