Contenu récent par rin01

Re : Format de date - inversion jour et mois Bingo! ça fonctionne en mettant le paramètre local à true 03/01/2011 09:52 07/01/2011 10:32 26/01/2011 15:00 Merci beaucoup car je commençais à m'arracher les cheveux! Pierrot & MJ13 merci de votre précieuse aide!

Re : Format de date - inversion jour et mois Même résultat avec .Columns("A:A").TextToColumns Destination:=.Range("A1"), DataType:=xlDelimited, TextQualifier:=xlNone, Semicolon:=True, FieldInfo:=Array(Array(2, 3), Array(3, 3), Array(4, 3))

Re : Format de date - inversion jour et mois Pourtant je pense que tout est bien paramétré dans les options (c.f copie d'écran) Merci tout de même d'avoir pris le temps de m'aider.

Re : Format de date - inversion jour et mois Le résultat semble identique 01/03/2011 09:52 alors que l'on devrait avoir 03/01/2011 09:52 01/07/2011 10:32 (idem) 26/01/2011 15:00 (correct) ...

Re : Format de date - inversion jour et mois Voici le contenu de mon code Private Sub CommandButton1_Click() Dim MonFichier As String MonFichier = Application.GetOpenFilename If Len(MonFichier) <= 0 Then Exit Sub If Len(Dir(MonFichier)) <= 0 Then Exit Sub...

Re : Format de date - inversion jour et mois @Pierrot, merci pour ton retour. J'ai remplacé l'intégralité de mon code par ce que tu as mis et j'obtiens une erreur. Pourrais-tu stp me dire comment le mettre en oeuvre? Merci beaucoup

Re : Format de date - inversion jour et mois Bonjour Victor, J'utilise la fonction OpenText(FileName, Origin, StartRow, DataType, TextQualifier, ConsecutiveDelimiter, Tab, Semicolon, Comma, Space, Other, OtherChar, FieldInfo, TextVisualLayout, DecimalSeparator, ThousandsSeparator...

J'ai une macro chargée d'importer des données issues d'un fichier csv dont le contenu ressemble à : 1731;03/01/2011 09:52;03/01/2011 09:52;03/01/2011 10:22; 1788;07/01/2011 10:32;07/01/2011 10:32;07/01/2011 10:32; 2055;26/01/2011 15:00;26/01/2011 15:14;26/01/2011 15:28 A à la fin du...

Re : fonction 2007 --> 2003 xlSortOnValues Au temps pour moi! J'ai oublié de mettre les 2 premières lignes ThisWorkbook.Worksheets("appels").Activate ThisWorkbook.Worksheets("appels").Columns("H:H").Select Merci beaucoup, ça m'a été d'une grande aide :)

Re : fonction 2007 --> 2003 xlSortOnValues Merci de ta réponse JNP. Avec ce que tu as donné, j'obtiens une erreur d'éxécution '1004' (Référence de tri non valide)

Bonjour, Je suis totalement novice en VBA et j'aurais besoin de l'équivalent de ce code en version Exell 2003 Private Function triAppels() ThisWorkbook.Worksheets("appels").Activate ThisWorkbook.Worksheets("appels").Columns("H:H").Select...