macro ouveerture de fichier

[al1000]

bojour

j'ai cette macro:

Dim FichierCible As Workbook
Dim Fichier As Variant

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

Fichier = "m:\données\RAFA " & Fichier & " 2006.xls"
If Dir(Fichier) = "" Then
MsgBox "fichier non trouvé"
Exit Sub


pour le mois de novembre elle marche mais pour le mois de decembre elle dit qu'elle ne trouve pas le fichier

pourquoi?

 

[Pierrot93]

Re : macro ouveerture de fichier

Bonsoir Al1000

Dans le nom de ton fichier décembre a bien un accent et le bon ?

@+

 

[al1000]

Re : macro ouveerture de fichier

bonjour,


le mois est en majuscule

 

[JYLL]

Re : macro ouveerture de fichier

bonsoir Al1000, Pierrot et le Forum,

Regarde si tu n'a pas mis un espace à la fin de DECEMBRE ça arrive parfois.

Bonne chance.

 

[al1000]

Re : macro ouveerture de fichier

BONJOUR
le mois est mis en majuscule DECEMBRE

mais quand je l'écris DéCEMBRE LA MACRO FONCTIONNE

pourquoi?

et comment peut on faire?

 

[Pierrot93]

Re : macro ouveerture de fichier

Bonsoir ai1000, Jyll

a priori je ne vois pas de solution, méme l'option "OPTION COMPARE" tient compte des accents. La solution mettre le nom de tes onglets en minuscules avec accents... A moins que quelqu'un d'autre....

Bonne soirée
@+

 

[al1000]

Re : macro ouveerture de fichier

bonjour,


c'est quoi "l'option compare?"

a+

 

[MichelXld]

Re : macro ouveerture de fichier

bonsoir à vous

c'est quoi "l'option compare?"

L'instruction Option Compare définit la méthode de comparaison de chaînes. Si le module ne contient pas d'instruction Option Compare, la méthode de comparaison de texte par défaut est Binary.
Option Compare doit être placé tout en haut du module, avant toute procédure.

Option compare Text
Les comparaisons ne distinguent pas les majuscules des minuscules.

Option compare Binary
Les comparaisons sont basées sur la représentation binaire interne des caractères.

Dim x As Boolean
x = "A" > "a"
MsgBox x 'renvoie Faux

x = "A" < "a"
MsgBox x 'renvoie Vrai

x = "a" < "b"
MsgBox x 'renvoie Vrai

x = "b" < "a"
MsgBox x 'renvoie Faux

'Exemples:
'A < B < E < Z < a < b < e < z < À < Ê < Ø < à < ê < ø

Bonne soirée
MichelXld

 

[al1000]

Re : macro ouveerture de fichier

bonsoir

l'option compare est une option à cocher?


a+

 

[JYLL]

Re : macro ouveerture de fichier

Re Bonsoir Al100 et vous tous,

C'est normal que cela fonctionne avec "décembre" c'est ce que VBA te retourne quand tu fais:

Fichier = MonthName(12)

Pour le voir ,met un point d'arrêt dans la ligne suivante de ta macro et regarde la variable "Fichier". Pour mettre un point d'arrêt, tu cliques dans la barre grise devant l'instruction. Une fois arrêtée, tu mets le pointeur de la souris sur "Fichier" dans la macro et tu verras "décembre" et non "DECEMBRE"

Bon test.

 

[al1000]

Re : macro ouveerture de fichier

bonjour,

peux t on changer?
incrire DECEMBRE

 

[JYLL]

Re : macro ouveerture de fichier

Bonsoir Al1000 et le forum,

Oui tu peux écrire les mois comme tu le souhaites, mais il faut que tu fasses un tableau mois(12) et que tu l'initialize avec la casse que tu veux et après tu fais référence à ce tableau.

Bon test.

 

[al1000]

Re : macro ouveerture de fichier

bonjour,

as tu une ebauche à presenter ou un exemple?

merci

a+

 

[JYLL]

Re : macro ouveerture de fichier

Bonsoir Al1000 et le Forum,

Voici le code

Global Mois(1 To 12) As String
' Mis ici pour être visible de toutes les macros.

Sub Initialisation_Mois()
Mois(1) = "Janvier"
Mois(2) = "Février"
Mois(3) = "Mars"
Mois(4) = "Avril"
Mois(5) = "Mai"
Mois(6) = "Juin"
Mois(7) = "Juillet"
Mois(8) = "Août"
Mois(9) = "Septembre"
Mois(10) = "Octobre"
Mois(11) = "Novembre"
Mois(12) = "Décembre"
End Sub

bon test.

 

[al1000]

Re : macro ouveerture de fichier

bonjour,


je colle ta macro qui se nomme: Initialisation_Mois

mais il m'indique qu'il ne trouve pas le fichier


Global Mois(1 To 12) As String
_______________________________________________________(j'ai ce trait)

' Mis ici pour être visible de toutes les macros.

Sub Initialisation_Mois()
Mois(1) = "Janvier"
Mois(2) = "Février"
Mois(3) = "Mars"
Mois(4) = "Avril"
Mois(5) = "Mai"
Mois(6) = "Juin"
Mois(7) = "Juillet"
Mois(8) = "Août"
Mois(9) = "Septembre"
Mois(10) = "Octobre"
Mois(11) = "Novembre"
Mois(12) = "DECEMBRE"

End Sub

POURQUOI CECI NE FONCTIONNE PAS?