OVH Cloud OVH Cloud

mystère

5 réponses
Avatar
Banhurle
bonjour, j'ai besoin de votre aide

http://cjoint.com/?cxmiIDZN3Z

si j'ouvre ce fichier sous excel par le menu fichier ouvrir, j'obtient une
conversin de date normale

si j'ouvre ce fichier par vba sous la forme:
Workbooks.Open Filename:=nom_fichier, les dates ne sont pas toute
trnansformées


merci d'avance

Banhurle

5 réponses

Avatar
Modeste
Bonsour® Banhurle avec ferveur ;o))) vous nous disiez :

si j'ouvre ce fichier sous excel par le menu fichier ouvrir, j'obtient une
conversin de date normale


Excel utilise les parametres de langue locale

si j'ouvre ce fichier par vba sous la forme:
Workbooks.Open Filename:=nom_fichier


VBA utilise les parametres de langue US

par VBA il faut préciser :
Workbooks.Open Filename:=nom_fichier, Local:=true


--
;o)))
@+

Les news à la source !!!
news://news.microsoft.com/microsoft.public.fr.excel
et répondez OUI

n'oubliez pas les FAQ :http://www.excelabo.net
http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr

Avatar
Banhurle
merci bcp


"Modeste" wrote:

Bonsour® Banhurle avec ferveur ;o))) vous nous disiez :

si j'ouvre ce fichier sous excel par le menu fichier ouvrir, j'obtient une
conversin de date normale


Excel utilise les parametres de langue locale

si j'ouvre ce fichier par vba sous la forme:
Workbooks.Open Filename:=nom_fichier


VBA utilise les parametres de langue US

par VBA il faut préciser :
Workbooks.Open Filename:=nom_fichier, Local:=true


--
;o)))
@+

Les news à la source !!!
news://news.microsoft.com/microsoft.public.fr.excel
et répondez OUI

n'oubliez pas les FAQ :http://www.excelabo.net
http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr






Avatar
Banhurle
oups ca me met une erreur, voici mon code

Sub Nomdufichier()
Dim NomFichier
NomFichier = Application.GetOpenFilename
If VarType(NomFichier) = vbBoolean Then MsgBox "Action annulée" _
Else Workbooks.Open Filename:=NomFichier, Local:=True

End Sub

ca me dit sur local:= erreur de compilation argument nommé introuvable
merci encore
Avatar
Modeste
Bonsour® Banhurle avec ferveur ;o))) vous nous disiez :

ca me dit sur local:= erreur de compilation argument nommé introuvable


:-((
hélas cela signifie que tu utilises une vieille version EXCEL,
l'argument Local étant connu depuis EXCEL 2000 sinon EXCEL 97

seule alternative restante :
concernant les colonnes mal intégrées :
selectionner "la" colonne en cause
menu Données >convertir
à l'étape 3 choisir le "format lu" (dans le cas présent JMA)
répeter l'opération pour les colonnes posant le même probleme

en cas de satisfaction :
utilise l'enregistreur de macro
et ajoute le code obtenu à ta procédure VBA

--
;o)))
@+

Les news à la source !!!
news://news.microsoft.com/microsoft.public.fr.excel
et répondez OUI

n'oubliez pas les FAQ :http://www.excelabo.net
http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr

Avatar
michdenis
Bonjour Banhurle,

Le paramètre "Local:=True" n'est disponible qu'à partir de la version excel 2002

J'ai fait le test suivant à partir de la version Excel 2003.

A ) ouverture du fichier "Extraction.htm" à partir de la barre d'outils / fichier
(commande de la feuille de calcul)
RÉSULTAT : aucun problème avec les dates ... affichage normal

B ) à partir de cette macro : Le paramètre "Local" n'a pas été utilisé et
il est à faux par défaut.
RÉSULTAT : aucune problème avec les dates ... affichage normal
'-------------------------------
Sub test()

Workbooks.Open "c:extraction.htm"

End Sub
'-------------------------------



Salutations!






"Banhurle" a écrit dans le message de news:

oups ca me met une erreur, voici mon code

Sub Nomdufichier()
Dim NomFichier
NomFichier = Application.GetOpenFilename
If VarType(NomFichier) = vbBoolean Then MsgBox "Action annulée" _
Else Workbooks.Open Filename:=NomFichier, Local:=True

End Sub

ca me dit sur local:= erreur de compilation argument nommé introuvable
merci encore