Discussion :

[Nono Sto]

Chères amies, chers amis du forum

Je dois coder un algo du genre:

Code :

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

1
2
3
4
5
6
7
 
for i = 0 to nombre de workshbook
     ouvrir fichiers_parent
     traitement
     enregistrer sous nouveaux nom fichier_enfant_number_i
     fermer
next i

Comme je dois ouvrir enregistrer traiter renommer fermer, toujours le même fichier de base, je voulais savoir si il y avais une solution algorithmique qui utiliserais les fonctionnalité vba pour optimiser.

Cependant le traitement implique utilisation de filtre, suppressions de ligne et update de pivot table ce qui oblige à ouvrir le fichiers.

Merci

[Invité]

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
Sub Test()
For i = 0 To nombredeworkshbook
    Traitement OpenFichier(fichiers_parent), "C:\toto.xls"
Next i
End Sub
 
Function OpenFichier(F As String) As Workbook
    Set OpenFichier = Workbooks.Open(F)
End Function
Sub Traitement(Classeur As Workbook, FichierAs As String)
'Code
Set Classeur = SaveAs(Classeur, FichierAs)
End Sub
Function SaveAs(Classeur As Workbook, FichierAs As String)
Classeur.SaveAs FichierAs
Classeur.Close False
SaveAs = Nothing
End Function

[Nono Sto]

Merci beaucoup je vais tester et je fais un retour