Discussion :

[Bastien06]

Bonjour,

J'ai développé une macro qui va m'ouvrir 2 fichiers Excel en fonction de la date.

Par exemple, l'un de mes fichiers s'appelle: FI090320 dc une format FIYYMMDD

Voici le code que j'ai ulilisé:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim vDate As String
 
vDate = InputBox("Entrer la date de trade" & Chr(10) & Chr(10) & "Format YYMMDD", "date")
Range("N15") = vDate
 
'ouverture du fichier en fonction de la Trade Date
Dim FI As Range
Set FI = Range("N16")
 
ChDir "T:\backoffice\BOT\Excel\MONDE\Fees Clearer"
Name = FI & vDate & ".xls"
Workbooks.Open Filename:=Name

Dans la cellule N16 j'ai simplement rentré "FI"...de ce fait la macro va allé composer le nom du fichier de FI en cellule N16 puis de la date rentrée par l'utilisateur en N15.

Ce bout de code a marché un moment mais voila il arrive souvent que la macro m'affiche une erreur disant qu'elle ne trouve pas le fichier recherché... J'ai bien vérifié tous les paramètres en vain...le fichier est bien présent à l'adresse indiquée...

J'ai l'impression que la macro a tendance à "bugger" de temps à autre pour je ne sais quelle raison...

Serait-ce une erreur de codage?ou un conflit dans ma procédure qui la rend instable?

Autre exemple d'anomalie...la macro fonction sur mon PC..les fichiers à ouvrir se trouvent sur un serveur commum à mes collegues...pourtant lorsqu'un collegue veut se servir de la macro, elle ne trouve pas les fichiers Excel à ouvrir...j'ai bien vérifié les chemins d'accès sont correctes.

Merci par avance pour votre aide!!!

Bastien

[aalex_38]

Code :

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

1
2
3
4
5
Range("N15") = vDate
 
'ouverture du fichier en fonction de la Trade Date
Dim FI As Range
Set FI = Range("N16")

Tu passes de la colonne 15 à la colonne 16 ?

[Bastien06]

Slt!

Non en fait en N16 je rentrais une donnée renvoyant au nom du fichier à ouvrir...ce de fait le nom du fichier, par exemple FI090326 était découpé en cellule N15 pou la date et N16 pour "FI"...mais depuis j'ai changé car ca ne servait pas à grand chose de faire ca...

Merci en tout cas!

Bonne journée!
Bastien

[aalex_38]

Lu trop vite encore une fois

Au final dans filename tu as bien le chemin complet ?

Un exemple :

Code :

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

1
2
MonFilename = Repertoire & MonFilename
Set wb = Workbooks.Open(Repertoire & "\" & Fichier)