ERREUR 429 Un composant ActiveX ne peut pas créer d’Objet

onjour,

j'ai un problème que je n'arrive pas à résoudre depuis 2 mois.

j'ai un fichier excel qui alimente un PowerPoint avec une macro.

dans cette macro tout fonction sauf cette ligne de code

ActivePresentation.ExportAsFixedFormat ActivePresentation.Path & "\sortie\carte\" & Format(Date, "ddmmyyyy") & "_" & "Situation Relais" & ".pdf", ppFixedFormatTypePDF, ppFixedFormatIntentPrint

En effet, ce code permet de prendre le PowerPoint ouvert, il fait une copie, il transforme en PDF et il exporte vers un dossier nommé "carte"

quand le programme s’exécute et dès qu'il arrive a cette ligne, il génère une erreur.

(ERREUR 429 Un composant ActiveX ne peut pas créer d’Objet)

j'ai essayé toutes les référence Microsoft ActiveX mais toujours la même erreur.

Pouvez vous m'aider SVP, je suis vraiment perdu

Bonsoir,

Vraiment à tout hasard...

Dans le menu "Fichier/Options/Centre de gestion de la confidentialité", puis en cliquant sur "Paramètres du Centre de gestion de la confidentialité", Rubrique "Paramètres des macros", est-ce que l'option "Accès approuvé au modèle d'objet du projet VBA" est bien cochée?

Mais vraiment, à tout hasard...

Bon courage

Bonsoir,

Il me semble qu'il manque la définition de l'application Powerpoint

    Set Pwt = GetObject(, "PowerPoint.Application")
    Pwt.ActivePresentation.ExportAsFixedFormat ...

Bonjour,

vous savez, les deux solution que vous venez de me donner ne marches pas.

ce que je veux vous dire. dans le PowerPoint j'ai écris la ligne du code comme une macro. je l'exécute a l'aide d'un bouton et ben j'arrive a exporté le PDF, ça marche nickel. Mais quand j'essaye de lancer ce code dans mon code principal, ça ne marche pas. j'avoue que c'est trop bizard.

Moi mon but c'est que ce code fonctionne dans le 1e programme pas dans le PPT. car mon responsable m’exige ça. je suis perdu.

Sub pdf()

' cette macro convertie le PPt en pdf et l'exporte dans le dossier carte.

 ActivePresentation.ExportAsFixedFormat ActivePresentation.Path & "\sortie\carte\" & Format(Date, "ddmmyyyy") & "_" & "Situation Relais" & ".pdf", ppFixedFormatTypePDF, ppFixedFormatIntentPrint

End Sub

La solution que j'ai donnée ne fonctionne que si la présentation est ouverte lors de l'exécution de la macro Excel. Si ce n'est pas le cas, il faut alors l'ouvrir comme ceci

    Set Pwt = CreateObject("Powerpoint.Application")    'création application
    Pwt.Presentations.Open (nom_fichier)                'ouverture présentation
    Pwt.ActivePresentation.ExportAsFixedFormat ...      'exportation présentation
    Pwt.ActivePresentation.Close                        'fermeture présentation
    Pwt.Quit                                            'fermeture application

nom_fichier représente le nom du fichier précédé du chemin d'accès.

Effectivement, le PowerPoint est ouvert et ne se ferme pas en automatique, et malgré ça, le code génère la même erreur, 429.

J'ai bien essayer ta solution mais c'est toujours pareil.

As-tu intégré la bibliothèque Microsoft Powerpoint dans le menu outils --> Références de l'éditeur VBA d'Excel ?

Oui oui , bien intégré. le PPT s'ouvre grâce a une macro, il se mis ajour, et lorsque l'exécution arrive au code qui permet d'exporter le pdf, ben il s'arrête en génèrant l'erreur 429, un composant activeX ne peut pas créer d'objet.

Pour pouvoir t'aider, il faudrait que tu communiques le code qui ouvre le PPT.

je vais te communiquer tout le code de ma macro.

Sub saveExcel()
Dim fichier As String
On Error Resume Next
ChDir "Y:\Pré-op\SOPP et relais\Relais\Situation Relais Sans Macro\sortie\Excel"
If Err Then MkDir "Y:\Pré-op\SOPP et relais\Relais\Situation Relais Sans Macro\sortie\Excel" 'pour le créer
On Error GoTo 0
Application.DisplayAlerts = False
[A1] = Now
Workbooks.Open Filename:="Y:\Pré-op\SOPP et relais\Relais\Situation Relais Sans Macro\SITUATION RELAIS BIS.xlsm"
ActiveSheet.Copy
fichier = "Y:\Pré-op\SOPP et relais\Relais\Situation Relais Sans Macro\sortie\Excel\" & Format(Date, "ddmmyyyy") & "_" & "Situation Relais" & ".xlsx"
ActiveWorkbook.SaveAs fichier 'enregitrer les mises à jour sur ce fichier esporté
ActiveWorkbook.Close SaveChanges:=False
Call import
Workbooks("SITUATION RELAIS BIS.XLSM").Close SaveChanges:=False 'fermer le fichier situation relais bis
'transformer le PPt en pdf et l'exporter vers le dossier carte
ActivePresentation.ExportAsFixedFormat ActivePresentation.Path & "\sortie\carte\" & Format(Date, "ddmmyyyy") & "_" & "Situation Relais" & ".pdf", ppFixedFormatTypePDF, ppFixedFormatIntentPrint
Application.DisplayAlerts = True

End Sub

Private Sub import()
'ce programme  sert a ouvrir le powerpoint cartes support relais et mettre a jour les slide c'est a dire les commentaire ainsi ETAT des relais.

Dim PptApp As PowerPoint.Application
Dim PptDoc As PowerPoint.Presentation
Dim sld As PowerPoint.Slide
Dim Shp As PowerPoint.Shape
Dim Cs1 As ColorScheme
Dim NbShpe As Integer
Set PptApp = CreateObject("Powerpoint.Application")

Dim FichierPpt, pwpt, presppt
Set pwpt = CreateObject("PowerPoint.Application")
pwpt.Visible = True '

Set presppt = PptApp.Presentations.Open(Filename:="Y:\Pré-op\SOPP et relais\Relais\Situation Relais Sans Macro\cartes support relais.pptm")

