Accueil > Forum > > > > Problème de fermeture de powerpoint via VBA Excel
 Problème de fermeture de powerpoint via VBA Excel
jeudi 29 décembre 2005 à 10:34:50 |
Problème de fermeture de powerpoint via VBA Excel
steed12
|
Voilà, je crée un fichier powerpoint avec d'autre powerpoint depuis excel mais le problème est que lorsque tout est fini je lui demande deme fermer powerpoint et ensuite de m'afficher un texte box. Mais impossible car il m'affiche le texte box avant la fermeture ce qui fait qu'on ne le voie pas dirrectement il faut cliquer sur excel puis validé le texte box pour que powerpoint ce ferme. Si quelqu'un c'est pourquoi ?
merci d'avance, voici le code de ma macro :
Sub generateurppt()
'definition du chemin vers le repertoire des modules
Dim chemin As String
Dim cheminmodule As String
chemin = ActiveWorkbook.Path & "\suport_formation.ppt"
cheminmodule = ActiveWorkbook.Path & "\modules\"
Dim passage As String
Dim ouvert As String
Dim temps(1 To 300, 1 To 2) As String
Dim nbmodule As Double
nbmodule = 0
For i = 1 To 3000
If UCase(Range("B" & i)) = "X" Then
nbmodulde = nbmodulde + 1
temps(nbmodulde, 1) = nbmodulde
temps(nbmodulde, 2) = Range("c" & i)
Else
End If
Next i
If nbmodulde = 0 Then
MsgBox ("Merci de selectionner au moins un module.")
Beep
Else
Dim ppt As Object
Dim Pres As Object
Set ppt = CreateObject("PowerPoint.Application")
ppt.Visible = True ' Indispensable, sinon il ne peut pas ouvrir de fichier (Erreur)
' On crée maintenant un objet Presentation
Set Pres = ppt.Presentations.Open(Filename:=cheminmodule & temps(1, 2) & ".ppt")
Dim fingeneral As Double
Dim curentfin As Double
For i = 2 To nbmodulde
With ppt.ActivePresentation
fingeneral = .Slides.Count
End With
Set bob = ppt.Presentations.Open(Filename:=cheminmodule & temps(i, 2) & ".ppt")
With ppt.ActivePresentation
curentfin = .Slides.Count
End With
bob.Close
ppt.ActivePresentation.Slides.InsertFromFile _
cheminmodule & temps(i, 2) & ".ppt", fingeneral, 1, curentfin
Next i
ppt.ActivePresentation.SaveAs Filename:=chemin
ppt.ActivePresentation.Close
ppt.Quit 'fermer powerpoint
MsgBox ("Votre fichier de formation est diponnible à cette adresse : " & chemin)
End If
End Sub |
|
jeudi 29 décembre 2005 à 11:14:51 |
Re : Problème de fermeture de powerpoint via VBA Excel
69chris
|
Salut,
Je suis pas un pro VBA mais je pense à
.DisplayAlerts = False
Enfin pour toi c'est
ppt.DispayAlerts = False
En plus, si tu a erreur à l'ouverture du fichier, y a pas de message donc pas besoin d'afficher PowerPoint. Faut juste vérifier que le fichier existe avant de l'ouvrir.
Chris
N'oubliez pas de cloturer votre post.
|
|
jeudi 29 décembre 2005 à 11:17:07 |
Re : Problème de fermeture de powerpoint via VBA Excel
chapata
|
Hi,
essai le ppt.visible = true ou le ppt.activate = true ...
je suis pas sur que cela fonctionne ... mais qui ne tente à rien n'a rien (lol)
ChaPaTa
|
|
jeudi 29 décembre 2005 à 13:50:21 |
Re : Problème de fermeture de powerpoint via VBA Excel
steed12
|
En fait je me suis peut etre mal exprimer, je veux fermer powerpoint puis lancer un message box.
|
|
jeudi 29 décembre 2005 à 14:05:57 |
Re : Problème de fermeture de powerpoint via VBA Excel
chapata
|
Réponse acceptée !
Salut Steed12 ...
Attends ton programme est dans Excel ... je l'ai testé ... il ouvre et rend visible PPT suivant le choix du module (j'ai ouvert une présentation vierge pour ne pas que ça beug)
après tu fais ..
ppt.ActivePresentation.Close
ppt.Quit 'fermer powerpoint
MsgBox ("Votre fichier de formation est diponnible à cette adresse : " & chemin)
J'ai bien PPT qui se ferme et mon message Excel après ... pour moi pas de prob.
Fais un excel.application.visible=true avant ta fermeture de PPT ... peut-être que cela va marché. Mais comme je te l'ai dis chez moi ca suis bien l'ordre que tu as pré-défini.
ChaPaTa
|
|
jeudi 29 décembre 2005 à 14:09:08 |
Re : Problème de fermeture de powerpoint via VBA Excel
69chris
|
Réponse acceptée !
Tout d'abord, désolé, j'avais pas testé et vu le Pb. Je pensais que PowerPoint affichais une fenêtre de dialogue et que c'est elle qui empéchais la fermeture.
Donc, après un petit essai, voici ma conclusion.
Transforme ta Sub en Function qui renvoi le "chemin". Et fais une sub qui appelle cette fonction.
Pour faire simple, comme ça.
Function generateurppt() As String
'definition du chemin vers le repertoire des modules
Dim chemin As String
Dim cheminmodule As String
chemin = ActiveWorkbook.Path & "\suport_formation.ppt"
cheminmodule = ActiveWorkbook.Path & "\modules\"
Dim passage As String
Dim ouvert As String
Dim temps(1 To 300, 1 To 2) As String
Dim nbmodule As Double
nbmodule = 0
For i = 1 To 3000
If UCase(Range("B" & i)) = "X" Then
nbmodulde = nbmodulde + 1
temps(nbmodulde, 1) = nbmodulde
temps(nbmodulde, 2) = Range("c" & i)
Else
End If
Next i
If nbmodulde = 0 Then
MsgBox ("Merci de selectionner au moins un module.")
Beep
Else
Dim ppt As Object
Dim Pres As Object
Set ppt = CreateObject("PowerPoint.Application")
ppt.Visible = True ' Indispensable, sinon il ne peut pas ouvrir de fichier (Erreur)
' On crée maintenant un objet Presentation
Set Pres = ppt.Presentations.Open(Filename:=cheminmodule & temps(1, 2) & ".ppt")
Dim fingeneral As Double
Dim curentfin As Double
For i = 2 To nbmodulde
With ppt.ActivePresentation
fingeneral = .Slides.Count
End With
Set bob = ppt.Presentations.Open(Filename:=cheminmodule & temps(i, 2) & ".ppt")
With ppt.ActivePresentation
curentfin = .Slides.Count
End With
bob.Close
ppt.ActivePresentation.Slides.InsertFromFile _
cheminmodule & temps(i, 2) & ".ppt", fingeneral, 1, curentfin
Next i
ppt.ActivePresentation.SaveAs Filename:=chemin
ppt.ActivePresentation.Close
ppt.Quit 'fermer powerpoint
End If
End Function
Sub AppelGenerateur()
MsgBox ("Votre fichier de formation est diponnible à cette adresse : " & generateurppt())
End Sub
PowerPoint se ferme en premier.
Chris
N'oubliez pas de cloturer votre post.
|
|
Cette discussion est classée dans : temps, chemin, powerpoint, ppt, nbmodulde
 Répondre à ce message
 Sujets en rapport avec ce message
