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
- Messages
- 4'101
- Excel
- 2021 FR 64 bits
- Inscrit
- 13/06/2016
- Emploi
- bénévole associations Goutte d'Or
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
- Messages
- 4'101
- Excel
- 2021 FR 64 bits
- Inscrit
- 13/06/2016
- Emploi
- bénévole associations Goutte d'Or
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.
- Messages
- 4'101
- Excel
- 2021 FR 64 bits
- Inscrit
- 13/06/2016
- Emploi
- bénévole associations Goutte d'Or
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.
- Messages
- 4'101
- Excel
- 2021 FR 64 bits
- Inscrit
- 13/06/2016
- Emploi
- bénévole associations Goutte d'Or
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
- Messages
- 4'101
- Excel
- 2021 FR 64 bits
- Inscrit
- 13/06/2016
- Emploi
- bénévole associations Goutte d'Or
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
- Messages
- 4'101
- Excel
- 2021 FR 64 bits
- Inscrit
- 13/06/2016
- Emploi
- bénévole associations Goutte d'Or
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