pwpt.Visible = True
pwpt.ActivePresentation.UpdateLinks
With presppt
    '--- Ajoute un Slide
  ' .Slides.Add Index:=1, Layout:=ppLayoutBlank
   'Crée une zone de texte (AddLabel)
   ' affectation à l'objet slide la première diapositive de la présentation en cours.

    ' création de la zone de texte
    Set Shp = .Slides(2).Shapes.AddTextbox(msoTextOrientationHorizontal, 70, 320, 600, 50)

    'insère la valeur de la Cellule E3 dans une zone de texte
   If Range("E3") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E3")

    'Modifie la couleur du texte
   Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)

    'Compte le nombre de shapes dans la diapositive:
   'le dernier objet inséré correspond à l'index le plus élevé
   'NbShpe = sld.Shapes.Count

 '--------com1-SOMAIN
 Set Shp = .Slides(2).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 240, 350, 50)
     If Range("E53") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E53")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com2
 Set Shp = .Slides(2).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 220, 350, 50)
     If Range("E52") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E52")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com3
 Set Shp = .Slides(2).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 200, 350, 50)
     If Range("E51") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E51")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com4
 Set Shp = .Slides(2).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 180, 350, 50)
     If Range("E50") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E50")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com5
 Set Shp = .Slides(2).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 160, 350, 50)
     If Range("E49") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E49")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com6
 Set Shp = .Slides(2).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 140, 350, 50)
      If Range("E48") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E48")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
    End With
 '-------------------------------------------------------------------------------------------

 With presppt

    Set Shp = .Slides(3).Shapes.AddTextbox(msoTextOrientationHorizontal, 70, 320, 600, 50)
    'insère la valeur de la Cellule E4 dans une zone de texte
   If Range("E4") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E4")
    'Modifie la couleur du texte
   Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
  '-------------Com1-CULMONT CHALANDRY
   Set Shp = .Slides(3).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 240, 350, 50)
     If Range("E61") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E61")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com2
 Set Shp = .Slides(3).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 220, 350, 50)
     If Range("E60") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E60")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com3
 Set Shp = .Slides(3).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 200, 350, 50)
     If Range("E59") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E59")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com4
 Set Shp = .Slides(3).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 180, 350, 50)
     If Range("E58") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E58")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com5
 Set Shp = .Slides(3).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 160, 350, 50)
     If Range("E57") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E57")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com6
 Set Shp = .Slides(3).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 140, 350, 50)
      If Range("E56") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E56")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
    End With

 With presppt

    ' création de la zone de texte

    Set Shp = .Slides(4).Shapes.AddTextbox(msoTextOrientationHorizontal, 70, 320, 600, 50)
    'insère la valeur de la Cellule E5 dans une zone de texte
   If Range("E5") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E5")
    'Modifie la couleur du texte
   Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
 '------------com1-HAUSBERGEN
 Set Shp = .Slides(4).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 240, 350, 50)
     If Range("E69") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E69")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com2
 Set Shp = .Slides(4).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 220, 350, 50)
     If Range("E68") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E68")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com3
 Set Shp = .Slides(4).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 200, 350, 50)
     If Range("E67") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E67")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com4
 Set Shp = .Slides(4).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 180, 350, 50)
     If Range("E66") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E66")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com5
 Set Shp = .Slides(4).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 160, 350, 50)
     If Range("E65") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E65")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com6
 Set Shp = .Slides(4).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 140, 350, 50)
      If Range("E64") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E64")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
    End With

     With presppt

    ' création de la zone de texte

    Set Shp = .Slides(5).Shapes.AddTextbox(msoTextOrientationHorizontal, 70, 320, 600, 50)
    'insère la valeur de la Cellule E6 dans une zone de texte
   If Range("E6") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E6")
    'Modifie la couleur du texte
   Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
 '-------------com1-MULHOUSE
  Set Shp = .Slides(5).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 240, 350, 50)
     If Range("E77") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E77")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com2
 Set Shp = .Slides(5).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 220, 350, 50)
     If Range("E76") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E76")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com3
 Set Shp = .Slides(5).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 200, 350, 50)
     If Range("E75") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E75")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com4
 Set Shp = .Slides(5).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 180, 350, 50)
     If Range("E74") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E74")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com5
 Set Shp = .Slides(5).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 160, 350, 50)
     If Range("E73") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E73")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com6
 Set Shp = .Slides(5).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 140, 350, 50)
      If Range("E72") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E72")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
    End With

     With presppt

    ' création de la zone de texte

    Set Shp = .Slides(6).Shapes.AddTextbox(msoTextOrientationHorizontal, 70, 320, 600, 50)
    'insère la valeur de la Cellule E7 dans une zone de texte
   If Range("E7") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E7")
    'Modifie la couleur du texte
   Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
  '------------Com1-THIONVILLE
 Set Shp = .Slides(6).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 240, 350, 50)
     If Range("E85") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E85")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com2
 Set Shp = .Slides(6).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 220, 350, 50)
     If Range("E84") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E84")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com3
 Set Shp = .Slides(6).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 200, 350, 50)
     If Range("E83") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E83")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com4
 Set Shp = .Slides(6).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 180, 350, 50)
     If Range("E82") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E82")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com5
 Set Shp = .Slides(6).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 160, 350, 50)
     If Range("E81") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E81")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com6
 Set Shp = .Slides(6).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 140, 350, 50)
      If Range("E80") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E80")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)

    End With

     With presppt

    ' création de la zone de texte

    Set Shp = .Slides(7).Shapes.AddTextbox(msoTextOrientationHorizontal, 70, 320, 600, 50)
    'insère la valeur de la Cellule E8 dans une zone de texte
   If Range("E8") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E8")
    'Modifie la couleur du texte
   Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
  '-----------Com1-WOIPPY
  Set Shp = .Slides(7).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 240, 350, 50)
     If Range("E93") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E93")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com2
 Set Shp = .Slides(7).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 220, 350, 50)
     If Range("E92") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E92")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com3
 Set Shp = .Slides(7).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 200, 350, 50)
     If Range("E91") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E91")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com4
 Set Shp = .Slides(7).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 180, 350, 50)
     If Range("E90") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E90")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com5
 Set Shp = .Slides(7).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 160, 350, 50)
     If Range("E89") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E89")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com6
 Set Shp = .Slides(7).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 140, 350, 50)
      If Range("E88") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E88")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)

    End With

     With presppt

    ' création de la zone de texte

    Set Shp = .Slides(8).Shapes.AddTextbox(msoTextOrientationHorizontal, 70, 320, 600, 50)
    'insère la valeur de la Cellule E9 dans une zone de texte
   If Range("E9") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E9")
    'Modifie la couleur du texte
   Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
  '-----------Com1-METZ
 Set Shp = .Slides(8).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 240, 350, 50)
     If Range("E101") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E101")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com2
 Set Shp = .Slides(8).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 220, 350, 50)
     If Range("E100") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E100")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com3
 Set Shp = .Slides(8).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 200, 350, 50)
     If Range("E99") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E99")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com4
 Set Shp = .Slides(8).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 180, 350, 50)
     If Range("E98") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E98")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com5
 Set Shp = .Slides(8).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 160, 350, 50)
     If Range("E97") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E97")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com6
 Set Shp = .Slides(8).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 140, 350, 50)
      If Range("E96") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E96")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)

    End With

     With presppt

    ' création de la zone de texte

    Set Shp = .Slides(9).Shapes.AddTextbox(msoTextOrientationHorizontal, 70, 320, 600, 50)
    'insère la valeur de la Cellule E11 dans une zone de texte
   If Range("E11") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E11")
    'Modifie la couleur du texte
   Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
  '-------------Com1-VALENTON
    Set Shp = .Slides(9).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 240, 350, 50)
     If Range("E109") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E109")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com2
 Set Shp = .Slides(9).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 220, 350, 50)
     If Range("E108") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E108")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com3
 Set Shp = .Slides(9).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 200, 350, 50)
     If Range("E107") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E107")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com4
 Set Shp = .Slides(9).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 180, 350, 50)
     If Range("E106") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E106")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com5
 Set Shp = .Slides(9).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 160, 350, 50)
     If Range("E105") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E105")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com6
 Set Shp = .Slides(9).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 140, 350, 50)
      If Range("E104") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E104")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)

    End With

     With presppt

    ' création de la zone de texte

    Set Shp = .Slides(10).Shapes.AddTextbox(msoTextOrientationHorizontal, 70, 320, 600, 50)
    'insère la valeur de la Cellule E12 dans une zone de texte
   If Range("E12") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E12")
    'Modifie la couleur du texte
   Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
'---------------com1-VILLENEUVE
 Set Shp = .Slides(10).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 240, 350, 50)
     If Range("E117") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E117")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com2
 Set Shp = .Slides(10).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 220, 350, 50)
     If Range("E116") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E116")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com3
 Set Shp = .Slides(10).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 200, 350, 50)
     If Range("E115") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E115")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com4
 Set Shp = .Slides(10).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 180, 350, 50)
     If Range("E114") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E114")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com5
 Set Shp = .Slides(10).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 160, 350, 50)
     If Range("E113") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E113")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com6
 Set Shp = .Slides(10).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 140, 350, 50)
      If Range("E112") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E112")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)

    End With

     With presppt

    ' création de la zone de texte

    Set Shp = .Slides(11).Shapes.AddTextbox(msoTextOrientationHorizontal, 70, 320, 600, 50)
    'insère la valeur de la Cellule E13 dans une zone de texte
   If Range("E13") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E13")
    'Modifie la couleur du texte
   Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
  '-------------Com1-BOBIGNY
    Set Shp = .Slides(11).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 240, 350, 50)
     If Range("E125") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E125")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com2
 Set Shp = .Slides(11).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 220, 350, 50)
     If Range("E124") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E124")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com3
 Set Shp = .Slides(11).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 200, 350, 50)
     If Range("E123") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E123")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com4
 Set Shp = .Slides(11).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 180, 350, 50)
     If Range("E122") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E122")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com5
 Set Shp = .Slides(11).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 160, 350, 50)
     If Range("E121") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E121")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com6
 Set Shp = .Slides(11).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 140, 350, 50)
      If Range("E120") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E120")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)

    End With

     With presppt

    ' création de la zone de texte

    Set Shp = .Slides(12).Shapes.AddTextbox(msoTextOrientationHorizontal, 70, 320, 600, 50)
    'insère la valeur de la Cellule E14 dans une zone de texte
   If Range("E14") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E14")
    'Modifie la couleur du texte
   Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