vba et powerpoint [ par barthos2003 ]
bloublouBonjour,Je voudrais pouvoir gerer precisement le temps de presentation d'un element graphique sous powerpoint (par exemple afficher un carré a
Faire un collage spécial image dans powerpoint depuis excel [ par Mr Smoking ]
Bonjour à tous !J'essaye de faire une macro qui permettrait d'exporter un classeur excel vers une présentation power point.J'arrive à basculer d'XL à
Estimation de temps [ par GrandGarfield ]
Bonjour,dans le cadre de mon travail, il me serait pratique de réaliser quelques automatisations entre applications ( esentiellement excel et powerpoi
interaction entre excel et powerpoint [ par steed12 ]
Bonjour à tous, voila je cherche à ouvrire un document powerpoint depuis excel puis à lui inséré un autre powerpoint dedans. Pour le moment j'arrive à
Dijkstra en temps reel [ par argentin7 ]
bonjour a toute la communauté VBFRANCE je cherche le chemin le plus court a l'aide de l'algorithme de Dijkstra et je veux savoir SVP comment faire
cacher un slide powerpoint sous vbs [ par Hermios ]
Salut à tous,Alors promis, j'ai cherché, mais rien à faire, je n'ai rein trouvé :Je souhaite créer un script vbs qui me permettrait de cacher ou affic
Commander Acrobat depuis Powerpoint [ par lezardjet ]
Bonjour,Je souhaite pouvoir ouvrir une page particuliere d'un document PDF. Je n'arrive pas depuis powerpoint alors que depuis IE en tapant chemin\mon
Powerpoint [ par patsonk ]
Salut,j'ai un probleme de debutant. je dois au fait inserer un slide d'un fichier powerpoint dans un autre fichier powerpointj'ai utiliser la fonction
Probleme application power point dans excel [ par steph3147 ]
Bonjour,J'essaie de faire quelques opérations dans power point à partir de données collectées dans excel.Cependant lorsque j'exécute la macro depuis e
Conversion de powerpoint en vidéo [ par Cipoli ]
Bonjour à tous, Je cherche à transformer un document powerpoint en vidéo. J'ai pour le moment trouvé des composants payant qui le permette mais pas
 Livres en rapport
|
Derniers Blogs
 ASYNC/AWAIT: COMPRENDRE COMMENT CA MARCHEASYNC/AWAIT: COMPRENDRE COMMENT CA MARCHE par fathi
Tout le monde est unanime pour dire que la programmation multi-thread et asynchrone est en train de devenir un sujet incontournable. Beaucoup de choses sont arrivées avec le framework 4 pour le code parallèle (TPL, PLinq,.) et bientôt, on va avoir l...
Cliquez pour lire la suite de l'article par fathi PAS D'INTELLITRACE SUR MON SITE WEB DANS IIS !PAS D'INTELLITRACE SUR MON SITE WEB DANS IIS ! par Etienne Margraff
J'ai récemment eu un problème pour obtenir l'intelliTrace sur un site web dans IIS. Il n'y avait pas de message d'erreur, rien dans le journal d'évènement Windows, et après 3 appels à une voyante, 2 visites chez un marabou, j'ai failli me résign...
Cliquez pour lire la suite de l'article par Etienne Margraff OFFICE 365 - SHAREPOINT ONLINE, QUELQUES LIMITATIONSOFFICE 365 - SHAREPOINT ONLINE, QUELQUES LIMITATIONS par junarnoalg
De nombreuses entreprises font le choix de SharePoint Online, service fourni au travers de l'offre de Microsoft Office 365. S'il est vrai que ce choix apporte un grand nombre d'avantages; rapidité de mise en œuvre, disponibilité, large couvertu...
Cliquez pour lire la suite de l'article par junarnoalg PRéSENTATION DES API REST DE WINDOWS AZURE : LISTER LES COMPTES DE STORAGEPRéSENTATION DES API REST DE WINDOWS AZURE : LISTER LES COMPTES DE STORAGE par richardc
http://www.c2idotnet.com/articles/presentation-des-api-rest-de-windows-azure-lister-les-comptes-de-storage
Désolé pour "toto", mais c2i existait avant blogs.developpeur.org et c'est mon site "officiel" ;-) ...
Cliquez pour lire la suite de l'article par richardc
Logiciels
 DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|