Problème date VBA

chris

XLDnaute Barbatruc

• 3 Janvier 2013

• #2

Re : Problème date VBA

Bonjour

Ne serait-ce pas plutôt left ?

 

Vote positif 0 Vote négatif

A

anthooooony

XLDnaute Occasionnel

• 3 Janvier 2013

• #3

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"

 

Vote positif 0 Vote négatif

S

Sheldor

XLDnaute Occasionnel

Supporter XLD

• 3 Janvier 2013

• #4

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

 

Vote positif 0 Vote négatif

S

Sheldor

XLDnaute Occasionnel

Supporter XLD

• 3 Janvier 2013

• #5

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

 

Vote positif 0 Vote négatif

A

anthooooony

XLDnaute Occasionnel

• 3 Janvier 2013

• #6

Re : Problème date VBA

Bonjour

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

 

Vote positif 0 Vote négatif

S

Sheldor

XLDnaute Occasionnel

Supporter XLD

• 3 Janvier 2013

• #7

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

 

Vote positif 0 Vote négatif

A

anthooooony

XLDnaute Occasionnel

• 3 Janvier 2013

• #8

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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

A

anthooooony

XLDnaute Occasionnel

• 3 Janvier 2013

• #9

Re : Problème date VBA

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

 

Vote positif 0 Vote négatif

S

Sheldor

XLDnaute Occasionnel

Supporter XLD

• 3 Janvier 2013

• #10

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

 

Vote positif 0 Vote négatif

S

Sheldor

XLDnaute Occasionnel

Supporter XLD

• 3 Janvier 2013

• #11

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

 

Pièces jointes

• Export-20130103-091645497 ng.xls

  32.5 KB · Affichages: 24

Vote positif 0 Vote négatif

A

anthooooony

XLDnaute Occasionnel

• 3 Janvier 2013

• #12

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 !!

 

Vote positif 0 Vote négatif

S

Sheldor

XLDnaute Occasionnel

Supporter XLD

• 3 Janvier 2013

• #13

Re : Problème date VBA

ah tiens oui, curieux! je regarde ça

 

Vote positif 0 Vote négatif

S

Sheldor

XLDnaute Occasionnel

Supporter XLD

• 3 Janvier 2013

• #14

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

 

Vote positif 0 Vote négatif

A

anthooooony

XLDnaute Occasionnel

• 3 Janvier 2013

• #15

Re : Problème date VBA

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

 

Vote positif 0 Vote négatif