Se connecter avec
S'enregistrer | Connectez-vous

Format des dates a l'ouverture

Dernière réponse : dans Programmation

Bonjour!

De retour de vacances et deja un pb de macro qui prend la tete !!

Je telecharge d'internet un fichier .csv avec des dates dans la premiere colonne.

Quand je l'ouvre manuellement g bien un format dd/mm/yyyy

par contre quand je l'ouvre avec VBA certaines ont le jour et le mois inverse tout en gardant un format dd/mm/yyyy

exemple:
12/09/2006 est devenu 09/12/2006 mais que le format est reste le meme, c'est a dire que le 12 sept devient le 09 dec.

Voici mon code:

  1. Sub dfn()
    

  2.  
  3. Sheets("Monitor").Select
    

  4.  
  5. saved_file = Sheets("Monitor").Range("saved_file")
    

  6. file_name = Sheets("Monitor").Range("file_name")
    

  7. historical = Sheets("Monitor").Range("historical")
    

  8. format_file = Sheets("Monitor").Range("format_file")
    

  9.  
  10. 'gestion des fichiers
    

  11. Sheets("Web").Select
    

  12. Cells.Select
    

  13. Selection.Delete
    

  14. Range("A1").Select
    

  15.  
  16. Dir (saved_file)
    

  17. fichier_importe = saved_file & "\" & file_name & format_file
    

  18.  
  19. Workbooks.Open fichier_importe
    

  20.  
  21. End Sub


Est ce quelqu'un aurait une petite idee a faire partager?

MERCI !! :) 

Autres pages sur : format dates ouverture

Lassé par la pub ? Créez un compte

Citation :
Idée: regarde du côté de argument Local de la méthode Open de l'objet Workbooks.


j'ai remarque qu une question de la sorte a deja ete posee sur le forum
http://www.presence-pc.com/forum/ppc/Programmation/Date...

mais l'aide excel ne me donne rien concernant wokbook.open et local

et msdn... c toujours aussi peut lisible.

d'apres ce que g compris de l'argument local ca doit donner un truc comme ca non?
  1. workbooks.open (name,local=true)


besoin d'un coup de pouce la ...
Expert Programmation

Non.

D'abord, vire les parenthèses : IL N'Y A PAS DE PARENTHESES AUTOUR DES ARGUMENTS D'UNE PROCEDURE EN VISUAL BASIC.

  • Soit tu écris tous les arguments dans l'ordre: 
    1. workbooks.open FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMru, Local, CorruptLoad, OpenConflictDocument

  • Soit tu ne donnes que ceux qui t'intéressent en oubliant les autres, mais toujours dans l'ordre en marquand la place des précédents par une virgule: 
    1. workbooks.open FileName, , , , , , , , , , , , , Local

  • Soit tu nommes explicitement tes arguments, dans l'ordre qui t'intéresse : 
    1. workbooks.open FileName:="FileName", Local:=True
    Lassé par la pub ? Créez un compte

    Créer un nouveau sujet