'----------------Com1-TERGNIER
  Set Shp = .Slides(12).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 240, 350, 50)
     If Range("E133") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E133")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com2
 Set Shp = .Slides(12).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 220, 350, 50)
     If Range("E132") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E132")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com3
 Set Shp = .Slides(12).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 200, 350, 50)
     If Range("E131") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E131")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com4
 Set Shp = .Slides(12).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 180, 350, 50)
     If Range("E130") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E130")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com5
 Set Shp = .Slides(12).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 160, 350, 50)
     If Range("E129") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E129")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com6
 Set Shp = .Slides(12).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 140, 350, 50)
      If Range("E128") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E128")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
    End With

     With presppt

    ' création de la zone de texte

    Set Shp = .Slides(13).Shapes.AddTextbox(msoTextOrientationHorizontal, 70, 320, 600, 50)
    'insère la valeur de la Cellule E15 dans une zone de texte
   If Range("E15") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E15")
    'Modifie la couleur du texte
   Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
  '-----------Com1-CHALONS EN CHAMPAGNE
     Set Shp = .Slides(13).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 240, 350, 50)
     If Range("E141") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E141")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com2
 Set Shp = .Slides(13).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 220, 350, 50)
     If Range("E140") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E140")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com3
 Set Shp = .Slides(13).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 200, 350, 50)
     If Range("E139") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E139")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com4
 Set Shp = .Slides(13).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 180, 350, 50)
     If Range("E138") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E138")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com5
 Set Shp = .Slides(13).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 160, 350, 50)
     If Range("E137") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E137")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com6
 Set Shp = .Slides(13).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 140, 350, 50)
      If Range("E136") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E136")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)

    End With

     With presppt

    ' création de la zone de texte

    Set Shp = .Slides(14).Shapes.AddTextbox(msoTextOrientationHorizontal, 70, 320, 600, 50)
    'insère la valeur de la Cellule E16 dans une zone de texte
   If Range("E16") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E16")
    'Modifie la couleur du texte
   Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
  '---------------Com1-vide CST
    Set Shp = .Slides(14).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 240, 350, 50)
     If Range("E149") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E149")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com2
 Set Shp = .Slides(14).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 220, 350, 50)
     If Range("E148") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E148")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com3
 Set Shp = .Slides(14).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 200, 350, 50)
     If Range("E147") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E147")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com4
 Set Shp = .Slides(14).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 180, 350, 50)
     If Range("E146") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E146")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com5
 Set Shp = .Slides(14).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 160, 350, 50)
     If Range("E145") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E145")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com6
 Set Shp = .Slides(14).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 140, 350, 50)
      If Range("E144") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E144")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)

    End With

     With presppt

    ' création de la zone de texte

    Set Shp = .Slides(15).Shapes.AddTextbox(msoTextOrientationHorizontal, 70, 320, 600, 50)
    'insère la valeur de la Cellule E18 dans une zone de texte

   If Range("E18") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E18")
    'Modifie la couleur du texte
   Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
  '-----------------Com1-LES AUBRAIS
     Set Shp = .Slides(15).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 240, 350, 50)
     If Range("E157") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E157")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com2
 Set Shp = .Slides(15).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 220, 350, 50)
     If Range("E156") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E156")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com3
 Set Shp = .Slides(15).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 200, 350, 50)
     If Range("E155") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E155")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com4
 Set Shp = .Slides(15).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 180, 350, 50)
     If Range("E154") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E154")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com5
 Set Shp = .Slides(15).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 160, 350, 50)
     If Range("E153") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E153")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com6
 Set Shp = .Slides(15).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 140, 350, 50)
      If Range("E152") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E152")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)

    End With

 With presppt

    ' création de la zone de texte

    Set Shp = .Slides(16).Shapes.AddTextbox(msoTextOrientationHorizontal, 70, 320, 600, 50)
    'insère la valeur de la Cellule E19 dans une zone de texte
   If Range("E19") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E19")
    'Modifie la couleur du texte
   Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
  '----------------com1-St PIERRE
      Set Shp = .Slides(16).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 240, 350, 50)
     If Range("E165") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E165")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com2
 Set Shp = .Slides(16).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 220, 350, 50)
     If Range("E164") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E164")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com3
 Set Shp = .Slides(16).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 200, 350, 50)
     If Range("E163") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E163")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com4
 Set Shp = .Slides(16).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 180, 350, 50)
     If Range("E162") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E162")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com5
 Set Shp = .Slides(16).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 160, 350, 50)
     If Range("E161") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E161")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com6
 Set Shp = .Slides(16).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 140, 350, 50)
      If Range("E160") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E160")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)

    End With

 With presppt

    ' création de la zone de texte

    Set Shp = .Slides(17).Shapes.AddTextbox(msoTextOrientationHorizontal, 70, 320, 600, 50)
    'insère la valeur de la Cellule E20 dans une zone de texte
   If Range("E20") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E20")
    'Modifie la couleur du texte
   Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
  '--------------Com1-VIERZON
 Set Shp = .Slides(17).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 240, 350, 50)
     If Range("E173") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E173")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com2
 Set Shp = .Slides(17).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 220, 350, 50)
     If Range("E172") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E172")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com3
 Set Shp = .Slides(17).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 200, 350, 50)
     If Range("E171") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E171")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com4
 Set Shp = .Slides(17).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 180, 350, 50)
     If Range("E170") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E170")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com5
 Set Shp = .Slides(17).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 160, 350, 50)
     If Range("E169") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E169")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com6
 Set Shp = .Slides(17).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 140, 350, 50)
      If Range("E168") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E168")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)

    End With

     With presppt

    ' création de la zone de texte

    Set Shp = .Slides(18).Shapes.AddTextbox(msoTextOrientationHorizontal, 70, 320, 600, 50)
    'insère la valeur de la Cellule E21 dans une zone de texte
   If Range("E21") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E21")
    'Modifie la couleur du texte
   Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
    '--------------com1-POITIERS
    Set Shp = .Slides(18).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 240, 350, 50)
     If Range("E181") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E181")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com2
 Set Shp = .Slides(18).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 220, 350, 50)
     If Range("E180") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E180")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com3
 Set Shp = .Slides(18).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 200, 350, 50)
     If Range("E179") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E179")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com4
 Set Shp = .Slides(18).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 180, 350, 50)
     If Range("E178") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E178")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com5
 Set Shp = .Slides(18).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 160, 350, 50)
     If Range("E177") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E177")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com6
 Set Shp = .Slides(18).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 140, 350, 50)
      If Range("E176") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E176")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)

    End With

     With presppt

    ' création de la zone de texte

    Set Shp = .Slides(19).Shapes.AddTextbox(msoTextOrientationHorizontal, 70, 320, 600, 50)
    'insère la valeur de la Cellule E23 dans une zone de texte
   If Range("E23") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E23")
    'Modifie la couleur du texte
   Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
  '---------------Com1-HOURCADE
 Set Shp = .Slides(19).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 240, 350, 50)
     If Range("E189") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E189")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com2
 Set Shp = .Slides(19).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 220, 350, 50)
     If Range("E188") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E188")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com3
 Set Shp = .Slides(19).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 200, 350, 50)
     If Range("E187") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E187")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com4
 Set Shp = .Slides(19).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 180, 350, 50)
     If Range("E186") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E186")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com5
 Set Shp = .Slides(19).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 160, 350, 50)
     If Range("E185") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E185")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com6
 Set Shp = .Slides(19).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 140, 350, 50)
      If Range("E184") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E184")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)

    End With

     With presppt

    ' création de la zone de texte

    Set Shp = .Slides(20).Shapes.AddTextbox(msoTextOrientationHorizontal, 70, 320, 600, 50)
    'insère la valeur de la Cellule E24 dans une zone de texte

   If Range("E24") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E24")
    'Modifie la couleur du texte
   Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
  '------------------Com1-ST JORY
 Set Shp = .Slides(20).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 240, 350, 50)
     If Range("E197") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E197")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com2
 Set Shp = .Slides(20).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 220, 350, 50)
     If Range("E196") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E196")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com3
 Set Shp = .Slides(20).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 200, 350, 50)
     If Range("E195") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E195")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com4
 Set Shp = .Slides(20).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 180, 350, 50)
     If Range("E194") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E194")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com5
 Set Shp = .Slides(20).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 160, 350, 50)
     If Range("E193") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E193")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com6
 Set Shp = .Slides(20).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 140, 350, 50)
      If Range("E192") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E192")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)

    End With

     With presppt

    ' création de la zone de texte

    Set Shp = .Slides(21).Shapes.AddTextbox(msoTextOrientationHorizontal, 70, 320, 600, 50)
    'insère la valeur de la Cellule E25 dans une zone de texte
   If Range("E25") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E25")
    'Modifie la couleur du texte
   Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
  '--------------------Com1-Vide CST AL SUD
    Set Shp = .Slides(21).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 240, 350, 50)
     If Range("E205") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E205")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com2
 Set Shp = .Slides(21).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 220, 350, 50)
     If Range("E204") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E204")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com3
 Set Shp = .Slides(21).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 200, 350, 50)
     If Range("E203") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E203")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com4
 Set Shp = .Slides(21).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 180, 350, 50)
     If Range("E202") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E202")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com5
 Set Shp = .Slides(21).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 160, 350, 50)
     If Range("E201") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E201")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com6
 Set Shp = .Slides(21).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 140, 350, 50)
      If Range("E200") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E200")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)

    End With

     With presppt

    ' création de la zone de texte

    Set Shp = .Slides(22).Shapes.AddTextbox(msoTextOrientationHorizontal, 70, 320, 600, 50)
    'insère la valeur de la Cellule E27 dans une zone de texte
   If Range("E27") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E27")
    'Modifie la couleur du texte
   Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
  '---------------Com1-PERRIGNY
     Set Shp = .Slides(22).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 240, 350, 50)
     If Range("E213") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E213")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com2
 Set Shp = .Slides(22).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 220, 350, 50)
     If Range("E212") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E212")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com3
 Set Shp = .Slides(22).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 200, 350, 50)
     If Range("E211") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E211")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com4
 Set Shp = .Slides(22).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 180, 350, 50)
     If Range("E210") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E210")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com5
 Set Shp = .Slides(22).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 160, 350, 50)
     If Range("E209") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E209")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com6
 Set Shp = .Slides(22).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 140, 350, 50)
      If Range("E208") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E208")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)

    End With

     With presppt

    ' création de la zone de texte

    Set Shp = .Slides(23).Shapes.AddTextbox(msoTextOrientationHorizontal, 70, 320, 600, 50)
    'insère la valeur de la Cellule E28 dans une zone de texte
    If Range("E28") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E28")
    'Modifie la couleur du texte
   Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
    '----------------Com1-GEVREY
     Set Shp = .Slides(23).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 240, 350, 50)
     If Range("E221") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E221")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com2
 Set Shp = .Slides(23).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 220, 350, 50)
     If Range("E220") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E220")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com3
 Set Shp = .Slides(23).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 200, 350, 50)
     If Range("E219") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E219")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com4
 Set Shp = .Slides(23).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 180, 350, 50)
     If Range("E218") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E218")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com5
 Set Shp = .Slides(23).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 160, 350, 50)
     If Range("E217") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E217")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com6
 Set Shp = .Slides(23).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 140, 350, 50)
      If Range("E216") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E216")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)

    End With

     With presppt

    ' création de la zone de texte

    Set Shp = .Slides(24).Shapes.AddTextbox(msoTextOrientationHorizontal, 70, 320, 600, 50)
    'insère la valeur de la Cellule E29 dans une zone de texte
   If Range("E29") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E29")
    'Modifie la couleur du texte
   Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
  '--------------com1-SIBELIN
      Set Shp = .Slides(24).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 240, 350, 50)
     If Range("E229") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E229")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com2
 Set Shp = .Slides(24).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 220, 350, 50)
     If Range("E228") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E228")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com3
 Set Shp = .Slides(24).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 200, 350, 50)
     If Range("E227") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E227")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com4
 Set Shp = .Slides(24).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 180, 350, 50)
     If Range("E226") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E226")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com5
 Set Shp = .Slides(24).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 160, 350, 50)
     If Range("E225") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E225")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com6
 Set Shp = .Slides(24).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 140, 350, 50)
      If Range("E224") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E224")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)

    End With

     With presppt

    ' création de la zone de texte

    Set Shp = .Slides(25).Shapes.AddTextbox(msoTextOrientationHorizontal, 70, 320, 600, 50)
    'insère la valeur de la Cellule E30 dans une zone de texte
   If Range("E30") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E30")
    'Modifie la couleur du texte
   Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
  '-------------------com1-MIRAMAS
    Set Shp = .Slides(25).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 240, 350, 50)
     If Range("E237") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E237")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com2
 Set Shp = .Slides(25).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 220, 350, 50)
     If Range("E236") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E236")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com3
 Set Shp = .Slides(25).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 200, 350, 50)
     If Range("E235") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E235")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com4
 Set Shp = .Slides(25).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 180, 350, 50)
     If Range("E234") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E234")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com5
 Set Shp = .Slides(25).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 160, 350, 50)
     If Range("E233") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E233")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com6
 Set Shp = .Slides(25).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 140, 350, 50)
      If Range("E232") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E232")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)

    End With

     With presppt

    ' création de la zone de texte

    Set Shp = .Slides(26).Shapes.AddTextbox(msoTextOrientationHorizontal, 70, 320, 600, 50)
    'insère la valeur de la Cellule E31 dans une zone de texte
   If Range("E31") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E31")
    'Modifie la couleur du texte
   Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
  '------------------com1-AMBERIEU
     Set Shp = .Slides(26).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 240, 350, 50)
     If Range("E245") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E245")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com2
 Set Shp = .Slides(26).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 220, 350, 50)
     If Range("E244") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E244")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com3
 Set Shp = .Slides(26).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 200, 350, 50)
     If Range("E243") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E243")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com4
 Set Shp = .Slides(26).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 180, 350, 50)
     If Range("E242") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E242")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com5
 Set Shp = .Slides(26).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 160, 350, 50)
     If Range("E241") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E241")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com6
 Set Shp = .Slides(26).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 140, 350, 50)
      If Range("E240") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E240")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)

    End With

     With presppt

    ' création de la zone de texte

    Set Shp = .Slides(27).Shapes.AddTextbox(msoTextOrientationHorizontal, 70, 320, 600, 50)
    'insère la valeur de la Cellule E32 dans une zone de texte
   If Range("E32") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E32")
    'Modifie la couleur du texte
   Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
  '-------------------Com1-NIMES
      Set Shp = .Slides(27).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 240, 350, 50)
     If Range("E253") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E253")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com2
 Set Shp = .Slides(27).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 220, 350, 50)
     If Range("E252") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E252")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com3
 Set Shp = .Slides(27).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 200, 350, 50)
     If Range("E251") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E251")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com4
 Set Shp = .Slides(27).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 180, 350, 50)
     If Range("E250") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E250")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com5
 Set Shp = .Slides(27).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 160, 350, 50)
     If Range("E249") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E249")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com6
 Set Shp = .Slides(27).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 140, 350, 50)
      If Range("E248") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E248")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)

    End With

     With presppt

    ' création de la zone de texte

    Set Shp = .Slides(28).Shapes.AddTextbox(msoTextOrientationHorizontal, 70, 320, 600, 50)
    'insère la valeur de la Cellule E33 dans une zone de texte
   If Range("E33") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E33")
    'Modifie la couleur du texte
   Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
  '--------------------com1-VIDE CST LYON
       Set Shp = .Slides(28).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 240, 350, 50)
     If Range("E261") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E261")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com2
 Set Shp = .Slides(28).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 220, 350, 50)
     If Range("E260") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E260")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com3
 Set Shp = .Slides(28).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 200, 350, 50)
     If Range("E259") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E259")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com4
 Set Shp = .Slides(28).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 180, 350, 50)
     If Range("E258") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E258")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com5
 Set Shp = .Slides(28).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 160, 350, 50)
     If Range("E257") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E257")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com6
 Set Shp = .Slides(28).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 140, 350, 50)
      If Range("E256") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E256")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
    End With

