Rapport de message :*
 

Re: Traitement automatique série de fichier

Titre du sujet : Re: Traitement automatique série de fichier
par vg00 le 20/01/2010 09:42:10

Bonjour,
J'ai essayé de mettre ceci en place mais ça ne marche pas j'ai essayé de mettre ceci dans thisworkbook et dans un module mais ça ne marche pas mieux voici le code que j'avais mis
Sub recup()
Range("A1").Select 'sélectionner la cellule de début
Chemin = "V:\VME\COTATIONS"
fichier = Dir(Chemin & "*.xls")
Do While fichier <> ""
Workbooks.Open Filename:=Chemin & fichier
Set feuille = ActiveWorkbook.Sheets("Feuil1")

ThisWorkbook.Activate
ActiveCell.Value = feuille.Range("K8").Value
ActiveCell.Offset(0, 1).Value = feuille.Range("L11").Value
ActiveCell.Offset(0, 2).Value = feuille.Range("M12").Value
ActiveCell.Offset(0, 3).Value = feuille.Range("M13").Value
ActiveCell.Offset(0, 4).Value = feuille.Range("K16").Value
ActiveCell.Offset(0, 5).Value = feuille.Range("N16").Value

Windows(fichier).Close savechanges:=False
ThisWorkbook.Activate
Range("A65536").End(xlUp).Offset(1, 0).Select
fichier = Dir ' Fichier suivant
Loop
End Sub