Discussion :

[Think123]

Bonjour,

Dans plusieurs macros j'essaie d'utiliser le code de langue pour changer la langue d'une date (anglais ou français) et ça ne fonctionne jamais et me renvoie tout le temps une date en français (langue dans laquelle est mon Word).

Voici la ligne que j'utilise et qui me retourne tout le temps quelque chose en français. Le code 4105 est pour Anglais Canada.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Selection.Text = Format(MaDate, "[$-4105]MMMM yyyy")

Merci!

[jurassic pork]

hello,
tu pourrais mettre ton document ou une partie (là où il y la date ) en pièce jointe ?

[Think123]

C'est exactement le code que tu m'as donné dans une autre discussion. Peut-être qu'il y a un réglage que je dois activer sur mon ordinateur pour que ça fonctionne... Voici un exemple.

Dis moi si sur ton ordinateur ça fonctionne.

[jurassic pork]

tu n'as pas fait ce que j'avais mis dans l'autre discussion :

Si tu veux forcer une langue pour écrire le mois , tu peux par exemple utiliser la fonction Excel Text. Pour pouvoir l'utiliser dans du code VBA d'un document word, il faut ajouter dans les reférences VBA (outils/Références de VBA) la bibliothèque Microsoft Excel xxx Object Library et voici le code à utiliser alors par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Selection.Text = WorksheetFunction.Text(MaDate, "[$-409]MMMM yyyy")

[Think123]

Ce n'est pas que pour Excel ça? Parce que mon document est sous format word

[jurassic pork]

non, en fait il n'y a pas dans word une fonction qui transforme la langue des dates mais comme ça existe sous Excel on fait appel à une fonction Excel. Si tu as Excel installé sur ta machine ce la doit fonctionner. Pas la peine d'ouvrir excel c'est le VBA qui se charge d'aller chercher la fonction.

[Think123]

Ça me met erreur d'exécution 424 objet requis

[jurassic pork]

il faut ajouter dans les reférences VBA (outils/Références de VBE) la bibliothèque Microsoft Excel xxx Object Library

[Think123]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub Test111()
 
Dim MaDate As Date
Selection.GoTo What:=wdGoToBookmark, Name:="Monthyear"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
    MaDate = DateAdd("m", -1, Date)
    Selection.Text = WorksheetFunction.Text(MaDate, "[$-409]MMMM yyyy")
 
End Sub

[Think123]

Merci! ça fonctionne. Désolée j'étais dans la lune je crois..!