End Sub

Je ne sais pas pourquoi tu crées 2 instances d'application Powerpoint, en tout cas celle où se trouve ton fichier présentation s'appelle : PptApp.

Donc pour exporter ton fichier, il faut le préfixer par l'instance correspondante, soit :

PptApp.ActivePresentation.ExportAsFixedFormat  ......

Finalement je vienn de régler le problème !

En effet, le problème c'est que je devais déclarer Dim Presppt As Powerpoint.presentation

En suite remplacer Activepresentation par presppt

Le tour est joué. Un Grand Merci pour votre aide. vraiment je suis soulager maintenant, je peux attaquer la mise en forme du projet.

je republie le bon code pour ceux qui tombe sur cette erreur d'activeX.

Sub saveExcel()
Dim fichier As String
On Error Resume Next
ChDir "Y:\Pré-op\SOPP et relais\Relais\Situation Relais Sans Macro\sortie\Excel"
If Err Then MkDir "Y:\Pré-op\SOPP et relais\Relais\Situation Relais Sans Macro\sortie\Excel" 'pour le créer
On Error GoTo 0
Application.DisplayAlerts = False
[A1] = Now
Workbooks.Open Filename:="Y:\Pré-op\SOPP et relais\Relais\Situation Relais Sans Macro\SITUATION RELAIS BIS.xlsm"
ActiveSheet.Copy
fichier = "Y:\Pré-op\SOPP et relais\Relais\Situation Relais Sans Macro\sortie\Excel\" & Format(Date, "ddmmyyyy") & "_" & "Situation Relais" & ".xlsx"
ActiveWorkbook.SaveAs fichier 'enregitrer les mises à jour sur ce fichier esporté
ActiveWorkbook.Close SaveChanges:=False
Call import
Workbooks("SITUATION RELAIS BIS.XLSM").Close SaveChanges:=False 'fermer le fichier situation relais bis

