ReBonjour,
J' ai commancé à programmé avec les DDE, cependant, mes premier essaie ne sont pas au point, pourriez vous me faire une correction avec explication sur celui -ci :
dmd = InputBox("Saisir le nom du disque ou se situe le dossier : " ) 'Recherche du dossier PowerPoint
With Application.FileSearch
.LookIn = dmd & ":\"
.Filename = "Economie_Chx"
.SearchSubFolders = True
.FileType = msoFileTypePowerPointPresentations
.Execute
For i = 1 To .FoundFiles.Count
A = .FoundFiles(i)
Next
End With
Dim appdiapo As PowerPoint.Application
Set appdiapo = CreateObject("powerpoint.application" )
With appdiapo
.Activate
.Presentations.Open Filename:=A 'ouverture du dossier powerpoint
.Presentations.Application.ActivePresentation.SlideShowSettings.Run 'Lancement de la diapo
End With
Dim canal As Variant
canal = DDEInitiate(app:="WINPOWER", topic:=appdiapo.Presentations.Application.ActivePresentation) ' L' erreur se situe ici
DDERequest canal, Label1 'Demande les information contenu par Label1 ?
MsgBox Label1 ,affiche les information du Label1 Powerpoint
Merci