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 : 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
'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?