copier 'dun classeur vers un autre

Question

bonjour  
j'ai envi de faire un code 
avec l'enregisteur de macro j'ai obtenu ceci: 

Sub Macro9() 
' 
' Macro9 Macro 
' 
' Touche de raccourci du clavier: Ctrl+y 
' 
    Workbooks.Open Filename:= _ 
        "S:\PGB\DER\_Commun\MBO\RESULTAT ECO  suivi quotidien\Synthèse\2010-6-21 Résultat économique.xls" 
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast 
    Sheets("Synthèse").Select 
    ActiveWindow.SmallScroll Down:=3 
    Range("D32").Select 
    Selection.Copy 
    Windows("classeurvarpa&hist.xls").Activate 
    Range("A1").Select 
    ActiveSheet.Paste 
    Windows("classeurvarpa&hist.xls").Activate 
    Range("H32").Select 
    Application.CutCopyMode = False 
    Selection.Copy 
    Application.WindowState = xlMinimized 
    Windows("classeurvarpa&hist.xls").Activate 
    Range("B1").Select 
    ActiveSheet.Paste 
    Windows("classeurvarpa&hist.xls").Activate 
    ActiveWindow.Close 
End Sub 
 


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: 
"S:\PGB\DER\_Commun\MBO\RESULTAT ECO  suivi quotidien\Synthèse\2010-6-21 Résultat économique.xls"

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 [code=vb]H32/code et[code=vb] D32/code 
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 

merci de votre aide  



Configuration: Windows Vista / Internet Explorer 8.0

dianbobo · Answer

bonjour voila ce que j'ai comme code mais il ne me cherche pas le fichier le plus recent dans le dossier  synthese.alors que c'est ce que je veux quelqu'un peu til m'aider 
merci

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
        Debug.Print sFichier  ' ligne à ajouter
        sTemp = Dir
    Loop
    MsgBox "Le dernier fichier : " & sFichier
End Sub

Copier 'dun classeur vers un autre

1 réponse

Discussions similaires

Newsletters