Discussion :

[pikayo]

Bijoul missieurs dames,

J'ai actuellement un petit soucis sous access mais qui doit être solutionable avec VBA.

J'ai donc une base de donnée access, avec un formulaire, sur lequel il y a divers champs d'une table ainsi qu'un bouton.
J'ai aussi un fichier powerpoint "original"

Je souhaiterais que lorsque j'appuie sur le bouton du formulaire, une copie de mon powerpoint se fasse, et qu'il s'ouvre. Après il resterais à la personne de le remplir et de faire un enregistrez sous.

Tout d'abord, est ce réalisable ?

Dans un second temps, sur ce même formulaire j'ai un champ, que la personne remplie, et j'aimerais que la copie du powerpoint prenne le nom de ce champ, et s'enregistre automatiquement dans un dossier prédéfini.

Merci d'avance pour vos réponses !

Cordialement

Maxime

[helas]

Bonjour,
pour copier et lancer le powerpoint

Code :

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

1
2
3
4
5
6
7
8
 
Sub OuverturePps()
 Dim source As String, destination As String, r As Long
 source = "e:\NomPPS.pps"
 destination = "e:\NouveauNomPPS.pps"
 FileCopy source, destination
 r = Shell("C:\Program Files (x86)\Microsoft Office\Office12\powerpnt.exe " & destination, vbNormalFocus)
End Sub

Les dossiers, noms de fichier sont à adapter

Dans le modèle powerpoint le code ci-dessous doit être créé

Code :

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

1
2
3
4
5
6
 
Private Sub saisie_LostFocus()
 If MsgBox("Voulez-vous enregistrer la présentation sous le nom : " & saisie & " ?", vbYesNo, "Enregistrement de la présentation") = vbYes Then
  Application.ActivePresentation.SaveAs "e:\" & saisie
 End If
End Sub

saisie est le nom du champ où est entré le nom du fichier