Discussion :

[dlight]

Bonjour.

Dans un répertoire sur le disque C j'ai plus de 1000 fichiers Excel identique portant le nom de mes clients. Est-il possible qu'un code vba de mon fichier "Master" ouvre chacun de ces 1000 fichiers un après l'autre et que des modifications soient faits dans les 1000 fichiers puis que les fichiers soient nommé avec le même nom en plus d'ajouter "-version 2".

Donc, si mon fichier porte le nom "mon nom", il deviendra "mon nom - version 2" après que le code aura effectué les corrections dans chacun des 1000 fichiers.

J'ai besoin d'aide pour la portion ouverture et fermeture des 1000 fichiers. Je crois bien que la réponse sera de faire une boucle mais comment faire pour choisir tous les fichiers, voilà l'endroit où je suis bloqué.

Merci à l'avance encore une fois !

[bosk1000]

bonjour
voici un post sur un sujet similaire
http://www.developpez.net/forums/d85...n-nom-fichier/
je cherchait a changer le numero de chaque ficchier evec les deux dernier chiffre de l'année
j'ai donc reussi a changé les 09 en 10 des 29 fichier d'un coup

voila a voir pour une partie de ce que tu demandes

[dlight]

Voici le bout de code qui a rendu possible les opérations sur plusieurs fichiers. Les liens proposés ainsi que les FAQ sur Excel de ce site m'ont beaucoup aider à réaliser ce que je voulais faire.

Voici mon bout de code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Sub BoucleFichiers()
Dim Chemin As String, Fichier As String
 
'Définit le répertoire contenant les fichiers
Chemin = "C:\Test\"
Chemindestination = "C:\Test2\"
'Boucle sur tous les fichiers xls du répertoire.
Fichier = Dir(Chemin & "*.xlsx")
'Utilisez la syntaxe suivante pour boucler sur tous les types de fichiers:
'Fichier = Dir(Chemin & "*.*")
 
Master = ThisWorkbook.Name 'permet de retourner au fichier initial
 
Do While Len(Fichier) > 0 'J'ouvre les fichier dans mon répertoire test
 
ChDir Chemin
Workbooks.Open Filename:=Fichier
Windows(Fichier).Activate
CeFichier = ActiveWorkbook.Name
 
Sheets("Feuil1").Select
Range("c5").Select
ActiveCell.FormulaR1C1 = "51156152" 'sera remplacer par la vrai commande
Windows(Master).Activate
[NomFichier] = CeFichier
Save = [Nas] & " - T776 - 2009.xlsx" 'Nouveau nom du fichier
Windows(Fichier).Activate
ChDir Chemindestination 'Destination du nouveau fichier
ActiveWorkbook.SaveAs Filename:=Save _
, FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Windows(Save).Activate
ActiveWorkbook.Close
 
'écrit le résultat dans la fenêtre d'exécution (Ctrl+G).
Debug.Print Chemin & Fichier
Fichier = Dir()
Loop
End Sub

Merci encore une fois pour l'aide...