Insérer un document ppt automatiquement dans un word

Commenter

Contenu du snippet

Importer la référence "Microsoft Power Point" -:)

Elle permet sous Word d'importer un document ppt ou pps en exportant de power point le fichier en jpg et en le réimportant... c'est surtout pour l'impression

Source / Exemple : 


Private Sub OK_Click()
'
' Import_Ppt Macro
' Macro créée le 18/04/2007 par EDF-GDF
    
    On Error GoTo lblerror3
    
' test pour vérifier si il s'aigt bien d'un répertoire valide
    str_test = Me.Folder
    If Right(str_test, 1) <> "\" Then
        Me.Folder = str_test + "\"
    End If

' recup des formulaires
    
    nbrDiapo = Me.Nombre_diapo
    File_ppt = Me.Folder + Me.File
    
'   init
    
    StrExportdir = "Export"
    
    Strjpg = StrExportdir & ".jpg"
    
    Diapo = "Diapositive"
    
    SavedFolder = File_ppt + Strjpg + ".Jpg"
    
    SavedFolder_simple = File_ppt + StrExportdir + ".Jpg" + "\"
    
'   si pas de nombre de diapo erreur
    If nbrDiapo = "" Then GoTo lblerror2

' test: est ce un fichier ppt ?
    str_test = Me.File
    If Right(str_test, 4) <> ".ppt" And Right(str_test, 4) <> ".pps" Then
        
        msgbox "Le fichier doit être un fichier avec extenssion ppt ou pps"
        
        GoTo fin
    End If
    
' sauvegarde ppt en jpeg

    Dim ppt As New PowerPoint.Application
    
    ppt.Activate
'   ouverture
    ppt.Presentations.Open FileName:=File_ppt, ReadOnly:=msoFalse
'   sauvergarde en jpg
    ppt.ActivePresentation.SaveAs FileName:=SavedFolder, FileFormat:=ppSaveAsJPG, EmbedTrueTypeFonts:=msoFalse
'   fermeture
    ppt.ActivePresentation.Close
    ppt.Quit
    
' import jpeg
    
    On Error GoTo lblerror
   
    For i = 1 To nbrDiapo
        
        str_ = SavedFolder_simple & Diapo & i & ".JPG"
        ' importation du fichier jpg dans le word
        Selection.InlineShapes.AddOLEObject FileName:= _
            str_, LinkToFile:= _
            False, DisplayAsIcon:=False
    Next
    
    GoTo fin

lblerror:
    msgbox " L'importation a fonctionné, mais vous avez saisi un nombre de diapositives trop grand"
    
    GoTo fin

lblerror2:
    msgbox " Vous devez rentrez un nombre de diapositives (en chiffres ) "
    
    GoTo fin

lblerror3:
    msgbox " Erreur, Paramètres incorrects "
    
    GoTo fin

fin:

' sauvegarde du document
    ActiveDocument.Save
    
End Sub

Conclusion :


Moi je l'ai mis dans le code d'un bouton OK, mais c'est un exemple.

Dans l'exemple il y a deux text box qui permettent de sélectionner le répertoire et le fichier... cela avait été fait pour des besoins spécifiques...

N'oubliez pas d'importer la référence "Microsoft Power Point" -:)

Plus de renseignements sur http://lopez.thomas1.free.fr/programmation/

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Syruis)