Reconnaissance de plusieurs fichiers existants

[gwendy46]

Bonjour,🙂

Je galère depuis un moment sur une macro. En fait, j'aimerais pouvoir ouvrir des fichiers automatiquement, tout en évitant de préciser le nom de chaque fichier. Pour être plus précis chaque fichier est généré tous les mois sous la forme de "Mois Année Analyse.xls" dans un même répertoire.

J'ai donc créer en gros ceci (avec les variables déclarés):

Mois(0) = "janv"
Mois(1) = "fev"
Mois(2) = "mars"
Mois(3) = "avril"
Mois(4) = "mai"
Mois(5) = "juin"
Mois(6) = "juillet"
Mois(7) = "aout"
Mois(8) = "septembre"
Mois(9) = "octobre"
Mois(10) = "novembre"
Mois(11) = "décembre"

For i = 0 To 11
traitement (i)
Next i

Sub traitement(m As Integer)
annee = Format(Now, "yy")

If Dir$("C:\Users\Martin\Desktop\travaux\") <> "" 😕
Windows(Mois(m) & " " & annee & " Analyse.xls").Activate
...
Mais étant donné que les mois suivants n'ont pas été encore créer ils m'affichent une erreur me spécifiant que des fichiers n'existent pas.

Si quelqu'un a une solution se serait super.

Merci beaucoup

 

[kjin]

Re : Reconnaissance de plusieurs fichiers existants

Bonjour,
"Ouvrir" veut-il dire qu'ils ne le sont pas déjà ?
A+
kjin

 

[gwendy46]

Re : Reconnaissance de plusieurs fichiers existants

Salut,

En fait je voudrais ouvrir les fichiers existants. Donc par exemple, aujourd'hui je voudrais qu'il ouvre les fichiers de janvier à juillet (puisque ceux de aout sept, oct,....n'existent pas encore). Mais que le mois prochain il m'ouvre les fichiers de janvier à aout sans me mettre de message d'erreur.

En espérant t'avoir éclairci

 

[kjin]

Re : Reconnaissance de plusieurs fichiers existants

Re,
Ma question parait c.. mais simplement je ne vois nul part dans ta macro que tu ouvres un fichier (Open), mais juste l'activation d'une fenêtre (Windows Activate).
Faudrait peut-être commencer par là non !
Mais sans la macro complète...
A+
kjin

 

[gwendy46]

Re : Reconnaissance de plusieurs fichiers existants

Ben en fait justement,🙁

j'aimerais éviter de préciser tous les fichiers qu'il va ouvrir. Mais plutôt d'ouvrir automatiquement tous les fichiers placés dans un répertoire.

J'avais mis ca:
If Dir$("C:\Users\Martin\Desktop\travaux\") <> "" then ...

parce que sinon je suis obligé de dire:
If Dir$("C:\Users\Martin\Desktop\travaux\janv 09 Analyse") <> "" then ...
If Dir$("C:\Users\Martin\Desktop\travaux\fev 09 Analyse") <> "" then ...
If Dir$("C:\Users\Martin\Desktop\travaux\mars09 Analyse") <> "" then ...
...

Mais pour l'instant à cause de la boucle de 0 à 11 (qui spécifie chaque mois), si des fichiers n'existent pas il m'affiche une erreur.

En tout cas, merci de t'interesser à mon problème🙂

 

[kjin]

Re : Reconnaissance de plusieurs fichiers existants

Re,

Sub Traitement()
Dim Mois(12) As String, Annee As String, Rep As String, i As Byte, Fichier As String
Mois(0) = "janv"
Mois(1) = "fev"
Mois(2) = "mars"
Mois(3) = "avril"
Mois(4) = "mai"
Mois(5) = "juin"
Mois(6) = "juillet"
Mois(7) = "aout"
Mois(8) = "septembre"
Mois(9) = "octobre"
Mois(10) = "novembre"
Mois(11) = "décembre"
Annee = Format(Now, "yy")
Rep = "C:\Users\Martin\Desktop\travaux\"
For i = 0 To 11
    Fichier = Mois(i) & " " & Annee & " Analyse.xls"
    If Dir(Rep & Fichier) <> "" Then
    Workbooks.Open Rep & Fichier
    End If
Next i

End Sub

A+
kjin

 

[gwendy46]

Re : Reconnaissance de plusieurs fichiers existants

Salut Kjin,

j'ai testé ton code mais quand je compile il me surligne la ligne:
Workbooks.Open Fichier
avec le message d'erreur: janv 09...xls est introuvable. Vérifier l'orthographe du nom du classeur et la validité de l'emplacement.

Quand je passe la souris dessus il m'indique pourtant bien le nom du fichier dans une info-bulle. Et l'emplacement du fichier est pourtant correcte.

A priori je comprend pas trop pourquoi il m'indique ce message d'erreur!!😡

Au fait j'ai oublié de précisé je travaille sur Excel 2003.

Merci pour ta patience

 

[kjin]

Re : Reconnaissance de plusieurs fichiers existants

Re,
Bah je dirais que 2003 n'a rien à avoir...mais l'apéro ! 😱
J'ai réédité le code du message précédent
Désolé
A+
kjin

 

[gwendy46]

Re : Reconnaissance de plusieurs fichiers existants

😀 Super ca marche

LA 1° solution ne marchait pas mais celle la fonctionne parfaitement.

Bravo

Merci beaucoup Kjin 🙂