Ouvrir le répertoire du mois précédent "aujourd'hui" Résolu/Fermé

Question

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 dernierDim DateCours As StringDateCours = 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
Configuration: Windows 7 / Firefox 26.0

f894009 · Answer

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

Mouftie · Answer

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

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

2 réponses

Discussions similaires