Application.DisplayAlerts = True

End Sub

Private Sub import()
'ce programme  sert a ouvrir le powerpoint cartes support relais et mettre a jour les slide c'est a dire les commentaire ainsi ETAT des relais.

Dim PptApp As PowerPoint.Application
'Dim PptDoc As PowerPoint.Presentation
Dim sld As PowerPoint.Slide
Dim Shp As PowerPoint.Shape
'Dim Cs1 As ColorScheme
'Dim NbShpe As Integer
Set PptApp = CreateObject("Powerpoint.Application")

Dim presppt As PowerPoint.Presentation
Dim FichierPpt, pwpt
Set pwpt = CreateObject("PowerPoint.Application")
pwpt.Visible = True '

Set presppt = PptApp.Presentations.Open(Filename:="Y:\Pré-op\SOPP et relais\Relais\Situation Relais Sans Macro\cartes support relais.pptm")

pwpt.Visible = True
pwpt.ActivePresentation.UpdateLinks
With presppt
    '--- Ajoute un Slide
  ' .Slides.Add Index:=1, Layout:=ppLayoutBlank
   'Crée une zone de texte (AddLabel)
   ' affectation à l'objet slide la première diapositive de la présentation en cours.

    ' création de la zone de texte
    Set Shp = .Slides(2).Shapes.AddTextbox(msoTextOrientationHorizontal, 70, 320, 600, 50)

    'insère la valeur de la Cellule E3 dans une zone de texte
   If Range("E3") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E3")

    'Modifie la couleur du texte
   Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)

    'Compte le nombre de shapes dans la diapositive:
   'le dernier objet inséré correspond à l'index le plus élevé
   'NbShpe = sld.Shapes.Count

 '--------com1-SOMAIN
 Set Shp = .Slides(2).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 240, 350, 50)
     If Range("E53") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E53")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com2
 Set Shp = .Slides(2).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 220, 350, 50)
     If Range("E52") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E52")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com3
 Set Shp = .Slides(2).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 200, 350, 50)
     If Range("E51") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E51")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com4
 Set Shp = .Slides(2).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 180, 350, 50)
     If Range("E50") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E50")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com5
 Set Shp = .Slides(2).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 160, 350, 50)
     If Range("E49") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E49")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com6
 Set Shp = .Slides(2).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 140, 350, 50)
      If Range("E48") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E48")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
    End With
 '-------------------------------------------------------------------------------------------

 With presppt

    Set Shp = .Slides(3).Shapes.AddTextbox(msoTextOrientationHorizontal, 70, 320, 600, 50)
    'insère la valeur de la Cellule E4 dans une zone de texte
   If Range("E4") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E4")
    'Modifie la couleur du texte
   Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
  '-------------Com1-CULMONT CHALANDRY
   Set Shp = .Slides(3).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 240, 350, 50)
     If Range("E61") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E61")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com2
 Set Shp = .Slides(3).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 220, 350, 50)
     If Range("E60") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E60")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com3
 Set Shp = .Slides(3).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 200, 350, 50)
     If Range("E59") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E59")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com4
 Set Shp = .Slides(3).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 180, 350, 50)
     If Range("E58") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E58")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com5
 Set Shp = .Slides(3).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 160, 350, 50)
     If Range("E57") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E57")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com6
 Set Shp = .Slides(3).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 140, 350, 50)
      If Range("E56") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E56")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
    End With

 With presppt

    ' création de la zone de texte

    Set Shp = .Slides(4).Shapes.AddTextbox(msoTextOrientationHorizontal, 70, 320, 600, 50)
    'insère la valeur de la Cellule E5 dans une zone de texte
   If Range("E5") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E5")
    'Modifie la couleur du texte
   Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
 '------------com1-HAUSBERGEN
 Set Shp = .Slides(4).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 240, 350, 50)
     If Range("E69") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E69")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com2
 Set Shp = .Slides(4).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 220, 350, 50)
     If Range("E68") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E68")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com3
 Set Shp = .Slides(4).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 200, 350, 50)
     If Range("E67") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E67")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com4
 Set Shp = .Slides(4).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 180, 350, 50)
     If Range("E66") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E66")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com5
 Set Shp = .Slides(4).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 160, 350, 50)
     If Range("E65") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E65")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com6
 Set Shp = .Slides(4).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 140, 350, 50)
      If Range("E64") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E64")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
    End With

     With presppt

    ' création de la zone de texte

    Set Shp = .Slides(5).Shapes.AddTextbox(msoTextOrientationHorizontal, 70, 320, 600, 50)
    'insère la valeur de la Cellule E6 dans une zone de texte
   If Range("E6") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E6")
    'Modifie la couleur du texte
   Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
 '-------------com1-MULHOUSE
  Set Shp = .Slides(5).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 240, 350, 50)
     If Range("E77") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E77")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com2
 Set Shp = .Slides(5).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 220, 350, 50)
     If Range("E76") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E76")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com3
 Set Shp = .Slides(5).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 200, 350, 50)
     If Range("E75") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E75")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com4
 Set Shp = .Slides(5).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 180, 350, 50)
     If Range("E74") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E74")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com5
 Set Shp = .Slides(5).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 160, 350, 50)
     If Range("E73") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E73")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com6
 Set Shp = .Slides(5).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 140, 350, 50)
      If Range("E72") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E72")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
    End With

     With presppt

    ' création de la zone de texte

    Set Shp = .Slides(6).Shapes.AddTextbox(msoTextOrientationHorizontal, 70, 320, 600, 50)
    'insère la valeur de la Cellule E7 dans une zone de texte
   If Range("E7") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E7")
    'Modifie la couleur du texte
   Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
  '------------Com1-THIONVILLE
 Set Shp = .Slides(6).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 240, 350, 50)
     If Range("E85") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E85")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com2
 Set Shp = .Slides(6).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 220, 350, 50)
     If Range("E84") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E84")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com3
 Set Shp = .Slides(6).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 200, 350, 50)
     If Range("E83") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E83")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com4
 Set Shp = .Slides(6).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 180, 350, 50)
     If Range("E82") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E82")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com5
 Set Shp = .Slides(6).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 160, 350, 50)
     If Range("E81") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E81")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com6
 Set Shp = .Slides(6).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 140, 350, 50)
      If Range("E80") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E80")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)

    End With

     With presppt

    ' création de la zone de texte

    Set Shp = .Slides(7).Shapes.AddTextbox(msoTextOrientationHorizontal, 70, 320, 600, 50)
    'insère la valeur de la Cellule E8 dans une zone de texte
   If Range("E8") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E8")
    'Modifie la couleur du texte
   Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
  '-----------Com1-WOIPPY
  Set Shp = .Slides(7).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 240, 350, 50)
     If Range("E93") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E93")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com2
 Set Shp = .Slides(7).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 220, 350, 50)
     If Range("E92") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E92")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com3
 Set Shp = .Slides(7).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 200, 350, 50)
     If Range("E91") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E91")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com4
 Set Shp = .Slides(7).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 180, 350, 50)
     If Range("E90") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E90")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com5
 Set Shp = .Slides(7).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 160, 350, 50)
     If Range("E89") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E89")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com6
 Set Shp = .Slides(7).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 140, 350, 50)
      If Range("E88") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E88")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)

    End With

     With presppt

    ' création de la zone de texte

    Set Shp = .Slides(8).Shapes.AddTextbox(msoTextOrientationHorizontal, 70, 320, 600, 50)
    'insère la valeur de la Cellule E9 dans une zone de texte
   If Range("E9") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E9")
    'Modifie la couleur du texte
   Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
  '-----------Com1-METZ
 Set Shp = .Slides(8).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 240, 350, 50)
     If Range("E101") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E101")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com2
 Set Shp = .Slides(8).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 220, 350, 50)
     If Range("E100") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E100")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com3
 Set Shp = .Slides(8).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 200, 350, 50)
     If Range("E99") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E99")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com4
 Set Shp = .Slides(8).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 180, 350, 50)
     If Range("E98") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E98")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com5
 Set Shp = .Slides(8).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 160, 350, 50)
     If Range("E97") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E97")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com6
 Set Shp = .Slides(8).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 140, 350, 50)
      If Range("E96") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E96")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)

    End With

     With presppt

    ' création de la zone de texte

    Set Shp = .Slides(9).Shapes.AddTextbox(msoTextOrientationHorizontal, 70, 320, 600, 50)
    'insère la valeur de la Cellule E11 dans une zone de texte
   If Range("E11") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E11")
    'Modifie la couleur du texte
   Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
  '-------------Com1-VALENTON
    Set Shp = .Slides(9).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 240, 350, 50)
     If Range("E109") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E109")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com2
 Set Shp = .Slides(9).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 220, 350, 50)
     If Range("E108") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E108")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com3
 Set Shp = .Slides(9).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 200, 350, 50)
     If Range("E107") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E107")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com4
 Set Shp = .Slides(9).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 180, 350, 50)
     If Range("E106") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E106")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com5
 Set Shp = .Slides(9).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 160, 350, 50)
     If Range("E105") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E105")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com6
 Set Shp = .Slides(9).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 140, 350, 50)
      If Range("E104") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E104")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)

    End With

     With presppt

    ' création de la zone de texte

    Set Shp = .Slides(10).Shapes.AddTextbox(msoTextOrientationHorizontal, 70, 320, 600, 50)
    'insère la valeur de la Cellule E12 dans une zone de texte
   If Range("E12") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E12")
    'Modifie la couleur du texte
   Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
