Discussion :

[poseidonsr]

Bonjour,

Je suis en train de faire un petit programme et j'ai un souci avec l'utilisation de Run. J'ai 2 classeurs : ClasseurA et ClasseurB. Depuis ClasseurA, j'appelle la procédure de cette manière :

Code :

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

1
2
 
Application.Run Workbooks(ClasseurB.Name) & "!EraseOldBook", ClasseurA.Path, ClasseurA.Name

Le code dans le ClasseurB est le suivant:

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
 
Public Sub EraseOldBook(ByRef path As String, ByRef name As String)
 
    Dim fullPath As String: fullPath = path & Application.PathSeparator & name
 
    Workbooks(name).Close true
 
    If TestIfFileExist(fullPath) Then ' Petite fonction qui fait : len(dir(fullPath)) > 0
 
        'Kill fullPath
 
    End If
 
    MsgBox "fin"
 
End Sub

Le but de ma manoeuvre est de supprimer ClasseurA depuis ClasseurB. Le MsgBox "fin" est là uniquement pour les tests.

Mon problème est qu'a partir du moment où j'ai appellé Workbooks(name).Close, l'exécution du code s'arrête et MsgBox "fin" n'apparait jamais alors que mon ClasseurB reste ouvert. Etant donné que je suis dans ClasseurB je ne comprends pas pourquoi l'exécution du code s'arrête après la fermeture de ClasseurA. Je dois préciser que le ClasseurA est une copie du ClasseurB dont j'ai au préalable fait une sauvagarde avec Thisworkbook.SaveAs (ça a peut-être son importance).

Quelqu'un pourrait m'éclairer svp ?

Je vous remercie

Romain

[Igloobel]

Bonjour,

j'ai peur de comprendre je te cite

Bonjour,

Je suis en train de faire un petit programme et j'ai un souci avec l'utilisation de Run. J'ai 2 classeurs : ClasseurA et ClasseurB. Depuis ClasseurA, j'appelle la procédure de cette manière :

Code :

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

1
2
 
Application.Run Workbooks(ClasseurB.Name) & "!EraseOldBook", ClasseurA.Path, ClasseurA.Name

Le code dans le ClasseurB est le suivant:

Code :

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

1
2
3
4
5
6
7
 
Public Sub EraseOldBook(ByRef path As String, ByRef name As String)
 
...
    MsgBox "fin"
 
End Sub

Le but de ma manoeuvre est de supprimer ClasseurA depuis ClasseurB. Le MsgBox "fin" est là uniquement pour les tests.

Mon problème est qu'a partir du moment où j'ai appellé Workbooks(name).Close, l'exécution du code s'arrête et MsgBox "fin" n'apparait jamais alors que mon ClasseurB reste ouvert. Etant donné que je suis dans ClasseurB je ne comprends pas pourquoi l'exécution du code s'arrête après la fermeture de ClasseurA. Je dois préciser que le ClasseurA est une copie du ClasseurB dont j'ai au préalable fait une sauvagarde avec Thisworkbook.SaveAs (ça a peut-être son importance).

J'ai l'impression que tu veux t'autodétruire et ça tu ne peux pas le faire, c'est comme si tu sciais la branche sur laquelle tu es assis !!!!!

La seule chose possible c'est en étant dans le classeur B, classeur A fermé, tu supprimes le classeur A donc tu oublies ton "Application.Run" qui est dans ton cas source de problème

[poseidonsr]

Salut et merci de ta réponse.

Donc malgré que la procédure du ClasseurB ait été lancée, au final c'est quand même le ClasseurA qui en a le contrôle ? Je vais essayer de trouver une autre solution.

Romain

[Igloobel]

Bonjour,

Oui tu es dans le classeur A que tu veux supprimer c'est là qu'est le problème même si la macro vient d'un autre classeur

C'est trop dangereux Comme me disait ma prof préférée de programmation : " Dans le meilleur des cas ça plante ... Sinon ... C'est l'aventure !"

Parce que sur un ordi on a ce que l'on appelle les piles informatiques le fait de auto supprimer va mettre le souc aux niveaux des piles (l'équivalent d'arrêter l'ordi alors qu'il fonctionne)


Pour plus d'info je te conseille d'aller jeter un oeil sur cette page

https://fr.wikipedia.org/wiki/Pile_(informatique)

[Philippe Tulliez]

Bonjour,

Comme me disait ma prof préférée de programmation : " Dans le meilleur des cas ça plante ... Sinon ... C'est l'aventure !"

J'adore.
Si l'occasion se présente je la replacerai lors de l'une de mes formations VBA

[Igloobel]

Bonjour,

J'adore.
Si l'occasion se présente je la replacerai lors de l'une de mes formations VBA

Pas de problème Philippe. J'avais à cette époque une prof géniale et dans les années début 90 j'avais une vrai analyste programmeuse qui avait quitté le monde du développement pour celui de la formation BAC et BTS. Elle nous avait dit que c'était un choix de vie et nous petits imbeciles de l'époque, on avait du mal à comprendre. Mais aujourd'hui je la comprends parfaitement.

Comme tu vois ce n'est pas d'aujourd'hui que je baigne dans l'informatique !

Je te souhaite une excellente journée

A bientôt