Date au format anglais

Magellan77 Messages postés 2 Date d'inscription jeudi 23 novembre 2006 Statut Membre Dernière intervention 29 octobre 2008 - 23 nov. 2006 à 10:24
drikce06 Messages postés 2236 Date d'inscription lundi 29 mai 2006 Statut Membre Dernière intervention 29 mai 2008 - 23 nov. 2006 à 13:07
Bonjour à Tous,

Je vous expose mon petit problème. Je suis embeté par le format Anglais utilisé par defaut par VBA.

Apres avoir effectué plusieurs recherches sur ce forum et d'autres je trouve pas mal de codes permettant d'interpreter les dates convenablemant ci celles ci sont deja sur excel mais mon probleme est legerement diferent.

Voila ce que je cherche a faire:

1. Je copie des informations sur une site internet dans le presse papiers

2. Au travers d'un bouton placer dans une feuille excel lançant la macro suivante:
     Range("A5").Select
     ActiveSheet.PasteSpecial Format:="Text", Link:=False, DisplayAsIcon:=False
    Je copie le contenu du presse-papier dans ma feuille Excel en commençant par la cellule A5.

3. J'execute une serie de macro qui n'on pas d'importance içi.

Les données presente dans le presse papier contiennent un champ date, c'est celui ci qui pose probleme puisque VBA me converti ttes les dates inferieures à 13/mm/yyyy en mm/dd/yyyy.

Si j'execute un copier coller manuel je n'ai pas de probleme mais dans un soucis de gain de temps j'aimerai passer par une macro.

Les configuration regionales de mon PC sont bien Françaises.

Je compte sur une âme genereuse pour me sortir de ce petrain sans fin.

Cordialement et longue vie à ce Forum
A voir également:

4 réponses

drikce06 Messages postés 2236 Date d'inscription lundi 29 mai 2006 Statut Membre Dernière intervention 29 mai 2008 10
23 nov. 2006 à 10:40
Salut regarde du côté de format date, il y a plusieurs snippet la dessus sur codyx.

 Drikce 06
0
mqsi Messages postés 111 Date d'inscription mardi 31 octobre 2006 Statut Membre Dernière intervention 28 avril 2010
23 nov. 2006 à 12:41
 essayer avec cet instruc :
Dim sDate
sDate = Format(Date, " mm/dd/yyyy")
Passe une bonne après-midi.<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>
0
Magellan77 Messages postés 2 Date d'inscription jeudi 23 novembre 2006 Statut Membre Dernière intervention 29 octobre 2008
23 nov. 2006 à 12:57
Bonjour Drickce 06,

Je te remerci pour ta reponse, je suis allé sur le site codyx.org et je n'ai trouvé aucun snippet repondant à ma question. Si tu en connais un en particulier pourrai tu me le dire.

Merci
0
drikce06 Messages postés 2236 Date d'inscription lundi 29 mai 2006 Statut Membre Dernière intervention 29 mai 2008 10
23 nov. 2006 à 13:07
Re: si tu utilise le code de mqsi c'est bon!

Dim TaDate As String
TaDate = Format(Date, "dd/mm/yyyy") 'date francaise
TaDate = Format(Date, "mm/dd/yyyy") 'date anglaise
Range("A1") = TaDate

 Drikce 06
0
Rejoignez-nous