FORUM Tom's Hardware » Programmation » VB / VBA / VBS » Format des dates a l'ouverture
 

Format des dates a l'ouverture

Il y a 269 utilisateurs connus et inconnus. Pour voir la liste des connectés connus, cliquez ici
Ajouter une réponse



 Mot :   Pseudo :  
 
Bas de page
Auteur
 Sujet : Format des dates a l'ouverture
 
Plus d'informations

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:
 

Code :
  1. Sub dfn()
  2. Sheets("Monitor" ).Select
  3. saved_file = Sheets("Monitor" ).Range("saved_file" )
  4. file_name = Sheets("Monitor" ).Range("file_name" )
  5. historical = Sheets("Monitor" ).Range("historical" )
  6. format_file = Sheets("Monitor" ).Range("format_file" )
  7. 'gestion des fichiers
  8. Sheets("Web" ).Select
  9. Cells.Select
  10. Selection.Delete
  11. Range("A1" ).Select
  12. Dir (saved_file)
  13. fichier_importe = saved_file & "\" & file_name & format_file
  14. Workbooks.Open fichier_importe
  15. End Sub


 
Est ce quelqu'un aurait une petite idee a faire partager?
 
MERCI !! :)

zeb
Profil : Modérateur libre
Plus d'informations

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

Plus d'informations

a écrit :

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-macro-excel-sujet-3494-1.htm
 
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?

Code :
  1. workbooks.open (name,local=true)


 
besoin d'un coup de pouce la ...

Plus d'informations

a écrit :

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


 
ou encore mieux:
 

Code :
  1. Workbooks.Open fichier_importe, _
  2.     local:=True


 
merci pour le conseil!

zeb
Profil : Modérateur libre
Plus d'informations

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:

    Code :
    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:

    Code :
    1. workbooks.open FileName, , , , , , , , , , , , , Local

  • Soit tu nommes explicitement tes arguments, dans l'ordre qui t'intéresse :

    Code :
    1. workbooks.open FileName:="FileName", Local:=True


Aller à :
Ajouter une réponse
  FORUM Tom's Hardware » Programmation » VB / VBA / VBS » Format des dates a l'ouverture
 

Annonces Google
Publicité