Dates et Macros
Bonjour,
J'exporte des données en format .txt car je ne peu pas au format.xls, il s'agit d'un matricule, d'un motif d'absences d'une date début et une date de fin d'absence.
Ces données je les ouvrent avec excel ensuite je les convertis en format texte.(car j'ai des matricules commencant par Zero et je souhaite les conserver .
Ma macros consiste à ouvrir le fichier Txt. (faire la convertion) ensuite d'ouvrir un autre fichier sur laquel je colle mes infos du Fichier .Txt
Mon problème est que quand j'execute ma macro. Mes dates qui commencent par zero sont fausses, plus de zero et cela inverse mes jour et mois (avant macros : 03/12/09 après macros 12/03/09
Quelqu'un peut il m'aider ?
Merci beaucoup.
Bonjour,
Le mieux serait de voir le code pour t'aider.
Sinon utilise cette instruction lors du copiage
format(reference, "dd/mm/yy")Avec reference étant la cellule contenant la date en question.
Amicalement
Dan
Bonjour,
Merci de votre réponse.
Ci dessous le code. Je cherche mais je coince !!
Encore merci
Je l'ai fait par l'enregistreur de macros !
ChDir _
"C:\....Etape 2\Export Abs"
Workbooks.OpenText Filename:= _
"C:\....Etape 2\Export Abs\test.txt" _
, Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 2), _
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _
Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15 _
, 1), Array(16, 1), Array(17, 1)), TrailingMinusNumbers:=True
Columns("A:D").Select
Selection.Copy
ChDir _
"C:\....Etape 3\Base EP Absences"
Workbooks.Open Filename:= _
"C:\....Etape 3\Base EP Absences\baseabsep.xls" _
, Origin:=xlWindows
Columns("A:D").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("A1").Select
Windows("test.txt").Activate
Selection.Copy
Windows("baseabsep.xls").Activate
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Windows("test.txt").Activate
Application.CutCopyMode = False
Selection.Copy
Windows("baseabsep.xls").Activate
ActiveSheet.Paste
Range("E5").Select
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWorkbook.Close
ActiveWorkbook.Close
Range("A6").Select
Quelqu'un peut'il m'aider ?
Bonsoir,
Quelqu'un peut'il m'aider ?
faut pas être si pressé.... 8)
Dans quelle colonne se situent les dates?
la conversion est définie au niveau des arrays, dans le code...
aussi, pour pouvoir t'aider au mieux, il serait bon que tu nous donnes un peu plus d'info...
si c'est dans la colonne 1, essaie en modifiant :
FieldInfo:=Array(Array(1, 2), _ ............par :
FieldInfo:=Array(Array(1, 4), _ ............sinon, met le 4 dans l'Array correspondant à ta colonne...
Bonne soirée
Merci pour la réponse mais cela ne fonction pas je réexplique mon soucis :
"J'exporte des données en format .txt car je ne peu pas au format.xls, il s'agit d'un matricule, d'un motif d'absences d'une date début et une date de fin d'absence.
Ces données je les ouvrent avec excel ensuite je les convertis en format texte.(car j'ai des matricules commencant par Zero et je souhaite les conserver .
Ma macros consiste à ouvrir le fichier Txt. (faire la convertion) ensuite d'ouvrir un autre fichier sur laquel je colle mes infos du Fichier .Txt
Mon problème est que quand j'execute ma macro. Mes dates qui commencent par zero sont fausses, plus de zero et cela inverse mes jour et mois (avant macros : 03/12/09 après macros 12/03/09 "
La macros se trouve le message préèdent
https://www.excel-pratique.com/~files/doc2/dates_et_macros.xls
Re,
Merci pour la réponse mais cela ne fonction pas ....
en général, lorsque je donne une réponse, c'est que j'ai testé, avec ce que j'ai compris, et dans ton cas, en créant moi-même un fichier texte...
ton fichier excel n'est d'aucune utilité dans la résolution de ton souci...
joins plutôt un fichier texte, avec exactement la même structure, une seule ligne suffirait..
à te relire
re Bounty, et bonjour à Cousinhub,
Déso mais je ne suis pas toujours devant l'ordi ...
Ces données je les ouvrent avec excel ensuite je les convertis en format texte.(car j'ai des matricules commencant par Zero et je souhaite les conserver .
As-tu essayé de voir ce qui se passe si tu ne les convertis pas.
Si tu as une inversion c'est que les formats ne sont pas identiques et qu'excel comprends une fois une date et une autre fois un texte.
A te relire
Dan
Merci cousin hub et nad
J'ai testé sans convertir le copier coller fonctionne, mais c'est en enregistrant ma macros enfin que je l'execute qui me foire mes dates commancant par zero.
cousinhub Ci-joint le fichier texte qui me semble correct.
https://www.excel-pratique.com/~files/doc2/56KVjtest.txt
Recap :
1- J'exporte des donnés, j'obtiens un fichier .Txt
2- J'ouvre avec excel et ensuite la boite de dialogue convertion s'affiche (séparateur ; et convertion texte.)
3 - Je copie ces données que je colle dans un troisième fichier excel
Pour faire ces taches j'ai utiliser l'enregistreur de macros .
Merci de votre aide
Re-,
je n'ai sans doute pas été assez précis, dans la démarche...
dans ton code ;
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 2), _
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _remplace les 1 des Array 3 et 4 par des 4
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 2), _
Array(2, 1), Array(3, 4), Array(4, 4), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _et dis-nous....
Re-,
je n'ai sans doute pas été assez précis, dans la démarche...
dans ton code ;
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 2), _
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _remplace les 1 des Array 3 et 4 par des 4
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 2), _
Array(2, 1), Array(3, 4), Array(4, 4), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _et dis-nous....
ok nickel merci a cousin hub et nad
A BIENTOT