'---------------com1-VILLENEUVE
 Set Shp = .Slides(10).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 240, 350, 50)
     If Range("E117") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E117")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com2
 Set Shp = .Slides(10).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 220, 350, 50)
     If Range("E116") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E116")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com3
 Set Shp = .Slides(10).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 200, 350, 50)
     If Range("E115") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E115")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com4
 Set Shp = .Slides(10).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 180, 350, 50)
     If Range("E114") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E114")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com5
 Set Shp = .Slides(10).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 160, 350, 50)
     If Range("E113") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E113")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com6
 Set Shp = .Slides(10).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 140, 350, 50)
      If Range("E112") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E112")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)

    End With

     With presppt

    ' création de la zone de texte

    Set Shp = .Slides(11).Shapes.AddTextbox(msoTextOrientationHorizontal, 70, 320, 600, 50)
    'insère la valeur de la Cellule E13 dans une zone de texte
   If Range("E13") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E13")
    'Modifie la couleur du texte
   Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
  '-------------Com1-BOBIGNY
    Set Shp = .Slides(11).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 240, 350, 50)
     If Range("E125") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E125")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com2
 Set Shp = .Slides(11).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 220, 350, 50)
     If Range("E124") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E124")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com3
 Set Shp = .Slides(11).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 200, 350, 50)
     If Range("E123") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E123")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com4
 Set Shp = .Slides(11).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 180, 350, 50)
     If Range("E122") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E122")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com5
 Set Shp = .Slides(11).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 160, 350, 50)
     If Range("E121") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E121")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com6
 Set Shp = .Slides(11).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 140, 350, 50)
      If Range("E120") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E120")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)

    End With

     With presppt

    ' création de la zone de texte

    Set Shp = .Slides(12).Shapes.AddTextbox(msoTextOrientationHorizontal, 70, 320, 600, 50)
    'insère la valeur de la Cellule E14 dans une zone de texte
   If Range("E14") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E14")
    'Modifie la couleur du texte
   Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
