Discussion :

[chloe2]

Bonjour,

Je souhaite, grâce à une macro ouvrir des fichiers de taux journaliers.
Je m'explique j'ai dans ma colonne C des dates dans le format jj/mm/aaaa. Je désire pour chaque date ouvrir le fichier de chemin : C\temp\aaaa-mm-jj\toto

Voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub test()
Dim chemin As String
Dim suite As String
Dim act As String
 
chemin = "C\temp"
suite = Year(C5) & "-" & Month(E5) & "-" & Day(C5) & "\toto"
act = chemin & suite
Workbooks.Open act.xls
 
End Sub

J'obtien une erreur de qualificateur sur la dernière ligne.
Merci par avance !

[Pierre845]

je me demande s'il ne faut pas créer un objet.

set xx as object .. et ensuite faire application.xx.open .. ou quelque chose dans le genre

[fgiambelluco]

Bonjour
A priori il te faut plutôt faire

Code :

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

1
2
3
4
chemin = "C\temp\" ' manquait un \ dans le chemin final
suite = format(C5,"yyyy-mm-dd") & "\toto\" 'formate la date comme voulue +\ manquant
act = chemin & suite
Workbooks.Open act & ".xls" 'concaténation variables + texte fixe

Bon courage

[chloe2]

Merci pierre et frédéric,

Frédéric ta solution me donne une erreur d'éxécution que je n'arrive pas à supprimer, je continue à chercher sinon je vais essayer de créer un objet comme suggéré par pierre même si je ne suis pas experte en objet, il y a un début à tout!

[fgiambelluco]

Re
C'est vrai que étant dans Excel, je trouve plutôt bizarre de créer un objet Excel pour ouvrir un classeur.

Pour ce qui est de l'erreur générée par le bout de code que j'avais modifié, Il faut savoir si la colonne contient bien une date et que le dossier existe bien, ainsi que le fichier .

Ah je viens de voir qu'il manque le : derrière le C ; C:\temp\

[chloe2]

le ":" importe peu j'avais mis ce chemin pour simplifier en réalité je vais chercher un fichier dans mes favoris réseau dont je suis sur de l'existence et je suis aussi sur qu'il y a une date en C5 étant donné que j'ai créé un fichier test qui ne contient qu'une date en C5!

[fgiambelluco]

Re
Essaye avec

Code :

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

suite = format(Range("C5"),"yyyy-mm-dd")