Problème date VBA

[anthooooony]

Bonjour,

Je suis en train de finaliser un travail que je pensais... fini... mais non grrrr!
En faite je récupère des infos dans une masse de fichiers que je reçois tt le jours, je récupère 4 champs.
Mon problème vient du champ date qui se trouve en A1. En effet, il n'est pas seul, il y a plusieurs mots. Ma problématique était d'isoler cette date. Deux possibilités à ma connaissance était soit de faire droite les 10 derniers éléments, ou une fonction dernier mot.
Mais bizarrement pour les deux fonctions que j'ai trouvé aucune donne le bon résultat..
Comme exemple je ne prenais que des fichiers de deux dates le 26/12/2012 et le 03/01/2013.


Exporté le 03/01/2012

Résultat avec cette fonction

    .Range("A" & derlig) = Right(Range("A1"), 10)

Date Nb de dossier Chargé Montant
01/03/2013 1 Olivier -204861,25
01/03/2013 23 Laurence 713513,44
26/12/2012 2 Nadjet 36 687
26/12/2012 4 Olivier 144 795

Résultat avec cette fonction

   .Range("A" & derlig) = Right([A1], InStr(1, [A1], " ") - 1)

01/01/2013 1 Olivier -204861,25
01/01/2013 23 Laurence 713513,44
01/12/2012 2 Nadjet 36 687
01/12/2012 4 Olivier 144 795
01/12/2012 65 CSP 6 744 877

si vous avez une piste je suis preneur
Merci d'avance

Anthooooony

 

[chris]

Re : Problème date VBA

Bonjour

Ne serait-ce pas plutôt left ?

 

[anthooooony]

Re : Problème date VBA

Bonjour chris
en faite le champ en A1 est "Exporté le 03/01/2012" exporté le ne change jamais c est la date qui bouge.
si je mets left ça me prendrait les 10 premiers champs de gauche et ne prendrait pas la date, mais "Exporté le"

 

[Sheldor]

Re : Problème date VBA

bonjour
peut être avec la valeur dans une cellule d'un fichier exemple ce serait plus pratique en ayant tout.
pourquoi ne pas faire un replace pour virer "exporté le" si ça ne change pas puis un left des 10 caractères ?
ou mid() (équivalent de stxt) en commençant à 12

 

[Sheldor]

Re : Problème date VBA

style

Dim c As Range
For Each c In Selection
c.Value = Left(Replace(c.Text, "Exporté le ", ""), 10)
Next

 

[anthooooony]

Re : Problème date VBA

Bonjour

Ca me met Vrai en réponse c est bizarre...

 

[Sheldor]

Re : Problème date VBA

en sélectionnant A1 de ton fichier et en exécutant le bout de code ça ne laisse que la date pour moi

 

[anthooooony]

Re : Problème date VBA

Monce

J'ai mis en rouge les éléments qui tu m'as données, je ne suis pas du tout expert en VBA loin de la..

Sub aaaaa()
Dim c As Range

Application.ScreenUpdating = False

sousRépertoire = "Fichiers Retard Relance bis"
[A2].CurrentRegion.Offset(1, 0).Clear
Set maitre = ActiveWorkbook
Repertoire = ThisWorkbook.Path
nf = Dir(Repertoire & "\" & sousRépertoire & "\*.xls") ' premier fichier
Do While nf <> ""
Workbooks.Open Filename:=Repertoire & "\" & sousRépertoire & "\" & nf
With ThisWorkbook.Sheets("Feuil1")
derlig = .Range("A65000").End(xlUp).Row + 1
'.Range("A" & derlig) = Right(Range("A1"), 10)
For Each c In Selection
.Range("A" & derlig) = c.Value = Left(Replace(c.Text, "Exporté le ", ""), 10)
Next
End With

ActiveWorkbook.Close False

nf = Dir ' fichier suivant
ActiveWorkbook.RefreshAll

Loop
Application.DisplayAlerts = False

End Sub

 

[anthooooony]

Re : Problème date VBA

J'ai essayé de faire un mid, il recupere que le 1er de chaque mois..

 

[Sheldor]

Re : Problème date VBA

j'ai un peu de mal à suivre, tu souhaites uniquement transformer la valeur en A1 du fichier que tu as envoyé en date ?
je ne vois pas d'autre date ailleurs

 

[Sheldor]

Re : Problème date VBA

je ne sais pas dans quelle mesure les données du fichier sont personnelles mais peut être qu'il vaut mieux ne pas les envoyer comme ça

 

[anthooooony]

Re : Problème date VBA

Re
oui c est vrai j'aurais du faire un peu plus attention..

Je viens d executer ta macro et le résultat est 01/03/2013 au lieu de 03/01/2013.
Mes parametres sont bien les francais, avec les dates au format de chez nous ! et il fait son américain mon excel !!

 

[Sheldor]

Re : Problème date VBA

ah tiens oui, curieux! je regarde ça

 

[Sheldor]

Re : Problème date VBA

Sub Bouton2_QuandClic()
Cells(1, 1) = DateSerial((Mid(Cells(1, 1), 18, 4)), (Mid(Cells(1, 1), 15, 2)), (Mid(Cells(1, 1), 12, 2)))
End Sub

un peu brut de fonderie mais bon....
il ne faut pas que les dates changent de format style 03/01/2013 en 3/1/13

 

[anthooooony]

Re : Problème date VBA

Je te tire mon chapeau !!
Merci beaucoup ! ca sort beaucoup mieux