ecriture du mois aout

[al1000]

bonjour,

voici ma macro:

Dim FichierCible As Workbook
Dim Fichier As Variant

'Demande le numéro du fichier souhaité
Fichier = Application.InputBox(" N° du mois ?", "Ouvrir", Type:=2)
If Fichier = False Then Exit Sub
'Vérifie que le fichier existe
Fichier = MonthName(Fichier)

Fichier = "Z:\RAF" & Fichier & " 08.xls"

If Dir(Fichier) = "" Then
MsgBox "fichier non trouvé"
Exit Sub
End If

mais quand le fichier s'ecrit AOUT (majuscule)il ne trouve pas

pourquoi??

hypothèse: est le chapeau sur le u du mout août

est ce que on peux écrire une macro pour reécrire le mois aout??
a+




a+

 

[Cousinhub]

Re : ecriture du mois aout

Bonjour,

si c'est juste pour le mois d'août

Fichier = Replace(MonthName(Fichier), "û", "u")

 

[Raja]

Re : ecriture du mois aout

Bonjour,

Essaye de remplacer cette ligne suivante :

Fichier = "Z:\RAF" & Fichier & " 08.xls"

comme suivant :

Fichier = "Z:\RAF" & WorksheetFunction.Lower(Fichier) & " 08.xls"

édit : Salut bhbh.

 

[tototiti2008]

Re : ecriture du mois aout

Bonjour al,

eh oui, c'est sans doute pour ça qu'on utilise souvent le numéro du mois plutôt que son nom...

va voir de ce côté :

VB6 - SUPPRIMER LES ACCENTS D'UNE CHAÎNE supprimer, accents, chaine, Source N°33666

Edit : Bonjour Raja, bhbh

 

[al1000]

Re : ecriture du mois aout

bonjour,

que veux dire:WorksheetFunction.Lower(Fichier) et pourquoi fichier est entre parenthèse?

2 emme question ou ecrire cette macro:Fichier = Replace(MonthName(Fichier), "û", "u")(si je choisi cette solution)

je prefere la solution de Raja


a+

 

[Cousinhub]

Re : ecriture du mois aout

Re-,

tu remplaces :

Fichier = MonthName(Fichier)

par la ligne que je t'ai donnée

 

[tototiti2008]

Re : ecriture du mois aout

j'ai peur que la solution de Raja ne fonctionne pas...

 

[Raja]

Re : ecriture du mois aout

Re al1000,

Salut tototiti2008. Tu as raison. Cette forme de formule ne marche pas dans VBA (Pourtant ça devrait. Bref, Passons). Essayons celle-ci, ça devrait marcher :


Fichier = "Z:\RAF" & LCase(Fichier) & " 08.xls"

Pour répondre à la question de al1000, La formule LCase récupère la chaîne de caractère "AOUT" et la transforme en minuscule.L'unique paramètre de la formule LCase est une chaîne de caractère(String).

 

[Cousinhub]

Re : ecriture du mois aout

Re-,

Raja, avec Lcase, tu gardes l'accent circonflexe, sur "Août" (août)

si son onglet ne comporte pas d'accent circonflexe, il vaut mieux passer par le code proposé (Replace)

 

[al1000]

Re : ecriture du mois aout

Bonjour,


Quand je met ce code:


' Définition de la conversion
Const accent As String = "ÀÁÂÃÄÅàáâãäåÒÓÔÕÖØòóôõöøÈÉÊËèéêëÌÍÎÏìíîïÙÚÛÜùúûüÿÑñÇç"
Const noAccent As String = "AAAAAAaaaaaaOOOOOOooooooEEEEeeeeIIIIiiiiUUUUuuuuyNnCc"
' La fonction :
Private Function sansAccents(ByRef s As String) As String
Dim i As Integer
Dim lettre As String * 1
sansAccents = s
For i = 1 To Len(accent)
lettre = Mid$(accent, i, 1)
If InStr(sansAccents, lettre) > 0 Then
sansAccents = Replace(sansAccents, lettre, Mid$(noAccent, i, 1))
End If
Next i
End Function


J'ai ce message suivant à cette ligne:

' La fonction :

Erreur compilation end sub attendu


Pourquoi?


a+

 

[al1000]

Re : ecriture du mois aout

bonjour,


je voudrais ouvrir le mous de février, août, décembre avec ou sans accent


comment faire pour ecrire dans la macro?

a+

 

[al1000]

Re : ecriture du mois aout

J'ai ce message en activant ma macro:

' La fonction :

Erreur compilation end sub attendu


Pourquoi?


a+