[vba-e] Rendre Une Feuille Active

**Kevin_18** · 06/04/2007, 08h17

Voici mon problème :
J'ai une image dans un fichier Excel (fichier 1).
Jai un deuxième fichier avec un controle image (fichier2).
J'aimerais automatiquement (avec du code VBA car c'est une action réitéré plein de fois <=> les fichiers changent) coller l'image du fichier 1 dans le controle "image" du fichier2!
J'ai créé du code qui fonctionne bien. Seulement, il ne trouve pas le controle "image" du fichier2 car il cherche sur le fichier 1 : le fichier actif (car ouvert nécessairement le premier).
Comment rendre la feuille 1 du fichier2 active?

**ouskel'n'or** · 06/04/2007, 08h23

Code :

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

Wokbooks("Fichier2.xls).activate

**Kevin_18** · 06/04/2007, 08h42

Ca ne marche pas car mon nom de fichier c'est un paramètre f2 :

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
 
J'ouvre mon fichier ou il y a le controle image
app2.Workbooks.Open "G:\PROJET\Fertiliseurs\Modele.xls"
Set classeur2 = app2.Workbooks.Item(1)
Set f2 = classeur2.Worksheets.Item(1)
 
J'ouvre le fichier ou il y a l'image
Set app1 = CreateObject("excel.application")
app1.Workbooks.Open "G:\PROJET\" & Nom & ".xls"
Set classeur1 = app1.Workbooks.Item(1)
Set f1 = classeur1.Worksheets.Item(2)
Je prend l'image
Set S = f1.Shapes.Item("Image 24")
 
J'active la feuille ou il y a le controle image NE MARCHE PAS 
f2.Activate