Ouvrir le répertoire du mois précédent "aujourd'hui"

Résolu
Mouftie Messages postés 215 Date d'inscription   Statut Membre Dernière intervention   -  
Mouftie Messages postés 215 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
nous sommes aujourd'hui le 22/01/2014, je voudrais ouvrir en VBA le répertoire de décembre : 122013.
J'ai écrit : 
Sub OuvrirFich()
'ouvre le fichier du mois : Test.xlsx
'Ouvrir une boite pour choisir le fichier, du mois dernier
Dim DateCours As String
DateCours = InputBox("Préciser le mois à traiter, " & Chr(10) _
            & "Taper : MMAAAA" & Chr(10) & "MERCI", _
            "Récupération des données du mois", Month(Date) - 1 & Format(Date, "yyyy"))
'    Range("A1") = DateCours
'Range("A1").NumberFormat = "mm/yy"
'Ouverture du fichier
    Workbooks.Open Filename:= _
        "G:\Requêtes DSI\" & DateCours & "\Test.xlsx"
End Sub
Ceci fonctionnait bien, jusqu'au changement d'année ; la date de dialogue me prose 022014 au lieu de 122013...
Est-ce que quelqu'un peut m'aider à corriger mon code.
D'avance merci
A voir également:

2 réponses

Réponse 1 / 2
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour, 

Sub OuvrirFich()
    'ouvre le fichier du mois : Test.xlsx
    'Ouvrir une boite pour choisir le fichier, du mois dernier
    Dim DateCours As String

    If Month(Date) = 1 Then
        mois = 12
        annee = Year(Date) - 1
    Else
        mois = Month(Date) - 1
        annee = Year(Date)
    End If

    DateCours = InputBox("Préciser le mois à traiter, " & Chr(10) _
            & "Taper : MMAAAA" & Chr(10) & "MERCI", _
            "Récupération des données du mois", mois & annee)
    '    Range("A1") = DateCours
    'Range("A1").NumberFormat = "mm/yy"
    'Ouverture du fichier
    Workbooks.Open Filename:= _
        "G:\Requêtes DSI\" & DateCours & "\Test.xlsx"
End Sub
1
Réponse 2 / 2
Mouftie Messages postés 215 Date d'inscription   Statut Membre Dernière intervention   16
 
Bonjour f894009,
Merci beaucoup, cela fonctionne parfaitement et devrait fonctionner toute l'année.
Je note en résolu

NB: pour les déclarations, j'ai mis
Dim DateCours As String, mois As String, annee As String

Encore merci
0