Bonjour,
j'ai un fichier de référence avec une trentaine de formules à appliquer à un ensemble de fichier. Je sais comment appliquer une macro à un ensemble de fichiers de la manière suivante :
Sub TEST()
Dim Fich As String
Const chemin = "C:\Documents and Settings\XX\Bureau\TEST MACRO MULTIPLE\A APPLIQUER\"
Fich = Dir(chemin & "*.xls")
Do While Fich <> ""
Workbooks.Open chemin & Fich
Call APPLI ----- la macro que je souhaite faire --------
Workbooks(Fich).Close True 'ou true si tu enregistres
Fich = Dir
Loop
End Sub
Mais comment créer cette macro APPLI qui me permettrait de ne pas avoir à recopier manuellement toute les formules des trente cellules.
j'avais l'idée d'appliquer : range ("[feuille1]feuill1!A1).Copy Range ("[......liste des fichiers] là je bloque sérieux !!
en fait je voudrais copier les cellules A1 juqu'à A30 par exemple à certains endroit d'un autre fichier de structure identique (EX: copier la cellule A1 du fichier 1 sur la cellule B3 des fichiers 2 à 200)
En espérant avoir été clair et surtout que quelqu'un puisse m'apporter de l'aide !
j'ai un fichier de référence avec une trentaine de formules à appliquer à un ensemble de fichier. Je sais comment appliquer une macro à un ensemble de fichiers de la manière suivante :
Sub TEST()
Dim Fich As String
Const chemin = "C:\Documents and Settings\XX\Bureau\TEST MACRO MULTIPLE\A APPLIQUER\"
Fich = Dir(chemin & "*.xls")
Do While Fich <> ""
Workbooks.Open chemin & Fich
Call APPLI ----- la macro que je souhaite faire --------
Workbooks(Fich).Close True 'ou true si tu enregistres
Fich = Dir
Loop
End Sub
Mais comment créer cette macro APPLI qui me permettrait de ne pas avoir à recopier manuellement toute les formules des trente cellules.
j'avais l'idée d'appliquer : range ("[feuille1]feuill1!A1).Copy Range ("[......liste des fichiers] là je bloque sérieux !!
en fait je voudrais copier les cellules A1 juqu'à A30 par exemple à certains endroit d'un autre fichier de structure identique (EX: copier la cellule A1 du fichier 1 sur la cellule B3 des fichiers 2 à 200)
En espérant avoir été clair et surtout que quelqu'un puisse m'apporter de l'aide !