Conception optimal d'un code VBA

Version imprimable

21/10/2013, 05h14
Nono Sto

Conception optimal d'un code VBA
Chères amies, chers amis du forum

Je dois coder un algo du genre:
Code:

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

Bonjour, regarde ça

Code:

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

23/10/2013, 09h03
Nono Sto

Merci beaucoup je vais tester et je fais un retour