bonjour tout le monde
j'ai un grave soucis
je vous explique ce qu'il a a faire :
le classeur dans lequel je travail s'appelle: "classeurvarpa&hist"
je voudrai allez dans un classeur dont la date de modification est plus proche de la date d'aujourd'hui ou bien qu'elle soit egale a la date d'aujourd'hui.en fait les classeurs sont ranger dans l'ordre croissant suivant les dates de modifications ,je veux donc aller dans celui qui a la date maximale
par le chemin:
[cpp]S:\PGB\DER\_Commun\MBO\RESULTAT ECO suivi quotidien\Synthèse\2010-6-21 Résultat économique.xls"[/cpp]
1)il se trouve que ce classeur est fermé(je veux bien faire une copie avec le classeur fermé).
une fois dans ce classeur je veux copier les cellules
[cpp]H32[/cpp] et
[cpp]D32[/cpp]
PUIS les coller respectivement dans mon classeur"classeurvarpa&hist" a la feuille 2 en a la derniere ligne vide respectivement a la colonne G et I
voici une premiere etape de mon code aller chercher le dernier classeur qui se trouve tout en bas dans le dossier synthese
voici le code:
[cpp]
Sub copi_cpr_mli()
Dim sRépertoire As String
Dim sFichier As String
Dim sTemp As String
sRépertoire = "S:\PGB\DER\_Commun\MBO\RESULTAT ECO suivi quotidien\Synthèse\"
sTemp = Dir(sRépertoire & "*.xls")
Do While sTemp <> ""
sFichier = sTemp
sTemp = Dir
Loop
MsgBox "Le dernier fichier : " & sFichier
End Sub[/cpp]
malheureusement il ne me selectionne pas le dernier classeur du dossier synthese
tout en signalant que le dossier synthese cotient un autre dossier qui se nomme "2010-04"(ce dossier ne m'interresse pas"
merci de votre aide
j'ai un grave soucis
je vous explique ce qu'il a a faire :
le classeur dans lequel je travail s'appelle: "classeurvarpa&hist"
je voudrai allez dans un classeur dont la date de modification est plus proche de la date d'aujourd'hui ou bien qu'elle soit egale a la date d'aujourd'hui.en fait les classeurs sont ranger dans l'ordre croissant suivant les dates de modifications ,je veux donc aller dans celui qui a la date maximale
par le chemin:
[cpp]S:\PGB\DER\_Commun\MBO\RESULTAT ECO suivi quotidien\Synthèse\2010-6-21 Résultat économique.xls"[/cpp]
1)il se trouve que ce classeur est fermé(je veux bien faire une copie avec le classeur fermé).
une fois dans ce classeur je veux copier les cellules
[cpp]H32[/cpp] et
[cpp]D32[/cpp]
PUIS les coller respectivement dans mon classeur"classeurvarpa&hist" a la feuille 2 en a la derniere ligne vide respectivement a la colonne G et I
voici une premiere etape de mon code aller chercher le dernier classeur qui se trouve tout en bas dans le dossier synthese
voici le code:
[cpp]
Sub copi_cpr_mli()
Dim sRépertoire As String
Dim sFichier As String
Dim sTemp As String
sRépertoire = "S:\PGB\DER\_Commun\MBO\RESULTAT ECO suivi quotidien\Synthèse\"
sTemp = Dir(sRépertoire & "*.xls")
Do While sTemp <> ""
sFichier = sTemp
sTemp = Dir
Loop
MsgBox "Le dernier fichier : " & sFichier
End Sub[/cpp]
malheureusement il ne me selectionne pas le dernier classeur du dossier synthese
tout en signalant que le dossier synthese cotient un autre dossier qui se nomme "2010-04"(ce dossier ne m'interresse pas"
merci de votre aide