Généraliser une macro d'un workbook
Bonjour à tous,
J'ai dévelopé une macro permettant de copier des données entre différentes sheets. Je souhaiterais le généraliser à une multitude de Wokbooks.
Exemple de code:
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
| 'Loop for CO2 Factors
For w = 1 To 10000
If Worksheets("CO2 factors").Range("C" & w).Value = "" Then
Else
For x = 1 To 10000
If Worksheets("Sheet1").Range("D" & x).Value = Worksheets("CO2 factors").Range("C" & w).Value Then
If Worksheets("Sheet1").Range("B" & x).Value = "1/01/2009" Then Worksheets("Sheet1").Range("E" & x).Value = Worksheets("CO2 factors").Range("E" & w)
End If
Next x
x = 0
End If
Next w
End Sub |
Ce code me permet de
sur le 1er sheet:
- boucler une colonne pour repérer la valeur
- copier la valeur concernée de la colonne E
sur le 2eme sheet:
- boucler une colonne pour repérer la même valeur
- coller sur la colonne E la valeur concernée
----------------------------------------------------------
Ce que je souhaite:
- Faire la même chose mais que le sheet1 et le sheet 2 ne soient pas dans le même workbook.
La question est toute bête, quand je me relis, mais je ne trouve pas la solution à travers les différents tutos et forums. Ca doit être top bête pour y inclure ca ;)
Merci d'avance pour m'aider.
Bien à vous,
Vincent.
(PS): Existe t-il un moyen de créer un EXE qui lance cette procédure sans ouvir Excel?