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

Résolu
Mouftie Messages postés 234 Statut Membre -  
Mouftie Messages postés 234 Statut Membre -
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

2 réponses

  1.
    f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    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
  2. Mouftie Messages postés 234 Statut Membre 17
     
    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