Discussion :

[vincenzos]

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?

[pgz]

Bonjour.

Si tu as 2 classeurs différents, tu dois instancier 2 variables de type Excel.Workbook : par exemple oWbk1 et oWbk2.

Ensuite, à chaque ligne où tu appelle une feuille en passant par la collection de feuilles, tu précises le classeur. Par exemple

Code :

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

Worksheets("CO2 factors").Range("C" & w).Value

devient

Code :

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

oWbk1.Worksheets("CO2 factors").Range("C" & w).Value

Pour le PS : C'est possible, mais pas en VBA.

Cordialement,

PGZ

[vincenzos]

Et bien c'est parfait et rapide, merci.

[patricktoulon]

bonjour

pour le ps

tu pourrais par exemple faire un bath qui ouvre un classeur dans le quel tu a ta macro celle ci ce declencherais a l'open

cette macro copirait les donnés du workbook1sheets1 dans le workbook2sheets2


ca n'est qu'une idée

au plaisir