Discussion :

[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 :

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

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 :

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

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 :

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

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

[SfJ5Rpw8]

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

[SfJ5Rpw8]

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

Code :

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

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 :

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

Wk.Application.Run "TOTO"

Cependant le classeur s'ouvre bien...

Merci encore

[SfJ5Rpw8]

Essai :

Code :

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

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 ...