[XL-2010] Exécuter Macro d'un classeur déjà ouvert [Résolu]

[bastou93]

Bonjour a tous,

Je souhaiterai ouvrir le classeur et lancer une macro TOTO si le classeur n'est pas ouvert (OK pour ce point).
Et uniquement lancer la macro TOTO si le classeur est déjà ouvert (NON OK).

Voila ce que j'ai actuellement:

Code :

1
2
3
4
5
6
7
If WorkbookOpen("Tableau de suivi.xlsm") Then
'Si oui on lance la fonction InsertRow
    Workbooks("Tableau de suivi.xlsm").Application.Run "TOTO"
'Si non on l'ouvre si le fichier cible est choisi
Else
'TRAITMENT
End If

Code :

1
2
3
4
5
6
7
8
9
10
11
Private Function WorkbookOpen(Name As String) As Boolean
 
WorkbookOpen = False
For Each work In Workbooks
    If work.Name = Name Then
        WorkbookOpen = True
        Exit For
    End If
Next work
 
End Function

La fonction WorkbookOpen ne voit pas mon classeur ouvert si je l'ai lancer via la macro suivante mais vois le classeur si je l'ouvre manuellement:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Set AppExcel = New Excel.Application
 
'test si le classeur est déjà ouvert
If WorkbookOpen("Tableau de suivi.xlsm") Then
'Si oui on lance la fonction InsertRow
    Workbooks("Tableau de suivi.xlsm").Application.Run "TOTO"
'Si non on l'ouvre si le fichier cible est choisi
Else
    If FileExists(Target) Then
        AppExcel.Visible = True
        AppExcel.Workbooks.Open Target
        AppExcel.Run "InsertRow", collectRow
        'Set AppExcel = Nothing
    End If
End If

Merci a tous,

Bastien

[bbil]

Bonsoir,
pourquoi utiliser une 2° instance d'excel ?

[bastou93]

Bonsoir,

Bonsoir,
pourquoi utiliser une 2° instance d'excel ?

Tu parles pour ouvrir le nouveau classeur? Comment je pourrais déclarer cela?

Cdt

[bbil]

En restant dans la même instance d'excel :

Code :

1
2
3
4
5
 
Dim Wk As workbook
(...)
Set Wk = WorkbookOpen("Tableau de suivi.xlsm")
wk.Application.Run "TOTO"

[bastou93]

Oui cela parrait en effet plus logique...
De cette manière si mon classeur est déjà ouvert, il le réouvre? ou l'active simplement?

De plus j'ai une erreur qui je pense est basique mais je ne trouve pas sur les FAQ

Il est possible qu'elle ne soit pas disponible dans ce classeur ou que toutes les macros soient désactivées.

à la ligne

Code :

Wk.Application.Run "TOTO"

Cependant le classeur s'ouvre bien...

Merci encore

[bbil]

Essai :

Code :

wk.application.Run"'Tableau de suivi.xlsm!TOTO"

mais pourquoi mettre tes macros dans différents classeurs ? séparer les données des macros c'est bien ...

mais séparer les macros dans plusieurs fichiers Excel différents il faut avoir une bonne raison ...

[bastou93]

Bonjour,

Merci pour ta réponse, je vais essayer ce code, par contre j'ai un parametre je peux le mettre comment?

Code :

1
2
3
int i;
i=3
wk.application.Run"'Tableau de suivi.xlsm!TOTO(i)"

par exemple?

En faite ma macro est propre au classeur de suivi car je l'appelle de différent classeur et meme en interne, cela évite de retrouver la macro partout...

Bastien

[bbil]

Envoyé par bastou93

(...)

Merci pour ta réponse, je vais essayer ce code, par contre j'ai un parametre je peux le mettre comment?

Code :

par exemple?
(...)

tu as essayé ? sinon

Code :

1
2
 
wk.application.Run"'Tableau de suivi.xlsm!TOTO",i

[/CODE]

[bastou93]

Bonjour,

Merci pour la réponse, je faisais un Run "toto", i mais je pensais qu'en intégrant TOTO il faudrait aussi intégrer la variable, ce qui me paraissait mal engager dans un string...

Merci pour ton aide je vais finir avec...

Bonne continuation