Discussion :

[vivi4561]

Bonjour,
J'ai un petit problème que je n'arrive pas à résoudre pour le travail.
Je souhaiterai créer une marco sur excel capable de copier toutes les infos d'un autre fichier excel mais en fonction de la date.
Je m'explique.Tous les jours un nouveau fichier excel se crée sur le réseau intitulé de la façon suivante :
toto20090810.xls

Vous aurez compris que 20090810 correspond au 10 aout 2009.

J'aimerai donc créer une macro qui en fonction de la date que je rentre (ex: 7 aout 2009) aille m'ouvrir le fichier toto20090807 et me copie toutes ces données dans ma page excel.

En vous remerciant.

[drakkar_agfa]

Bonjour,

en fait, ce n'est pas très compliqué.

Tu peux utiliser pour l'ouverture :

Code :

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

Workbooks.Open Filename:="C:\Choses.xls"

Il est possible de donner le nom par variable :

Code :

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

1
2
3
4
5
    Dim toto As String
 
    toto = "Choses.xls"
 
    Workbooks.Open Filename:="C:\" & toto

Alors tu pourras faire les modification de string avec la date pour obtenir le format aaaammjj et concaténé avec ".xls" et voici pour la variable toto!

Et à la fin de ton code, pour fermer le fichier ouvert

Code :

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

Workbooks("Choses.xls").Close

ou dans ton cas

Code :

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

Workbooks(toto).Close

Et voila, tu pourras avancer beaucoup avec ces quelques lignes.

P.S. Pout manipuler la date, tu peux regarder Format ou sinon un switch case pour le mois.
Tu pourrais aussi utiliser un USF avec un txtbox pour le jour et l'année et une liste pour le mois, ensuite tu prends la position sélectionnée pour avoir le numéro de mois directement!

[KenDev]

Bonjour,

voilà déjà pour l'ouverture:

Code :

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

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
Sub ToTo()
'ouvre totoYYYYMMDD.xls situé dans C:\Files
Dim vM As Integer
Dim vY As Integer
Dim sM As String
Dim vD As Integer
Dim sD As String
Dim vXlNm As String
Dim x As Date
    x = InputBox("Entrez une date", , Date)
    vM = Month(x)
    vD = Day(x)
    vY = Year(x)
'si le jour ou le mois n'ont qu'un digit
    If vD < 10 Then
        sD = "0" & vD
    Else
        sD = vD
    End If
    If vM < 10 Then
        sM = "0" & vM
    Else
        sM = vM
    End If
    vXlNm = "toto" & vY & sM & sD & ".xls"
    Workbooks.Open ("C:\Files\" & vXlNm)
End Sub

Y'a surement plus élégant.. De plus l'utilisation des dates peut-être un peu compliqué avec excel selon la configuration.

[vivi4561]

Re,
Merci pour toutes ces infos.
J'ai testé les 2 méthodes et j'en ai fait un mix.
J'aurai aimé savoir avec ta méthode KenDev, une fenêtre pop-up s'affiche.

Sais-tu comment faire lorsqu'on rentre une date et que le fichier n'existe pas il s'affiche un message pop-up du genre "Veuillez choisir une autre date" et ne pas afficher un message de problème d'exécution du compilateur VBA ?

Et de meme lorsqu'on souhaite fermer la fenêtre pop-up demandant la date il la quitte "proprement" sans afficher un problème d'exécution ?

Cdlt.

[KenDev]

Bonjour,

J'ai rajouté des commentaires aux lignes ajoutées ou modifiées. Il y a distinction entre une mauvaise entrée et un fichier absent

Code :

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

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
Sub ToTo()
'ouvre totoYYYYMMDD.xls situé dans C:\Files
Dim vM As Integer
Dim vY As Integer
Dim sM As String
Dim vD As Integer
Dim sD As String
Dim vXlNm As String
Dim x               'modifié
Dim Tst As Boolean
    On Error GoTo ErrTrp 'au cas ou il y ai une erreur
Line1:
    x = InputBox("Entrez une date", , Date)
    If x = "" Then Exit Sub 'si on clique sur annuler sortir
    Tst = IsDate(x) 'la valeur entrée est-elle bien une date?
    If Tst = False Then GoTo Line1 'si non retour au début
    vM = Month(x)
    vD = Day(x)
    vY = Year(x)
'si le jour ou le mois n'ont qu'un digit
    If vD < 10 Then
        sD = "0" & vD
    Else
        sD = vD
    End If
    If vM < 10 Then
        sM = "0" & vM
    Else
        sM = vM
    End If
    vXlNm = "toto" & vY & sM & sD & ".xls"
    Workbooks.Open ("C:\Files\" & vXlNm)
    Exit Sub 'pour éviter d'aller dans la gestion des erreurs si tout va bien
ErrTrp:
    Select Case Err.Number
        Case 1004 'fichier non trouvé
            MsgBox ("Fichier non trouvé. Fin de la Macro")
            Exit Sub
        Case Else
            vEm = "erreur n°: = " & Err.Number & vbCr
            vEm = vEm & Err.Description & vbCr & vbCr
            MsgBox (vEm)
    End Select
End Sub

[kiki29]

Salut, dommage car le DTPicker t'évite tous ces problemes de saisie
et moyennant l'adaptation du chemin par défaut à celui de ton dossier
ainsi que

Code :

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

1
2
3
4
        If .SelectedItems.Count > 0 Then
            Unload Me
            Workbooks.Open Filename:=.SelectedItems(1)
        End If

Si le fichier exite il apparaitra dans la boite de dialogue sinon rien

[KenDev]

Salut, dommage car le DTPicker t'évite tous ces problemes de saisie

Bonjour, qu'elle est l'utilité de DTPicker au delà de ce cas précis? Pour Vivi peut-être est ce embêtant d'ajouter un complément au travail. J'aurais peut-être du préciser que je ne suis pas un Kador, j'apprends au fur et à mesure de mes besoins.

[noelama]

C'est peut être hors sujet, mais avez vous pensez à ouvrir une fenêtre pour choisir le fichier a traiter

Code :

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

1
2
Dim nom As Variant
nom = Application.GetOpenFilename()

[vivi4561]

C'est parfait.
Je suis en train de l'adapter :
Car par défaut je souhaite que le pop-up affiche la date de la veille.
D'où

x = InputBox("Entrez une date", , Date-1)

Mais j'aimerai que si nous sommes Lundi il m'affiche non pas la date de dimanche mais de vendredi.Soit Date-3.
Peux-on faire une condition en if qui regarde le jour de la semaine et effectue le bon calcul dans la parenthèse ?

Cdlt

[noelama]

il te faudra faire un boucle pour trouver si le jour précédent est durant le week end.

Pour savoir si une date est le week end tu peux utiliser

Code :

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

If DatePart("w", Dt, vbMonday) > 6 )

et si c'est le cas alors tu reviens a trois jours de moins...

Code :

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

DateSerial(year(dt), month(dt), day(dt) -3)

[KenDev]

J'ai rajouté dans les déclarations

Code :

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

1
2
Dim y As integer
Dim z As Date

puis, avant la ligne1

Code :

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

1
2
3
z = Date
    y = Weekday(Date) 'quel jour de la semaine somme nous?
    If y = 2 Then z = z - 3 'si c'est lundi alors z est la date de vendredi

enfin j'ai modifié

Code :

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

x = InputBox("Entrez une date", , z)

Je ne m'étais jamais servi de la fonction weekday, merci!