[PPT-2003] Macro complèmentaire sur un dossier unique [Résolu]

[Neoxaro]

Bonjour,

Voila j'ai :

Une macro complementaire appelé compt
et plusieurs présentations avec des noms différents.

Dans chaque préssentation il y a une macro bartrue qui permet de modifier les barre d'outil comme je le veux ( je supprime certains boutons)

Ma macro complementaire contient une macro auto_open qui permet de lancer la macro bartrue au lancement du ma Présentation avec la procédure suivante :

Code :

1
2
3
4
5
auto_open ()
 
application.run("Présentation1!bartrue")
 
end sub

Cette procédure marche parfaitement.

Sauf que problème :

- 1er : Cette procédure marche uniquement avec Présentation1 alors que je voudrais que cela marche avec toutes mes présentations du dossier.

- 2e : Une fois que j'ai chargé ma complementaire sur ma présentation1 elle reste chargée pour tous les autres powerpoint même ceux que je ne veux pas.

Je voudrais que la complèmentaire soit chargée au démarrage uniquement pour les présentations présentent dans le même dossier que celui de la complémentaire sachant que je ne sais pas dans quel dossier la complèmentaire va être mise mais elle sera mise obligatoirement dans le même que mes présentations.

Cordialement

[Philippe JOCHMANS]

Bonjour

Une macro complémentaire est valable pour l'application, par contre tu peut mettre un code dans l'Auto_Open pour que le reste ne soit opérationnel que dans le répertoire que tu veux.

Pour la première essayes avec ActivePresentation, mais à ne pas mettre entre guillement.

Je n'ai pas testé

Philippe

[Neoxaro]

Bonjour,

Après plusieurs test, impossible de trouvé,

J'ai essayé comme tu m'as dis :

Code :

application.run (activepresentation!bartrue)

Mais cela me créé une erreur : Propriété ou methode non gérée


Autre test :

Code :

1
2
3
Dim Nom As String
Nom = ActivePresentation.Name
Application.Run ("Nom!bartrue")

Erreur : soit "Propriété ou méthode non gérée" soit il me met aucune erreur mais ne me fait rien non plus soit il me met une erreur "sub or function no defined" car dans ce cas la je pense qu'il cherche une fonction appelé Nom au lieux de chercher ce qu'il y a à l'intèrieur.

Code :

1
2
3
Dim Nom As String
Nom = ActivePresentation.Name
Application.Run (Nom!bartrue)

Erreur : "Le qualificateur doit être une collection" en m'indiquant bartrue

Code :

Activepresentation.application.Run "bartrue"

Rien ne se passe pourtant elle passe bien dedans car j'affiche un message juste avant pour vérifier s'il y passe.

Je comprend pas les erreurs car Nom renvoie bien Présentation1.ppt comme ce que j'avais mis à la base.

Cordialement

[Neoxaro]

Bonjour,

J'ai réussi à faire le lancement de la macro complémentaire uniquement quand la présentation est dans le même dossier que celle-ci grâce à une recherche (filesearch) donc il me reste plus qu'à trouver le moyen de lancer la macro de ma présentation active et tout sera terminé. Mais comme dis précédemment j'ai effectué pas mal de test car il me manque plus que ça et impossible de lancer cette macro. Pour l'instant obligé de mettre le nom exacte de la présentation. Mais sachant que des futures présentations vont être créées et que je ne connais pas leur nom je ne peux pas l'écrire avec cela : (code utilisé : application.run("Présentation1.ppt!nom_de_la_macro") )

Alors soit réussir à le généraliser en lançant avec la présentation active soit réussir à écrire dans la macro le nom de la présentation mais là je ne sais pas du tout si c'est possible de modifier le code de la macro avec la macro si c'était possible il suffirai d'écrire au lieux de Présentation1.ppt le nom de la nouvelle présentation.

Cordialement

[Philippe JOCHMANS]

Bonjour

Je t'avoue que je ne me suis pas trop penché sur ton problème par manque de temps.

Pour écrire du code dans du code, c'est possible, mais je n'ai pas encore testé sous PPT, par contre une piste sous Excel : Visual Basic Editor: Manipuler l'éditeur de macros ... par macro

Philippe

[Neoxaro]

Bonjour,

Voila en m'aidant de ce que tu m'as donné j'ai créé cela :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Dim Ancien As String, Nouveau As String, Cible As String
    Dim i As Integer
 
    Ancien = "Présentation1.ppt"
    Nouveau = ActivePresentation.Name
With AddIns("prsc").Application.VBE.SelectedVBComponent
    For i = 47 To 48
            Cible = .CodeModule.Lines(i, 1)
 
            Cible = Replace(Cible, Ancien, Nouveau)
            .CodeModule.ReplaceLine i, Cible
    Next i
End With
 
Dim adr As String
adr = ActivePresentation.Path
 
With Application.FileSearch
    .NewSearch
    .LookIn = adr
    .SearchSubFolders = False
    .FileName = "prsc.ppa"
    .MatchTextExactly = True
    .FileType = msoFileTypeAllFiles
     If .Execute > 0 Then Application.Run ("Présentation1.ppt!AttachEvents") Else bar
End With
 
    Ancien = ActivePresentation.Name
    Nouveau = "Présentation1.ppt"
With AddIns("prsc").Application.VBE.SelectedVBComponent
    For i = 47 To 48
            Cible = .CodeModule.Lines(i, 1)
            Cible = Replace(Cible, Ancien, Nouveau)
            .CodeModule.ReplaceLine i, Cible
    Next i
End With

Problème, Il me dit variable objet ou bloc with non défini ( après test ce problème arrive quand il entre dans le premier with) ce problème survient quand je lance la présentation avec la complèmentaire chargé.


Quand je lance ce code dans une procédure simple genre sub test() et que je l'a lance j'ai une autre erreur :

(Sachant que mon instruction Application.Run ("Présentation1.ppt!bartrue") que je veux changer se trouve entre les lignes 45 et 58 donc ça va)

Donc au premier lancement, il me change bien comme je le veux en Application.Run ("activepresentation.ppt!bartrue") sauf qu'il me dit "Powerpoint could not open the file" alors qu'il existe bien et donc il devrait l'ouvrir, la preuve,

au 2e lancement donc avec le changement déjà fait au premier lancement, il me lance bien ma macro bartrue. Donc pourquoi quand il fait le changement avant il n'arrive pas à lancer la macro et quand il ne fait pas le changement il y arrive ?

Cordialement

[Philippe JOCHMANS]

Bonjour

Où as-tu mis ton code ?

Philippe

[pgz]

Bonsoir.

As-tu essayé

Code :

Application.Run ActivePresentation.Name & "!Bartrue"

PGZ

[Neoxaro]

Bonjour,

Mon code posté est mis dans un module de classe qui se trouve dans ma macro complèmentaire. Pour lancer ma macro qui est dans ma présentation

(PGZ je test ce code demain je dis ce qu'il en est )

Cordialement

[Neoxaro]

Bonjour,

Un grand merci PGZ ça marche nikel comme je le veux C'est un peu tordu comme écriture mais ça marche

PS : Merci philippe pour ton aide

Cordialement