Ouverture d'un fichier avec un nom variable

Version imprimable

10/09/2009, 12h05
setauh

Ouverture d'un fichier avec un nom variable
Bonjour,

Je voudrais importer des données d'une feuille d'un classeur "a" vers un feuille d'un classeur "b", bien sûr par une macro et automatisé.
La où ça se complique, c'est que le classeur "a" a un nom différent tous les mois.
ex: etat_a_mai09 le mois d'après etat_a_juin09.
Donc ce que je veux c'est qu'il prenne en référence dans la macro juste les premiers caractères :
"etat_a" avec * par exemple
du genre
Code:

1 2 3 Workbooks.Open Filename:= _ "C:\etat_a*.xls" Workbooks("essai").Sheets
Merci d'avance de votre aide

Bonjour,

Je ne crois pas que ce que vous vouliez faire soit possible. Il faut faire une fonction qui recherche les fichiers :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Function SearchFile(strDir As String, Optional strExt = "*.*") As String
'Retourne le nom des fichiers presents dans un dossier passe en parametre(strDir),
'en fonction de l'extension recherchée (strExt)
'La recherche ne se fait pas dans les sous répertoires
'Ex : filesToSearch = SearchFile("C:\","*.xls") -> on recherche toous les fichiers excel presents dans c:
'retourne un resultat de la forme fichier1;fichier2;....
 
On Error GoTo ErrSearchFile
 
Dim i As Integer
Dim file As String
 
    With Application.FileSearch
        .NewSearch
        .LookIn = strDir
        .FileName = strExt
 
            If .Execute > 0 Then
                For i = 1 To .FoundFiles.Count
                    file = FileName(.FoundFiles(i))
                    SearchFile = SearchFile & file & ";"
                Next i
                SearchFile = Left(SearchFile, Len(SearchFile) - 1)
            End If
 
    End With
 
Function FileName(strFullPath As String) As String
'créé pour faire les tests (fonction existante dans la fonc2002)
 
Dim result As Variant
Dim i As Integer
 
result = Split(strFullPath, "\")
FileName = result(UBound(result))
 
End Function
 
    Exit Function
 
ErrSearchFile:
    SearchFile = ""
    MsgBox err.Number & vbCrLf & vbCrLf & err.Description, vbCritical
 
End Function

C'est possible avec la commande DIR.

Edit :

Code:

1
2
3
4
5
6
Dim Fichier As String, Repertoire As String
Repertoire = "C:\"
Fichier = Dir(Repertoire & "etat_a*.xls")
If len(Fichier) > 0 then
 Workbooks.Open Filename:=Repertoire & Fichier
End If

Hello,

un exemple avec l'objet FileSystemObject

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim fso As Object
Dim fichier As Object
Set fso = CreateObject("Scripting.FileSystemObject")
 
    ' boucle sur les fichiers Excel répondant à un filtre sFilter 
    ' exemple : "etat_a*.xls"
    ' dans un répertoire sPath
    ' exemple : "c:"
    With fso.getfolder(sPath & "\")
        For Each fichier In .Files
            If fichier.Name Like sFilter Then
                ' met ton code par ici
                ' exemple
                Workbooks.Open fichier.Name
            End If
        Next fichier
    End With
 
Set fichier = Nothing
Set fso = Nothing

Bonjour tous,
Beh moi j'ai pas compris ça comme ça, je pense plutôt qu'il veux ouvrir un classeur avec un mois bien déterminer,...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub OuvrirFich()
Dim N As String
Dim M As Integer
Dim Mois, A As Integer
'Si ont veux ouvrir le classeur du mois en cour...
    Mois = Array("", "Janv", "Fév", "Mars", "Avril", "Mai", "Juin", "Juil", "Aoùt", "Sept", "Octob", "Nov", "Déc")
    A = Year(Now): M = Month(Now)
    N = "C:\etat_a" & Mois(M) & Right(CStr(A), 2) & ".xls"
'Si mois précédant mettre M-1 et vérifier qu'il n'est pas à zéro, sinon changer d'année.
    If Dir(N) = "" Then
        MsgBox "Le classeur du mois de " & Mois(M) & " n'existe pas"
        Exit Sub
    End If
    Workbooks.Open Filename:=N
End Sub

A+

Bonjour

Code:

1
2
3
4
5
6
7
8
9
 
Dim fichier As String 
fichier = "C:\etat_a" & Format$(Now, "mmmyy")
 If Dir(fichier) <> "" Then
  workbooks.Open fichier
 Else
  MsgBox ("fichier " & fichier & " inexistant")
  Exit Sub
 End If

si Format$(Now, "mmmyy") s'y prete
sinon Format$(Now, "mmmmyy") pour des noms de mois entiers