'----------------Com1-TERGNIER
  Set Shp = .Slides(12).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 240, 350, 50)
     If Range("E133") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E133")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com2
 Set Shp = .Slides(12).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 220, 350, 50)
     If Range("E132") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E132")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com3
 Set Shp = .Slides(12).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 200, 350, 50)
     If Range("E131") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E131")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com4
 Set Shp = .Slides(12).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 180, 350, 50)
     If Range("E130") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E130")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com5
 Set Shp = .Slides(12).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 160, 350, 50)
     If Range("E129") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E129")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com6
 Set Shp = .Slides(12).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 140, 350, 50)
      If Range("E128") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E128")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
    End With

     With presppt

    ' création de la zone de texte

    Set Shp = .Slides(13).Shapes.AddTextbox(msoTextOrientationHorizontal, 70, 320, 600, 50)
    'insère la valeur de la Cellule E15 dans une zone de texte
   If Range("E15") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E15")
    'Modifie la couleur du texte
   Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
  '-----------Com1-CHALONS EN CHAMPAGNE
     Set Shp = .Slides(13).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 240, 350, 50)
     If Range("E141") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E141")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com2
 Set Shp = .Slides(13).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 220, 350, 50)
     If Range("E140") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E140")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com3
 Set Shp = .Slides(13).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 200, 350, 50)
     If Range("E139") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E139")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com4
 Set Shp = .Slides(13).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 180, 350, 50)
     If Range("E138") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E138")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com5
 Set Shp = .Slides(13).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 160, 350, 50)
     If Range("E137") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E137")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com6
 Set Shp = .Slides(13).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 140, 350, 50)
      If Range("E136") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E136")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)

    End With

     With presppt

    ' création de la zone de texte

    Set Shp = .Slides(14).Shapes.AddTextbox(msoTextOrientationHorizontal, 70, 320, 600, 50)
    'insère la valeur de la Cellule E16 dans une zone de texte
   If Range("E16") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E16")
    'Modifie la couleur du texte
   Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
  '---------------Com1-vide CST
    Set Shp = .Slides(14).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 240, 350, 50)
     If Range("E149") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E149")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com2
 Set Shp = .Slides(14).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 220, 350, 50)
     If Range("E148") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E148")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com3
 Set Shp = .Slides(14).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 200, 350, 50)
     If Range("E147") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E147")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com4
 Set Shp = .Slides(14).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 180, 350, 50)
     If Range("E146") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E146")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com5
 Set Shp = .Slides(14).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 160, 350, 50)
     If Range("E145") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E145")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com6
 Set Shp = .Slides(14).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 140, 350, 50)
      If Range("E144") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E144")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)

    End With

     With presppt

    ' création de la zone de texte

    Set Shp = .Slides(15).Shapes.AddTextbox(msoTextOrientationHorizontal, 70, 320, 600, 50)
    'insère la valeur de la Cellule E18 dans une zone de texte

   If Range("E18") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E18")
    'Modifie la couleur du texte
   Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
  '-----------------Com1-LES AUBRAIS
     Set Shp = .Slides(15).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 240, 350, 50)
     If Range("E157") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E157")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com2
 Set Shp = .Slides(15).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 220, 350, 50)
     If Range("E156") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E156")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com3
 Set Shp = .Slides(15).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 200, 350, 50)
     If Range("E155") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E155")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com4
 Set Shp = .Slides(15).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 180, 350, 50)
     If Range("E154") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E154")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com5
 Set Shp = .Slides(15).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 160, 350, 50)
     If Range("E153") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E153")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com6
 Set Shp = .Slides(15).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 140, 350, 50)
      If Range("E152") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E152")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)

    End With

 With presppt

    ' création de la zone de texte

    Set Shp = .Slides(16).Shapes.AddTextbox(msoTextOrientationHorizontal, 70, 320, 600, 50)
    'insère la valeur de la Cellule E19 dans une zone de texte
   If Range("E19") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E19")
    'Modifie la couleur du texte
   Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
  '----------------com1-St PIERRE
      Set Shp = .Slides(16).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 240, 350, 50)
     If Range("E165") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E165")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com2
 Set Shp = .Slides(16).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 220, 350, 50)
     If Range("E164") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E164")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com3
 Set Shp = .Slides(16).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 200, 350, 50)
     If Range("E163") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E163")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com4
 Set Shp = .Slides(16).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 180, 350, 50)
     If Range("E162") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E162")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com5
 Set Shp = .Slides(16).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 160, 350, 50)
     If Range("E161") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E161")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com6
 Set Shp = .Slides(16).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 140, 350, 50)
      If Range("E160") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E160")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)

    End With

 With presppt

    ' création de la zone de texte

    Set Shp = .Slides(17).Shapes.AddTextbox(msoTextOrientationHorizontal, 70, 320, 600, 50)
    'insère la valeur de la Cellule E20 dans une zone de texte
   If Range("E20") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E20")
    'Modifie la couleur du texte
   Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
  '--------------Com1-VIERZON
 Set Shp = .Slides(17).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 240, 350, 50)
     If Range("E173") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E173")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com2
 Set Shp = .Slides(17).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 220, 350, 50)
     If Range("E172") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E172")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com3
 Set Shp = .Slides(17).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 200, 350, 50)
     If Range("E171") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E171")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com4
 Set Shp = .Slides(17).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 180, 350, 50)
     If Range("E170") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E170")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com5
 Set Shp = .Slides(17).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 160, 350, 50)
     If Range("E169") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E169")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com6
 Set Shp = .Slides(17).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 140, 350, 50)
      If Range("E168") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E168")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)

    End With

     With presppt

    ' création de la zone de texte

    Set Shp = .Slides(18).Shapes.AddTextbox(msoTextOrientationHorizontal, 70, 320, 600, 50)
    'insère la valeur de la Cellule E21 dans une zone de texte
   If Range("E21") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E21")
    'Modifie la couleur du texte
   Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
    '--------------com1-POITIERS
    Set Shp = .Slides(18).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 240, 350, 50)
     If Range("E181") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E181")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com2
 Set Shp = .Slides(18).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 220, 350, 50)
     If Range("E180") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E180")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com3
 Set Shp = .Slides(18).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 200, 350, 50)
     If Range("E179") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E179")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com4
 Set Shp = .Slides(18).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 180, 350, 50)
     If Range("E178") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E178")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com5
 Set Shp = .Slides(18).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 160, 350, 50)
     If Range("E177") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E177")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com6
 Set Shp = .Slides(18).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 140, 350, 50)
      If Range("E176") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E176")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)

    End With

     With presppt

    ' création de la zone de texte

    Set Shp = .Slides(19).Shapes.AddTextbox(msoTextOrientationHorizontal, 70, 320, 600, 50)
    'insère la valeur de la Cellule E23 dans une zone de texte
   If Range("E23") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E23")
    'Modifie la couleur du texte
   Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
  '---------------Com1-HOURCADE
 Set Shp = .Slides(19).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 240, 350, 50)
     If Range("E189") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E189")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com2
 Set Shp = .Slides(19).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 220, 350, 50)
     If Range("E188") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E188")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com3
 Set Shp = .Slides(19).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 200, 350, 50)
     If Range("E187") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E187")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com4
 Set Shp = .Slides(19).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 180, 350, 50)
     If Range("E186") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E186")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com5
 Set Shp = .Slides(19).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 160, 350, 50)
     If Range("E185") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E185")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com6
 Set Shp = .Slides(19).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 140, 350, 50)
      If Range("E184") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E184")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)

    End With

     With presppt

    ' création de la zone de texte

    Set Shp = .Slides(20).Shapes.AddTextbox(msoTextOrientationHorizontal, 70, 320, 600, 50)
    'insère la valeur de la Cellule E24 dans une zone de texte

   If Range("E24") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E24")
    'Modifie la couleur du texte
   Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
  '------------------Com1-ST JORY
 Set Shp = .Slides(20).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 240, 350, 50)
     If Range("E197") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E197")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com2
 Set Shp = .Slides(20).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 220, 350, 50)
     If Range("E196") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E196")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com3
 Set Shp = .Slides(20).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 200, 350, 50)
     If Range("E195") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E195")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com4
 Set Shp = .Slides(20).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 180, 350, 50)
     If Range("E194") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E194")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com5
 Set Shp = .Slides(20).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 160, 350, 50)
     If Range("E193") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E193")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com6
 Set Shp = .Slides(20).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 140, 350, 50)
      If Range("E192") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E192")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)

    End With

     With presppt

    ' création de la zone de texte

    Set Shp = .Slides(21).Shapes.AddTextbox(msoTextOrientationHorizontal, 70, 320, 600, 50)
    'insère la valeur de la Cellule E25 dans une zone de texte
   If Range("E25") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E25")
    'Modifie la couleur du texte
   Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
  '--------------------Com1-Vide CST AL SUD
    Set Shp = .Slides(21).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 240, 350, 50)
     If Range("E205") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E205")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com2
 Set Shp = .Slides(21).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 220, 350, 50)
     If Range("E204") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E204")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com3
 Set Shp = .Slides(21).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 200, 350, 50)
     If Range("E203") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E203")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com4
 Set Shp = .Slides(21).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 180, 350, 50)
     If Range("E202") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E202")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com5
 Set Shp = .Slides(21).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 160, 350, 50)
     If Range("E201") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E201")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com6
 Set Shp = .Slides(21).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 140, 350, 50)
      If Range("E200") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E200")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)

    End With

     With presppt

    ' création de la zone de texte

    Set Shp = .Slides(22).Shapes.AddTextbox(msoTextOrientationHorizontal, 70, 320, 600, 50)
    'insère la valeur de la Cellule E27 dans une zone de texte
   If Range("E27") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E27")
    'Modifie la couleur du texte
   Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
  '---------------Com1-PERRIGNY
     Set Shp = .Slides(22).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 240, 350, 50)
     If Range("E213") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E213")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com2
 Set Shp = .Slides(22).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 220, 350, 50)
     If Range("E212") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E212")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com3
 Set Shp = .Slides(22).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 200, 350, 50)
     If Range("E211") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E211")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com4
 Set Shp = .Slides(22).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 180, 350, 50)
     If Range("E210") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E210")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com5
 Set Shp = .Slides(22).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 160, 350, 50)
     If Range("E209") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E209")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com6
 Set Shp = .Slides(22).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 140, 350, 50)
      If Range("E208") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E208")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)

    End With

     With presppt

    ' création de la zone de texte

    Set Shp = .Slides(23).Shapes.AddTextbox(msoTextOrientationHorizontal, 70, 320, 600, 50)
    'insère la valeur de la Cellule E28 dans une zone de texte
    If Range("E28") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E28")
    'Modifie la couleur du texte
   Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
    '----------------Com1-GEVREY
     Set Shp = .Slides(23).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 240, 350, 50)
     If Range("E221") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E221")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com2
 Set Shp = .Slides(23).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 220, 350, 50)
     If Range("E220") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E220")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com3
 Set Shp = .Slides(23).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 200, 350, 50)
     If Range("E219") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E219")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com4
 Set Shp = .Slides(23).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 180, 350, 50)
     If Range("E218") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E218")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com5
 Set Shp = .Slides(23).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 160, 350, 50)
     If Range("E217") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E217")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com6
 Set Shp = .Slides(23).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 140, 350, 50)
      If Range("E216") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E216")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)

    End With

     With presppt

    ' création de la zone de texte

    Set Shp = .Slides(24).Shapes.AddTextbox(msoTextOrientationHorizontal, 70, 320, 600, 50)
    'insère la valeur de la Cellule E29 dans une zone de texte
   If Range("E29") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E29")
    'Modifie la couleur du texte
   Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
  '--------------com1-SIBELIN
      Set Shp = .Slides(24).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 240, 350, 50)
     If Range("E229") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E229")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com2
 Set Shp = .Slides(24).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 220, 350, 50)
     If Range("E228") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E228")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com3
 Set Shp = .Slides(24).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 200, 350, 50)
     If Range("E227") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E227")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com4
 Set Shp = .Slides(24).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 180, 350, 50)
     If Range("E226") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E226")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com5
 Set Shp = .Slides(24).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 160, 350, 50)
     If Range("E225") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E225")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com6
 Set Shp = .Slides(24).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 140, 350, 50)
      If Range("E224") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E224")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)

    End With

     With presppt

    ' création de la zone de texte

    Set Shp = .Slides(25).Shapes.AddTextbox(msoTextOrientationHorizontal, 70, 320, 600, 50)
    'insère la valeur de la Cellule E30 dans une zone de texte
   If Range("E30") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E30")
    'Modifie la couleur du texte
   Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
  '-------------------com1-MIRAMAS
    Set Shp = .Slides(25).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 240, 350, 50)
     If Range("E237") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E237")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com2
 Set Shp = .Slides(25).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 220, 350, 50)
     If Range("E236") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E236")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com3
 Set Shp = .Slides(25).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 200, 350, 50)
     If Range("E235") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E235")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com4
 Set Shp = .Slides(25).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 180, 350, 50)
     If Range("E234") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E234")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com5
 Set Shp = .Slides(25).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 160, 350, 50)
     If Range("E233") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E233")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com6
 Set Shp = .Slides(25).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 140, 350, 50)
      If Range("E232") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E232")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)

    End With

     With presppt

    ' création de la zone de texte

    Set Shp = .Slides(26).Shapes.AddTextbox(msoTextOrientationHorizontal, 70, 320, 600, 50)
    'insère la valeur de la Cellule E31 dans une zone de texte
   If Range("E31") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E31")
    'Modifie la couleur du texte
   Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
  '------------------com1-AMBERIEU
     Set Shp = .Slides(26).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 240, 350, 50)
     If Range("E245") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E245")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com2
 Set Shp = .Slides(26).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 220, 350, 50)
     If Range("E244") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E244")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com3
 Set Shp = .Slides(26).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 200, 350, 50)
     If Range("E243") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E243")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com4
 Set Shp = .Slides(26).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 180, 350, 50)
     If Range("E242") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E242")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com5
 Set Shp = .Slides(26).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 160, 350, 50)
     If Range("E241") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E241")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com6
 Set Shp = .Slides(26).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 140, 350, 50)
      If Range("E240") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E240")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)

    End With

     With presppt

    ' création de la zone de texte

    Set Shp = .Slides(27).Shapes.AddTextbox(msoTextOrientationHorizontal, 70, 320, 600, 50)
    'insère la valeur de la Cellule E32 dans une zone de texte
   If Range("E32") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E32")
    'Modifie la couleur du texte
   Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
  '-------------------Com1-NIMES
      Set Shp = .Slides(27).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 240, 350, 50)
     If Range("E253") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E253")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com2
 Set Shp = .Slides(27).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 220, 350, 50)
     If Range("E252") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E252")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com3
 Set Shp = .Slides(27).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 200, 350, 50)
     If Range("E251") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E251")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com4
 Set Shp = .Slides(27).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 180, 350, 50)
     If Range("E250") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E250")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com5
 Set Shp = .Slides(27).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 160, 350, 50)
     If Range("E249") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E249")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com6
 Set Shp = .Slides(27).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 140, 350, 50)
      If Range("E248") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E248")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)

    End With

     With presppt

    ' création de la zone de texte

    Set Shp = .Slides(28).Shapes.AddTextbox(msoTextOrientationHorizontal, 70, 320, 600, 50)
    'insère la valeur de la Cellule E33 dans une zone de texte
   If Range("E33") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E33")
    'Modifie la couleur du texte
   Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
  '--------------------com1-VIDE CST LYON
       Set Shp = .Slides(28).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 240, 350, 50)
     If Range("E261") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E261")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com2
 Set Shp = .Slides(28).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 220, 350, 50)
     If Range("E260") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E260")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com3
 Set Shp = .Slides(28).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 200, 350, 50)
     If Range("E259") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E259")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com4
 Set Shp = .Slides(28).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 180, 350, 50)
     If Range("E258") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E258")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com5
 Set Shp = .Slides(28).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 160, 350, 50)
     If Range("E257") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E257")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
     '--------com6
 Set Shp = .Slides(28).Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 140, 350, 50)
      If Range("E256") <> 0 Then Shp.TextFrame.TextRange.Text = Range("E256")
     Shp.TextFrame.TextRange.Font.Color = RGB(3, 34, 76)
    End With
    presppt.ExportAsFixedFormat presppt.Path & "\sortie\carte\" & Format(Date, "ddmmyyyy") & "_" & "Situation Relais" & ".pdf", ppFixedFormatTypePDF, ppFixedFormatIntentPrint

End Sub

thev a écrit :

Je ne sais pas pourquoi tu crées 2 instances d'application Powerpoint, en tout cas celle où se trouve ton fichier présentation s'appelle : PptApp.

Donc pour exporter ton fichier, il faut le préfixer par l'instance correspondante, soit :

PptApp.ActivePresentation.ExportAsFixedFormat  ......

OUi exactement c'était une erreur de ma part. trop de déclaration de variable. j'ai publié la réponse(le bon code) dans le dernier Commentaire.

J'ai une dernière question,

lors de le la mise a jour du PowerPoint, je souhaite cacher ça. C'est a dire le PowerPoint reste réduit et ne s'affiche pas sur l'écran comme ça les utilisateurs ne s'amusent pas a toucher des choses. Bien entendu j'ai utilisé ces deux code!

Application.ScreenUpdating = False

'le code

Application.ScreenUpdating = True

malheureusement ça ne change rien , le PPT s'ouvre je vois le déroulement des mises a jours. je ne sais pas quoi faire

Si tu veux cacher la mise à jour du PowerPoint, il suffit de masquer l'instance de l'application correspondant à l'ouverture de ton fichier :

PptApp.Visisible = False