Titre du sujet : Re: Traitement automatique série de fichier
par michel_m le 20/01/2010 18:36:09
Bonjour,
Pour 1 fois que je viens sur le forum et que toutes les discussions ne sont pas marquées résolues!!!
macro rapide proposée (déclarations des variables à écrire):
Sub recup()
'initialisations
lig = 1 'ligne de départ
onglet = "feuil1"
chemin = "V:\VME\COTATIONS"
applications ScreenUpdating = False
'action avec fichiers sources restant fermés
ChDir chemin
fichier = Dir(chemin & "*.xls")
Do While fichier <> ""
Cells(lig, 1) = ExecuteExcel4Macro("'" & chemin & "\[" & fichier & "]" & onglet & "'!R8C11") 'R8C11<==> K8
Cells(lig, 2) = ExecuteExcel4Macro("'" & chemin & "\[" & fichier & "]" & onglet & "'!R11C12") 'Range("L11").Value
Cells(lig, 3) = ExecuteExcel4Macro("'" & chemin & "\[" & fichier & "]" & onglet & "'!R12C13") '.Range("M12").Value
Cells(lig, 4) = ExecuteExcel4Macro("'" & chemin & "\[" & fichier & "]" & onglet & "'!R13C13") 'M13
Cells(lig, 5) = ExecuteExcel4Macro("'" & chemin & "\[" & fichier & "]" & onglet & "'!R16C8") 'K16
Cells(lig, 6) = ExecuteExcel4Macro("'" & chemin & "\[" & fichier & "]" & onglet & "'!R16C14") 'N16
lig = lig + 1
fichier = Dir ' Fichier suivant
Loop
MsgBox "actualisation terminée"
End Sub
|
Didier FOURGEOT