Traitement automatique série de fichier [Forums - Espace Débutants] : myDearFriend! Excel Pages

Traitement automatique série de fichier		#1
vg00 Débutant XLPages Inscription: 14/01/2010 Messages: 10 Système d'exploitation: PC Version Excel utilisée: 2003,2007	Posté le : 19-01-2010 15h03 Bonjour, compte tenu des réponses très positives obtenues sur ce forum je mets un nouveau post je cherche à faire un code vba 1) choix du répertoire à traiter 2) traitement en automatique de tous les fichiers excel contenus dans le répertoire prendre valeur K8 sans les 3 derniers caractères prendre la valeur de L11 prendre la valeur de M12 prendre la valeur de M13 prendre la valeur de L14 prendre la valeur de N16 ces 6 données à mettre en ligne changement de ligne à chaque nouveau fichier éventuellement on peut mettre une barre de progression fonction du nombre de fichier traités par rapport au nombre de fichiers xls à traiter mais c'est accessoire choix pour enregistrer le fichier au final et sortie Merci d'avance Gilles

Re: Traitement automatique série de fichier		#2
vg00 Débutant XLPages Inscription: 14/01/2010 Messages: 10 Système d'exploitation: PC Version Excel utilisée: 2003,2007	Posté le : 20-01-2010 09h42 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

Re: Traitement automatique série de fichier		#3
michel_m Débutant XLPages Inscription: 05/07/2007 De Aubenas(07) Messages: 9 Système d'exploitation: PC Version Excel utilisée: 2000	Posté le : 20-01-2010 18h36 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 Amicalement Michel_M

Vous pouvez voir les sujets.

Vous ne pouvez pas débuter de nouveaux sujets.

Vous ne pouvez pas répondre aux contributions.

Vous ne pouvez pas éditer vos contributions.

Vous ne pouvez pas effacez vos contributions.

Vous ne pouvez pas ajouter de nouveaux sondages.

Vous ne pouvez pas voter en sondage.

Vous ne pouvez pas attacher des fichiers à vos contributions.

Vous ne pouvez pas poster sans approbation.

Qui consulte actuellement ce sujet ? 1 Utilisateur(s) anonymes