Optimisation du code
n
Bonjour le Forum!!
J'ai un petit problème de taille de macro.
je m'explique.
je fais une macro qui m'ouvre un document dotm en fonction de certaines conditions.
si j'ai une machine il m'ouvre le dotm 1mach.dotm, si j'en ai 2 il m'ouvre 2mach.dotm et ainsi de suite.
Dans chaque fichier dotm il y a des signets (nom machine 1 cout machine 1 volume machine 1pour le fichier 1mach.dotm et nom machine 1 cout machine 1 volume machine 1+nom machine 2 cout machine 2 volume machine 2 pour le fichier 2mach.dotm et ainsi de suite.)
il faut donc que j'importe les informations à chaque fois.
'ouverture et insertion solution financiere machine
Dim wrdSolFiMach As Object
Set wrdApp6 = CreateObject("Word.Application")
wrdApp6.Visible = False
Set wrdDoc7 = wrdApp6.Documents.Open(cheminOpenSolFiMach)
If fusMach = 1 Then
AppWord.Run "Module1.SolFiMach1"
With Doc
'.InlineShapes.AddPicture Filename:=photoMachine1_2, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("sphotoMachine_1_2").Range
.Bookmarks("smodelesMachine_1_2").Range.Text = modelesMachine_1_2
.Bookmarks("svolMono_1").Range.Text = volMono_1
.Bookmarks("stpsMono_1").Range.Text = tpsMono_1
.Bookmarks("sdevise_1_Mono").Range.Text = devise_1_Mono
.Bookmarks("svolCoul_1").Range.Text = volCoul_1
.Bookmarks("stpsCoul_1").Range.Text = tpsCoul_1
.Bookmarks("sdevise_1_Coul").Range.Text = devise_1_Coul
End With
End If
If fusMach = 2 Then
AppWord.Run "Module1.SolFiMach2"
With Doc
.Bookmarks("smodelesMachine_1_2").Range.Text = modelesMachine_1_2
.Bookmarks("svolMono_1").Range.Text = volMono_1
.Bookmarks("stpsMono_1").Range.Text = tpsMono_1
.Bookmarks("sdevise_1_Mono").Range.Text = devise_1_Mono
.Bookmarks("svolCoul_1").Range.Text = volCoul_1
.Bookmarks("stpsCoul_1").Range.Text = tpsCoul_1
.Bookmarks("sdevise_1_Coul").Range.Text = devise_1_Coul
.Bookmarks("smodelesMachine_2_2").Range.Text = modelesMachine_2_2
.Bookmarks("svolMono_2").Range.Text = volMono_2
.Bookmarks("stpsMono_2").Range.Text = tpsMono_2
.Bookmarks("sdevise_2_Mono").Range.Text = devise_2_Mono
.Bookmarks("svolCoul_2").Range.Text = volCoul_2
.Bookmarks("stpsCoul_2").Range.Text = tpsCoul_2
.Bookmarks("sdevise_2_Coul").Range.Text = devise_2_Coul
End With
End If
If fusMach = 3 Then
AppWord.Run "Module1.SolFiMach3"
With Doc
End With
End If
If fusMach = 4 Then
AppWord.Run "Module1.SolFiMach4"
With Doc
End With
End If
If fusMach = 5 Then
AppWord.Run "Module1.SolFiMach5"
With Doc
End With
End If
If fusMach = 6 Then
AppWord.Run "Module1.SolFiMach6"
With Doc
End With
End If
If fusMach = 7 Then
AppWord.Run "Module1.SolFiMach7"
With Doc
End With
End If
If fusMach = 8 Then
AppWord.Run "Module1.SolFiMach8"
With Doc
End With
End If
If fusMach = 9 Then
AppWord.Run "Module1.SolFiMach9"
With Doc
End With
End If
If fusMach = 10 Then
AppWord.Run "Module1.SolFiMach10"
With Doc
End With
End If
wrdApp6.Quit
voici donc mon code (juste la partie qui sert)
et comme vous le voyez c'est très répétitif et lourd. je cherche donc a réduire ce gros pavé mais je n'y suis pas arrivé du coup je viens vers les pros.
Je vous remercie d'avance
Bonjour,
Regarde du côté de l'instruction Select...Case.
n
Bonjour,
Regarde du côté de l'instruction Select...Case.
Bonjour Jean-Eric
Tout d'abord merci pour ta réponse, par contre je ne vois pas trop comment utiliser le select ... Case.
Je suis un peu perdu du coup et surtout bloqué.
Merci d'avance à tous ceux qui me donneront un coup de main
n
Bonjour à tous
bon je n'arrive pas à résoudre mon problème voici une capture du message que j'ai.
et voici mon code en partie
Sub test2()
Dim wrdMach As Object
Set wrdApp1 = CreateObject("Word.Application")
wrdApp1.Visible = False
Set wrdDoc2 = wrdApp1.Documents.Open(cheminOpenMach)
'Doc.Content.InsertAfter wrdDoc2.Content
If fusMach = 1 Then
AppWord.Run "Module1.Machine1"
With Doc
photoMachine1 = cheminMachinesImages & "\" & photoMachine_1 & ".png"
logoMachine1 = cheminImages & "\" & logoMachine_1 & ".png"
picture_Machine_1 = Worksheets("Propal").Range("B246").Value
.InlineShapes.AddPicture Filename:=photoMachine1, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("sphotoMachine_1").Range
.Bookmarks("smodelesMachine_1").Range.Text = modelesMachine_1
.Bookmarks("squantitéMachine_1").Range.Text = quantitéMachine_1
.Bookmarks("stechnologieMachine_1").Range.Text = technologieMachine_1
.Bookmarks("sformatMachine_1").Range.Text = formatMachine_1
.Bookmarks("svitesseNB_COULEURMachine_1").Range.Text = vitesseNB_COULEURMachine_1
.InlineShapes.AddPicture Filename:=logoMachine1, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("slogoMachine_1").Range
End With
End If
If fusMach = 2 Then
With Doc
AppWord.Run "Module1.Machine2"
photoMachine1 = cheminMachinesImages & "\" & photoMachine_1 & ".png"
logoMachine1 = cheminImages & "\" & logoMachine_1 & ".png"
photoMachine2 = cheminMachinesImages & "\" & photoMachine_2 & ".png"
logoMachine2 = cheminImages & "\" & logoMachine_2 & ".png"
picture_Machine_1 = Worksheets("Propal").Range("B246").Value
picture_Machine_2 = Worksheets("Propal").Range("B247").Value
.InlineShapes.AddPicture Filename:=photoMachine1, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("sphotoMachine_1").Range
.Bookmarks("smodelesMachine_1").Range.Text = modelesMachine_1
.Bookmarks("squantitéMachine_1").Range.Text = quantitéMachine_1
.Bookmarks("stechnologieMachine_1").Range.Text = technologieMachine_1
.Bookmarks("sformatMachine_1").Range.Text = formatMachine_1
.Bookmarks("svitesseNB_COULEURMachine_1").Range.Text = vitesseNB_COULEURMachine_1
.InlineShapes.AddPicture Filename:=logoMachine1, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("slogoMachine_1").Range
.InlineShapes.AddPicture Filename:=photoMachine2, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("sphotoMachine_2").Range
.Bookmarks("smodelesMachine_2").Range.Text = modelesMachine_2
.Bookmarks("squantitéMachine_2").Range.Text = quantitéMachine_2
.Bookmarks("stechnologieMachine_2").Range.Text = technologieMachine_2
.Bookmarks("sformatMachine_2").Range.Text = formatMachine_2
.Bookmarks("svitesseNB_COULEURMachine_2").Range.Text = vitesseNB_COULEURMachine_2
.InlineShapes.AddPicture Filename:=logoMachine2, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("slogoMachine_2").Range
End With
End If
If fusMach = 3 Then
AppWord.Run "Module1.Machine3"
With Doc
photoMachine1 = cheminMachinesImages & "\" & photoMachine_1 & ".png"
logoMachine1 = cheminImages & "\" & logoMachine_1 & ".png"
photoMachine2 = cheminMachinesImages & "\" & photoMachine_2 & ".png"
logoMachine2 = cheminImages & "\" & logoMachine_2 & ".png"
photoMachine3 = cheminMachinesImages & "\" & photoMachine_3 & ".png"
logoMachine3 = cheminImages & "\" & logoMachine_3 & ".png"
picture_Machine_1 = Worksheets("Propal").Range("B246").Value
picture_Machine_2 = Worksheets("Propal").Range("B247").Value
picture_Machine_3 = Worksheets("Propal").Range("B248").Value
.InlineShapes.AddPicture Filename:=photoMachine1, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("sphotoMachine_1").Range
.Bookmarks("smodelesMachine_1").Range.Text = modelesMachine_1
.Bookmarks("squantitéMachine_1").Range.Text = quantitéMachine_1
.Bookmarks("stechnologieMachine_1").Range.Text = technologieMachine_1
.Bookmarks("sformatMachine_1").Range.Text = formatMachine_1
.Bookmarks("svitesseNB_COULEURMachine_1").Range.Text = vitesseNB_COULEURMachine_1
.InlineShapes.AddPicture Filename:=logoMachine1, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("slogoMachine_1").Range
.InlineShapes.AddPicture Filename:=photoMachine2, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("sphotoMachine_2").Range
.Bookmarks("smodelesMachine_2").Range.Text = modelesMachine_2
.Bookmarks("squantitéMachine_2").Range.Text = quantitéMachine_2
.Bookmarks("stechnologieMachine_2").Range.Text = technologieMachine_2
.Bookmarks("sformatMachine_2").Range.Text = formatMachine_2
.Bookmarks("svitesseNB_COULEURMachine_2").Range.Text = vitesseNB_COULEURMachine_2
.InlineShapes.AddPicture Filename:=logoMachine2, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("slogoMachine_2").Range
.InlineShapes.AddPicture Filename:=photoMachine3, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("sphotoMachine_3").Range
.Bookmarks("smodelesMachine_3").Range.Text = modelesMachine_3
.Bookmarks("squantitéMachine_3").Range.Text = quantitéMachine_3
.Bookmarks("stechnologieMachine_3").Range.Text = technologieMachine_3
.Bookmarks("sformatMachine_3").Range.Text = formatMachine_3
.Bookmarks("svitesseNB_COULEURMachine_3").Range.Text = vitesseNB_COULEURMachine_3
.InlineShapes.AddPicture Filename:=logoMachine3, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("slogoMachine_3").Range
End With
End If
If fusMach = 4 Then
AppWord.Run "Module1.Machine4"
With Doc
photoMachine1 = cheminMachinesImages & "\" & photoMachine_1 & ".png"
logoMachine1 = cheminImages & "\" & logoMachine_1 & ".png"
photoMachine2 = cheminMachinesImages & "\" & photoMachine_2 & ".png"
logoMachine2 = cheminImages & "\" & logoMachine_2 & ".png"
photoMachine3 = cheminMachinesImages & "\" & photoMachine_3 & ".png"
logoMachine3 = cheminImages & "\" & logoMachine_3 & ".png"
photoMachine4 = cheminMachinesImages & "\" & photoMachine_4 & ".png"
logoMachine4 = cheminImages & "\" & logoMachine_4 & ".png"
picture_Machine_1 = Worksheets("Propal").Range("B246").Value
picture_Machine_2 = Worksheets("Propal").Range("B247").Value
picture_Machine_3 = Worksheets("Propal").Range("B248").Value
picture_Machine_4 = Worksheets("Propal").Range("B249").Value
.InlineShapes.AddPicture Filename:=photoMachine1, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("sphotoMachine_1").Range
.Bookmarks("smodelesMachine_1").Range.Text = modelesMachine_1
.Bookmarks("squantitéMachine_1").Range.Text = quantitéMachine_1
.Bookmarks("stechnologieMachine_1").Range.Text = technologieMachine_1
.Bookmarks("sformatMachine_1").Range.Text = formatMachine_1
.Bookmarks("svitesseNB_COULEURMachine_1").Range.Text = vitesseNB_COULEURMachine_1
.InlineShapes.AddPicture Filename:=logoMachine1, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("slogoMachine_1").Range
.InlineShapes.AddPicture Filename:=photoMachine2, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("sphotoMachine_2").Range
.Bookmarks("smodelesMachine_2").Range.Text = modelesMachine_2
.Bookmarks("squantitéMachine_2").Range.Text = quantitéMachine_2
.Bookmarks("stechnologieMachine_2").Range.Text = technologieMachine_2
.Bookmarks("sformatMachine_2").Range.Text = formatMachine_2
.Bookmarks("svitesseNB_COULEURMachine_2").Range.Text = vitesseNB_COULEURMachine_2
.InlineShapes.AddPicture Filename:=logoMachine2, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("slogoMachine_2").Range
.InlineShapes.AddPicture Filename:=photoMachine3, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("sphotoMachine_3").Range
.Bookmarks("smodelesMachine_3").Range.Text = modelesMachine_3
.Bookmarks("squantitéMachine_3").Range.Text = quantitéMachine_3
.Bookmarks("stechnologieMachine_3").Range.Text = technologieMachine_3
.Bookmarks("sformatMachine_3").Range.Text = formatMachine_3
.Bookmarks("svitesseNB_COULEURMachine_3").Range.Text = vitesseNB_COULEURMachine_3
.InlineShapes.AddPicture Filename:=logoMachine3, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("slogoMachine_3").Range
.InlineShapes.AddPicture Filename:=photoMachine4, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("sphotoMachine_4").Range
.Bookmarks("smodelesMachine_4").Range.Text = modelesMachine_4
.Bookmarks("squantitéMachine_4").Range.Text = quantitéMachine_4
.Bookmarks("stechnologieMachine_4").Range.Text = technologieMachine_4
.Bookmarks("sformatMachine_4").Range.Text = formatMachine_4
.Bookmarks("svitesseNB_COULEURMachine_4").Range.Text = vitesseNB_COULEURMachine_4
.InlineShapes.AddPicture Filename:=logoMachine4, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("slogoMachine_4").Range
End With
End If
If fusMach = 5 Then
AppWord.Run "Module1.Machine5"
With Doc
photoMachine1 = cheminMachinesImages & "\" & photoMachine_1 & ".png"
logoMachine1 = cheminImages & "\" & logoMachine_1 & ".png"
photoMachine2 = cheminMachinesImages & "\" & photoMachine_2 & ".png"
logoMachine2 = cheminImages & "\" & logoMachine_2 & ".png"
photoMachine3 = cheminMachinesImages & "\" & photoMachine_3 & ".png"
logoMachine3 = cheminImages & "\" & logoMachine_3 & ".png"
photoMachine4 = cheminMachinesImages & "\" & photoMachine_4 & ".png"
logoMachine4 = cheminImages & "\" & logoMachine_4 & ".png"
photoMachine5 = cheminMachinesImages & "\" & photoMachine_5 & ".png"
logoMachine5 = cheminImages & "\" & logoMachine_5 & ".png"
picture_Machine_1 = Worksheets("Propal").Range("B246").Value
picture_Machine_2 = Worksheets("Propal").Range("B247").Value
picture_Machine_3 = Worksheets("Propal").Range("B248").Value
picture_Machine_4 = Worksheets("Propal").Range("B249").Value
picture_Machine_5 = Worksheets("Propal").Range("B250").Value
.InlineShapes.AddPicture Filename:=photoMachine1, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("sphotoMachine_1").Range
.Bookmarks("smodelesMachine_1").Range.Text = modelesMachine_1
.Bookmarks("squantitéMachine_1").Range.Text = quantitéMachine_1
.Bookmarks("stechnologieMachine_1").Range.Text = technologieMachine_1
.Bookmarks("sformatMachine_1").Range.Text = formatMachine_1
.Bookmarks("svitesseNB_COULEURMachine_1").Range.Text = vitesseNB_COULEURMachine_1
.InlineShapes.AddPicture Filename:=logoMachine1, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("slogoMachine_1").Range
.InlineShapes.AddPicture Filename:=photoMachine2, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("sphotoMachine_2").Range
.Bookmarks("smodelesMachine_2").Range.Text = modelesMachine_2
.Bookmarks("squantitéMachine_2").Range.Text = quantitéMachine_2
.Bookmarks("stechnologieMachine_2").Range.Text = technologieMachine_2
.Bookmarks("sformatMachine_2").Range.Text = formatMachine_2
.Bookmarks("svitesseNB_COULEURMachine_2").Range.Text = vitesseNB_COULEURMachine_2
.InlineShapes.AddPicture Filename:=logoMachine2, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("slogoMachine_2").Range
.InlineShapes.AddPicture Filename:=photoMachine3, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("sphotoMachine_3").Range
.Bookmarks("smodelesMachine_3").Range.Text = modelesMachine_3
.Bookmarks("squantitéMachine_3").Range.Text = quantitéMachine_3
.Bookmarks("stechnologieMachine_3").Range.Text = technologieMachine_3
.Bookmarks("sformatMachine_3").Range.Text = formatMachine_3
.Bookmarks("svitesseNB_COULEURMachine_3").Range.Text = vitesseNB_COULEURMachine_3
.InlineShapes.AddPicture Filename:=logoMachine3, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("slogoMachine_3").Range
.InlineShapes.AddPicture Filename:=photoMachine4, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("sphotoMachine_4").Range
.Bookmarks("smodelesMachine_4").Range.Text = modelesMachine_4
.Bookmarks("squantitéMachine_4").Range.Text = quantitéMachine_4
.Bookmarks("stechnologieMachine_4").Range.Text = technologieMachine_4
.Bookmarks("sformatMachine_4").Range.Text = formatMachine_4
.Bookmarks("svitesseNB_COULEURMachine_4").Range.Text = vitesseNB_COULEURMachine_4
.InlineShapes.AddPicture Filename:=logoMachine4, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("slogoMachine_4").Range
.InlineShapes.AddPicture Filename:=photoMachine5, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("sphotoMachine_5").Range
.Bookmarks("smodelesMachine_5").Range.Text = modelesMachine_5
.Bookmarks("squantitéMachine_5").Range.Text = quantitéMachine_5
.Bookmarks("stechnologieMachine_5").Range.Text = technologieMachine_5
.Bookmarks("sformatMachine_5").Range.Text = formatMachine_5
.Bookmarks("svitesseNB_COULEURMachine_5").Range.Text = vitesseNB_COULEURMachine_5
.InlineShapes.AddPicture Filename:=logoMachine5, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("slogoMachine_5").Range
End With
End If
If fusMach = 6 Then
AppWord.Run "Module1.Machine6"
With Doc
photoMachine1 = cheminMachinesImages & "\" & photoMachine_1 & ".png"
logoMachine1 = cheminImages & "\" & logoMachine_1 & ".png"
photoMachine2 = cheminMachinesImages & "\" & photoMachine_2 & ".png"
logoMachine2 = cheminImages & "\" & logoMachine_2 & ".png"
photoMachine3 = cheminMachinesImages & "\" & photoMachine_3 & ".png"
logoMachine3 = cheminImages & "\" & logoMachine_3 & ".png"
photoMachine4 = cheminMachinesImages & "\" & photoMachine_4 & ".png"
logoMachine4 = cheminImages & "\" & logoMachine_4 & ".png"
photoMachine5 = cheminMachinesImages & "\" & photoMachine_5 & ".png"
logoMachine5 = cheminImages & "\" & logoMachine_5 & ".png"
photoMachine6 = cheminMachinesImages & "\" & photoMachine_6 & ".png"
logoMachine6 = cheminImages & "\" & logoMachine_6 & ".png"
picture_Machine_1 = Worksheets("Propal").Range("B246").Value
picture_Machine_2 = Worksheets("Propal").Range("B247").Value
picture_Machine_3 = Worksheets("Propal").Range("B248").Value
picture_Machine_4 = Worksheets("Propal").Range("B249").Value
picture_Machine_5 = Worksheets("Propal").Range("B250").Value
picture_Machine_6 = Worksheets("Propal").Range("B251").Value
.InlineShapes.AddPicture Filename:=photoMachine1, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("sphotoMachine_1").Range
.Bookmarks("smodelesMachine_1").Range.Text = modelesMachine_1
.Bookmarks("squantitéMachine_1").Range.Text = quantitéMachine_1
.Bookmarks("stechnologieMachine_1").Range.Text = technologieMachine_1
.Bookmarks("sformatMachine_1").Range.Text = formatMachine_1
.Bookmarks("svitesseNB_COULEURMachine_1").Range.Text = vitesseNB_COULEURMachine_1
.InlineShapes.AddPicture Filename:=logoMachine1, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("slogoMachine_1").Range
.InlineShapes.AddPicture Filename:=photoMachine2, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("sphotoMachine_2").Range
.Bookmarks("smodelesMachine_2").Range.Text = modelesMachine_2
.Bookmarks("squantitéMachine_2").Range.Text = quantitéMachine_2
.Bookmarks("stechnologieMachine_2").Range.Text = technologieMachine_2
.Bookmarks("sformatMachine_2").Range.Text = formatMachine_2
.Bookmarks("svitesseNB_COULEURMachine_2").Range.Text = vitesseNB_COULEURMachine_2
.InlineShapes.AddPicture Filename:=logoMachine2, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("slogoMachine_2").Range
.InlineShapes.AddPicture Filename:=photoMachine3, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("sphotoMachine_3").Range
.Bookmarks("smodelesMachine_3").Range.Text = modelesMachine_3
.Bookmarks("squantitéMachine_3").Range.Text = quantitéMachine_3
.Bookmarks("stechnologieMachine_3").Range.Text = technologieMachine_3
.Bookmarks("sformatMachine_3").Range.Text = formatMachine_3
.Bookmarks("svitesseNB_COULEURMachine_3").Range.Text = vitesseNB_COULEURMachine_3
.InlineShapes.AddPicture Filename:=logoMachine3, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("slogoMachine_3").Range
.InlineShapes.AddPicture Filename:=photoMachine4, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("sphotoMachine_4").Range
.Bookmarks("smodelesMachine_4").Range.Text = modelesMachine_4
.Bookmarks("squantitéMachine_4").Range.Text = quantitéMachine_4
.Bookmarks("stechnologieMachine_4").Range.Text = technologieMachine_4
.Bookmarks("sformatMachine_4").Range.Text = formatMachine_4
.Bookmarks("svitesseNB_COULEURMachine_4").Range.Text = vitesseNB_COULEURMachine_4
.InlineShapes.AddPicture Filename:=logoMachine4, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("slogoMachine_4").Range
.InlineShapes.AddPicture Filename:=photoMachine5, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("sphotoMachine_5").Range
.Bookmarks("smodelesMachine_5").Range.Text = modelesMachine_5
.Bookmarks("squantitéMachine_5").Range.Text = quantitéMachine_5
.Bookmarks("stechnologieMachine_5").Range.Text = technologieMachine_5
.Bookmarks("sformatMachine_5").Range.Text = formatMachine_5
.Bookmarks("svitesseNB_COULEURMachine_5").Range.Text = vitesseNB_COULEURMachine_5
.InlineShapes.AddPicture Filename:=logoMachine5, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("slogoMachine_5").Range
.InlineShapes.AddPicture Filename:=photoMachine6, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("sphotoMachine_6").Range
.Bookmarks("smodelesMachine_6").Range.Text = modelesMachine_6
.Bookmarks("squantitéMachine_6").Range.Text = quantitéMachine_6
.Bookmarks("stechnologieMachine_6").Range.Text = technologieMachine_6
.Bookmarks("sformatMachine_6").Range.Text = formatMachine_6
.Bookmarks("svitesseNB_COULEURMachine_6").Range.Text = vitesseNB_COULEURMachine_6
.InlineShapes.AddPicture Filename:=logoMachine6, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("slogoMachine_6").Range
End With
End If
If fusMach = 7 Then
AppWord.Run "Module1.Machine7"
With Doc
photoMachine1 = cheminMachinesImages & "\" & photoMachine_1 & ".png"
logoMachine1 = cheminImages & "\" & logoMachine_1 & ".png"
photoMachine2 = cheminMachinesImages & "\" & photoMachine_2 & ".png"
logoMachine2 = cheminImages & "\" & logoMachine_2 & ".png"
photoMachine3 = cheminMachinesImages & "\" & photoMachine_3 & ".png"
logoMachine3 = cheminImages & "\" & logoMachine_3 & ".png"
photoMachine4 = cheminMachinesImages & "\" & photoMachine_4 & ".png"
logoMachine4 = cheminImages & "\" & logoMachine_4 & ".png"
photoMachine5 = cheminMachinesImages & "\" & photoMachine_5 & ".png"
logoMachine5 = cheminImages & "\" & logoMachine_5 & ".png"
photoMachine6 = cheminMachinesImages & "\" & photoMachine_6 & ".png"
logoMachine6 = cheminImages & "\" & logoMachine_6 & ".png"
photoMachine7 = cheminMachinesImages & "\" & photoMachine_7 & ".png"
logoMachine7 = cheminImages & "\" & logoMachine_7 & ".png"
picture_Machine_1 = Worksheets("Propal").Range("B246").Value
picture_Machine_2 = Worksheets("Propal").Range("B247").Value
picture_Machine_3 = Worksheets("Propal").Range("B248").Value
picture_Machine_4 = Worksheets("Propal").Range("B249").Value
picture_Machine_5 = Worksheets("Propal").Range("B250").Value
picture_Machine_6 = Worksheets("Propal").Range("B251").Value
picture_Machine_7 = Worksheets("Propal").Range("B252").Value
.InlineShapes.AddPicture Filename:=photoMachine1, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("sphotoMachine_1").Range
.Bookmarks("smodelesMachine_1").Range.Text = modelesMachine_1
.Bookmarks("squantitéMachine_1").Range.Text = quantitéMachine_1
.Bookmarks("stechnologieMachine_1").Range.Text = technologieMachine_1
.Bookmarks("sformatMachine_1").Range.Text = formatMachine_1
.Bookmarks("svitesseNB_COULEURMachine_1").Range.Text = vitesseNB_COULEURMachine_1
.InlineShapes.AddPicture Filename:=logoMachine1, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("slogoMachine_1").Range
.InlineShapes.AddPicture Filename:=photoMachine2, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("sphotoMachine_2").Range
.Bookmarks("smodelesMachine_2").Range.Text = modelesMachine_2
.Bookmarks("squantitéMachine_2").Range.Text = quantitéMachine_2
.Bookmarks("stechnologieMachine_2").Range.Text = technologieMachine_2
.Bookmarks("sformatMachine_2").Range.Text = formatMachine_2
.Bookmarks("svitesseNB_COULEURMachine_2").Range.Text = vitesseNB_COULEURMachine_2
.InlineShapes.AddPicture Filename:=logoMachine2, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("slogoMachine_2").Range
.InlineShapes.AddPicture Filename:=photoMachine3, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("sphotoMachine_3").Range
.Bookmarks("smodelesMachine_3").Range.Text = modelesMachine_3
.Bookmarks("squantitéMachine_3").Range.Text = quantitéMachine_3
.Bookmarks("stechnologieMachine_3").Range.Text = technologieMachine_3
.Bookmarks("sformatMachine_3").Range.Text = formatMachine_3
.Bookmarks("svitesseNB_COULEURMachine_3").Range.Text = vitesseNB_COULEURMachine_3
.InlineShapes.AddPicture Filename:=logoMachine3, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("slogoMachine_3").Range
.InlineShapes.AddPicture Filename:=photoMachine4, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("sphotoMachine_4").Range
.Bookmarks("smodelesMachine_4").Range.Text = modelesMachine_4
.Bookmarks("squantitéMachine_4").Range.Text = quantitéMachine_4
.Bookmarks("stechnologieMachine_4").Range.Text = technologieMachine_4
.Bookmarks("sformatMachine_4").Range.Text = formatMachine_4
.Bookmarks("svitesseNB_COULEURMachine_4").Range.Text = vitesseNB_COULEURMachine_4
.InlineShapes.AddPicture Filename:=logoMachine4, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("slogoMachine_4").Range
.InlineShapes.AddPicture Filename:=photoMachine5, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("sphotoMachine_5").Range
.Bookmarks("smodelesMachine_5").Range.Text = modelesMachine_5
.Bookmarks("squantitéMachine_5").Range.Text = quantitéMachine_5
.Bookmarks("stechnologieMachine_5").Range.Text = technologieMachine_5
.Bookmarks("sformatMachine_5").Range.Text = formatMachine_5
.Bookmarks("svitesseNB_COULEURMachine_5").Range.Text = vitesseNB_COULEURMachine_5
.InlineShapes.AddPicture Filename:=logoMachine5, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("slogoMachine_5").Range
.InlineShapes.AddPicture Filename:=photoMachine6, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("sphotoMachine_6").Range
.Bookmarks("smodelesMachine_6").Range.Text = modelesMachine_6
.Bookmarks("squantitéMachine_6").Range.Text = quantitéMachine_6
.Bookmarks("stechnologieMachine_6").Range.Text = technologieMachine_6
.Bookmarks("sformatMachine_6").Range.Text = formatMachine_6
.Bookmarks("svitesseNB_COULEURMachine_6").Range.Text = vitesseNB_COULEURMachine_6
.InlineShapes.AddPicture Filename:=logoMachine6, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("slogoMachine_6").Range
.InlineShapes.AddPicture Filename:=photoMachine7, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("sphotoMachine_7").Range
.Bookmarks("smodelesMachine_7").Range.Text = modelesMachine_7
.Bookmarks("squantitéMachine_7").Range.Text = quantitéMachine_7
.Bookmarks("stechnologieMachine_7").Range.Text = technologieMachine_7
.Bookmarks("sformatMachine_7").Range.Text = formatMachine_7
.Bookmarks("svitesseNB_COULEURMachine_7").Range.Text = vitesseNB_COULEURMachine_7
.InlineShapes.AddPicture Filename:=logoMachine7, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("slogoMachine_7").Range
End With
End If
wrdApp1.Quit
'----------------------------------------------------------------------------------------------------------------------------------------------------------
'ouverture et insertion solution financiere machine
Dim wrdSolFiMach As Object
Set wrdApp6 = CreateObject("Word.Application")
wrdApp6.Visible = False
Set wrdDoc7 = wrdApp6.Documents.Open(cheminOpenSolFiMach)
If fusMach = 1 Then
AppWord.Run "Module1.SolFiMach1"
With Doc
photoMachine1_2 = cheminMachinesImages & "\" & photoMachine_1_2 & ".png"
.InlineShapes.AddPicture Filename:=photoMachine1_2, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("sphotoMachine_1_2").Range
.Bookmarks("smodelesMachine_1_2").Range.Text = modelesMachine_1_2
.Bookmarks("svolMono_1").Range.Text = volMono_1
.Bookmarks("stpsMono_1").Range.Text = tpsMono_1
.Bookmarks("sdevise_1_Mono").Range.Text = devise_1_Mono
.Bookmarks("svolCoul_1").Range.Text = volCoul_1
.Bookmarks("stpsCoul_1").Range.Text = tpsCoul_1
.Bookmarks("sdevise_1_Coul").Range.Text = devise_1_Coul
End With
End If
If fusMach = 2 Then
AppWord.Run "Module1.SolFiMach2"
With Doc
photoMachine1_2 = cheminMachinesImages & "\" & photoMachine_1_2 & ".png"
photoMachine2_2 = cheminMachinesImages & "\" & photoMachine_2_2 & ".png"
.InlineShapes.AddPicture Filename:=photoMachine1_2, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("sphotoMachine_1_2").Range
.Bookmarks("smodelesMachine_1_2").Range.Text = modelesMachine_1_2
.Bookmarks("svolMono_1").Range.Text = volMono_1
.Bookmarks("stpsMono_1").Range.Text = tpsMono_1
.Bookmarks("sdevise_1_Mono").Range.Text = devise_1_Mono
.Bookmarks("svolCoul_1").Range.Text = volCoul_1
.Bookmarks("stpsCoul_1").Range.Text = tpsCoul_1
.Bookmarks("sdevise_1_Coul").Range.Text = devise_1_Coul
.InlineShapes.AddPicture Filename:=photoMachine2_2, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("sphotoMachine_2_2").Range
.Bookmarks("smodelesMachine_2_2").Range.Text = modelesMachine_2_2
.Bookmarks("svolMono_2").Range.Text = volMono_2
.Bookmarks("stpsMono_2").Range.Text = tpsMono_2
.Bookmarks("sdevise_2_Mono").Range.Text = devise_2_Mono
.Bookmarks("svolCoul_2").Range.Text = volCoul_2
.Bookmarks("stpsCoul_2").Range.Text = tpsCoul_2
.Bookmarks("sdevise_2_Coul").Range.Text = devise_2_Coul
End With
End If
If fusMach = 3 Then
AppWord.Run "Module1.SolFiMach3"
With Doc
photoMachine1_2 = cheminMachinesImages & "\" & photoMachine_1_2 & ".png"
photoMachine2_2 = cheminMachinesImages & "\" & photoMachine_2_2 & ".png"
photoMachine3_2 = cheminMachinesImages & "\" & photoMachine_3_2 & ".png"
.InlineShapes.AddPicture Filename:=photoMachine1_2, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("sphotoMachine_1_2").Range
.Bookmarks("smodelesMachine_1_2").Range.Text = modelesMachine_1_2
.Bookmarks("svolMono_1").Range.Text = volMono_1
.Bookmarks("stpsMono_1").Range.Text = tpsMono_1
.Bookmarks("sdevise_1_Mono").Range.Text = devise_1_Mono
.Bookmarks("svolCoul_1").Range.Text = volCoul_1
.Bookmarks("stpsCoul_1").Range.Text = tpsCoul_1
.Bookmarks("sdevise_1_Coul").Range.Text = devise_1_Coul
.InlineShapes.AddPicture Filename:=photoMachine2_2, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("sphotoMachine_2_2").Range
.Bookmarks("smodelesMachine_2_2").Range.Text = modelesMachine_2_2
.Bookmarks("svolMono_2").Range.Text = volMono_2
.Bookmarks("stpsMono_2").Range.Text = tpsMono_2
.Bookmarks("sdevise_2_Mono").Range.Text = devise_2_Mono
.Bookmarks("svolCoul_2").Range.Text = volCoul_2
.Bookmarks("stpsCoul_2").Range.Text = tpsCoul_2
.Bookmarks("sdevise_2_Coul").Range.Text = devise_2_Coul
.InlineShapes.AddPicture Filename:=photoMachine3_2, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("sphotoMachine_3_2").Range
.Bookmarks("smodelesMachine_3_2").Range.Text = modelesMachine_3_2
.Bookmarks("svolMono_3").Range.Text = volMono_3
.Bookmarks("stpsMono_3").Range.Text = tpsMono_3
.Bookmarks("sdevise_3_Mono").Range.Text = devise_3_Mono
.Bookmarks("svolCoul_3").Range.Text = volCoul_3
.Bookmarks("stpsCoul_3").Range.Text = tpsCoul_3
.Bookmarks("sdevise_3_Coul").Range.Text = devise_3_Coul
End With
End If
If fusMach = 4 Then
AppWord.Run "Module1.SolFiMach4"
With Doc
photoMachine1_2 = cheminMachinesImages & "\" & photoMachine_1_2 & ".png"
photoMachine2_2 = cheminMachinesImages & "\" & photoMachine_2_2 & ".png"
photoMachine3_2 = cheminMachinesImages & "\" & photoMachine_3_2 & ".png"
photoMachine4_2 = cheminMachinesImages & "\" & photoMachine_4_2 & ".png"
.InlineShapes.AddPicture Filename:=photoMachine1_2, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("sphotoMachine_1_2").Range
.Bookmarks("smodelesMachine_1_2").Range.Text = modelesMachine_1_2
.Bookmarks("svolMono_1").Range.Text = volMono_1
.Bookmarks("stpsMono_1").Range.Text = tpsMono_1
.Bookmarks("sdevise_1_Mono").Range.Text = devise_1_Mono
.Bookmarks("svolCoul_1").Range.Text = volCoul_1
.Bookmarks("stpsCoul_1").Range.Text = tpsCoul_1
.Bookmarks("sdevise_1_Coul").Range.Text = devise_1_Coul
.InlineShapes.AddPicture Filename:=photoMachine2_2, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("sphotoMachine_2_2").Range
.Bookmarks("smodelesMachine_2_2").Range.Text = modelesMachine_2_2
.Bookmarks("svolMono_2").Range.Text = volMono_2
.Bookmarks("stpsMono_2").Range.Text = tpsMono_2
.Bookmarks("sdevise_2_Mono").Range.Text = devise_2_Mono
.Bookmarks("svolCoul_2").Range.Text = volCoul_2
.Bookmarks("stpsCoul_2").Range.Text = tpsCoul_2
.Bookmarks("sdevise_2_Coul").Range.Text = devise_2_Coul
.InlineShapes.AddPicture Filename:=photoMachine3_2, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("sphotoMachine_3_2").Range
.Bookmarks("smodelesMachine_3_2").Range.Text = modelesMachine_3_2
.Bookmarks("svolMono_3").Range.Text = volMono_3
.Bookmarks("stpsMono_3").Range.Text = tpsMono_3
.Bookmarks("sdevise_3_Mono").Range.Text = devise_3_Mono
.Bookmarks("svolCoul_3").Range.Text = volCoul_3
.Bookmarks("stpsCoul_3").Range.Text = tpsCoul_3
.Bookmarks("sdevise_3_Coul").Range.Text = devise_3_Coul
.InlineShapes.AddPicture Filename:=photoMachine4_2, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("sphotoMachine_4_2").Range
.Bookmarks("smodelesMachine_4_2").Range.Text = modelesMachine_4_2
.Bookmarks("svolMono_4").Range.Text = volMono_4
.Bookmarks("stpsMono_4").Range.Text = tpsMono_4
.Bookmarks("sdevise_4_Mono").Range.Text = devise_4_Mono
.Bookmarks("svolCoul_4").Range.Text = volCoul_4
.Bookmarks("stpsCoul_4").Range.Text = tpsCoul_4
.Bookmarks("sdevise_4_Coul").Range.Text = devise_4_Coul
End With
End If
If fusMach = 5 Then
AppWord.Run "Module1.SolFiMach5"
With Doc
photoMachine1_2 = cheminMachinesImages & "\" & photoMachine_1_2 & ".png"
photoMachine2_2 = cheminMachinesImages & "\" & photoMachine_2_2 & ".png"
photoMachine3_2 = cheminMachinesImages & "\" & photoMachine_3_2 & ".png"
photoMachine4_2 = cheminMachinesImages & "\" & photoMachine_4_2 & ".png"
photoMachine5_2 = cheminMachinesImages & "\" & photoMachine_5_2 & ".png"
.InlineShapes.AddPicture Filename:=photoMachine1_2, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("sphotoMachine_1_2").Range
.Bookmarks("smodelesMachine_1_2").Range.Text = modelesMachine_1_2
.Bookmarks("svolMono_1").Range.Text = volMono_1
.Bookmarks("stpsMono_1").Range.Text = tpsMono_1
.Bookmarks("sdevise_1_Mono").Range.Text = devise_1_Mono
.Bookmarks("svolCoul_1").Range.Text = volCoul_1
.Bookmarks("stpsCoul_1").Range.Text = tpsCoul_1
.Bookmarks("sdevise_1_Coul").Range.Text = devise_1_Coul
.InlineShapes.AddPicture Filename:=photoMachine2_2, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("sphotoMachine_2_2").Range
.Bookmarks("smodelesMachine_2_2").Range.Text = modelesMachine_2_2
.Bookmarks("svolMono_2").Range.Text = volMono_2
.Bookmarks("stpsMono_2").Range.Text = tpsMono_2
.Bookmarks("sdevise_2_Mono").Range.Text = devise_2_Mono
.Bookmarks("svolCoul_2").Range.Text = volCoul_2
.Bookmarks("stpsCoul_2").Range.Text = tpsCoul_2
.Bookmarks("sdevise_2_Coul").Range.Text = devise_2_Coul
.InlineShapes.AddPicture Filename:=photoMachine3_2, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("sphotoMachine_3_2").Range
.Bookmarks("smodelesMachine_3_2").Range.Text = modelesMachine_3_2
.Bookmarks("svolMono_3").Range.Text = volMono_3
.Bookmarks("stpsMono_3").Range.Text = tpsMono_3
.Bookmarks("sdevise_3_Mono").Range.Text = devise_3_Mono
.Bookmarks("svolCoul_3").Range.Text = volCoul_3
.Bookmarks("stpsCoul_3").Range.Text = tpsCoul_3
.Bookmarks("sdevise_3_Coul").Range.Text = devise_3_Coul
.InlineShapes.AddPicture Filename:=photoMachine4_2, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("sphotoMachine_4_2").Range
.Bookmarks("smodelesMachine_4_2").Range.Text = modelesMachine_4_2
.Bookmarks("svolMono_4").Range.Text = volMono_4
.Bookmarks("stpsMono_4").Range.Text = tpsMono_4
.Bookmarks("sdevise_4_Mono").Range.Text = devise_4_Mono
.Bookmarks("svolCoul_4").Range.Text = volCoul_4
.Bookmarks("stpsCoul_4").Range.Text = tpsCoul_4
.Bookmarks("sdevise_4_Coul").Range.Text = devise_4_Coul
.InlineShapes.AddPicture Filename:=photoMachine5_2, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("sphotoMachine_5_2").Range
.Bookmarks("smodelesMachine_5_2").Range.Text = modelesMachine_5_2
.Bookmarks("svolMono_5").Range.Text = volMono_5
.Bookmarks("stpsMono_5").Range.Text = tpsMono_5
.Bookmarks("sdevise_5_Mono").Range.Text = devise_5_Mono
.Bookmarks("svolCoul_5").Range.Text = volCoul_5
.Bookmarks("stpsCoul_5").Range.Text = tpsCoul_5
.Bookmarks("sdevise_5_Coul").Range.Text = devise_5_Coul
End With
End If
If fusMach = 6 Then
AppWord.Run "Module1.SolFiMach6"
With Doc
photoMachine1_2 = cheminMachinesImages & "\" & photoMachine_1_2 & ".png"
photoMachine2_2 = cheminMachinesImages & "\" & photoMachine_2_2 & ".png"
photoMachine3_2 = cheminMachinesImages & "\" & photoMachine_3_2 & ".png"
photoMachine4_2 = cheminMachinesImages & "\" & photoMachine_4_2 & ".png"
photoMachine5_2 = cheminMachinesImages & "\" & photoMachine_5_2 & ".png"
photoMachine6_2 = cheminMachinesImages & "\" & photoMachine_6_2 & ".png"
.InlineShapes.AddPicture Filename:=photoMachine1_2, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("sphotoMachine_1_2").Range
.Bookmarks("smodelesMachine_1_2").Range.Text = modelesMachine_1_2
.Bookmarks("svolMono_1").Range.Text = volMono_1
.Bookmarks("stpsMono_1").Range.Text = tpsMono_1
.Bookmarks("sdevise_1_Mono").Range.Text = devise_1_Mono
.Bookmarks("svolCoul_1").Range.Text = volCoul_1
.Bookmarks("stpsCoul_1").Range.Text = tpsCoul_1
.Bookmarks("sdevise_1_Coul").Range.Text = devise_1_Coul
.InlineShapes.AddPicture Filename:=photoMachine2_2, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("sphotoMachine_2_2").Range
.Bookmarks("smodelesMachine_2_2").Range.Text = modelesMachine_2_2
.Bookmarks("svolMono_2").Range.Text = volMono_2
.Bookmarks("stpsMono_2").Range.Text = tpsMono_2
.Bookmarks("sdevise_2_Mono").Range.Text = devise_2_Mono
.Bookmarks("svolCoul_2").Range.Text = volCoul_2
.Bookmarks("stpsCoul_2").Range.Text = tpsCoul_2
.Bookmarks("sdevise_2_Coul").Range.Text = devise_2_Coul
.InlineShapes.AddPicture Filename:=photoMachine3_2, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("sphotoMachine_3_2").Range
.Bookmarks("smodelesMachine_3_2").Range.Text = modelesMachine_3_2
.Bookmarks("svolMono_3").Range.Text = volMono_3
.Bookmarks("stpsMono_3").Range.Text = tpsMono_3
.Bookmarks("sdevise_3_Mono").Range.Text = devise_3_Mono
.Bookmarks("svolCoul_3").Range.Text = volCoul_3
.Bookmarks("stpsCoul_3").Range.Text = tpsCoul_3
.Bookmarks("sdevise_3_Coul").Range.Text = devise_3_Coul
.InlineShapes.AddPicture Filename:=photoMachine4_2, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("sphotoMachine_4_2").Range
.Bookmarks("smodelesMachine_4_2").Range.Text = modelesMachine_4_2
.Bookmarks("svolMono_4").Range.Text = volMono_4
.Bookmarks("stpsMono_4").Range.Text = tpsMono_4
.Bookmarks("sdevise_4_Mono").Range.Text = devise_4_Mono
.Bookmarks("svolCoul_4").Range.Text = volCoul_4
.Bookmarks("stpsCoul_4").Range.Text = tpsCoul_4
.Bookmarks("sdevise_4_Coul").Range.Text = devise_4_Coul
.InlineShapes.AddPicture Filename:=photoMachine5_2, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("sphotoMachine_5_2").Range
.Bookmarks("smodelesMachine_5_2").Range.Text = modelesMachine_5_2
.Bookmarks("svolMono_5").Range.Text = volMono_5
.Bookmarks("stpsMono_5").Range.Text = tpsMono_5
.Bookmarks("sdevise_5_Mono").Range.Text = devise_5_Mono
.Bookmarks("svolCoul_5").Range.Text = volCoul_5
.Bookmarks("stpsCoul_5").Range.Text = tpsCoul_5
.Bookmarks("sdevise_5_Coul").Range.Text = devise_5_Coul
.InlineShapes.AddPicture Filename:=photoMachine6_2, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("sphotoMachine_6_2").Range
.Bookmarks("smodelesMachine_6_2").Range.Text = modelesMachine_6_2
.Bookmarks("svolMono_6").Range.Text = volMono_6
.Bookmarks("stpsMono_6").Range.Text = tpsMono_6
.Bookmarks("sdevise_6_Mono").Range.Text = devise_6_Mono
.Bookmarks("svolCoul_6").Range.Text = volCoul_6
.Bookmarks("stpsCoul_6").Range.Text = tpsCoul_6
.Bookmarks("sdevise_6_Coul").Range.Text = devise_6_Coul
End With
End If
If fusMach = 7 Then
AppWord.Run "Module1.SolFiMach7"
With Doc
photoMachine1_2 = cheminMachinesImages & "\" & photoMachine_1_2 & ".png"
photoMachine2_2 = cheminMachinesImages & "\" & photoMachine_2_2 & ".png"
photoMachine3_2 = cheminMachinesImages & "\" & photoMachine_3_2 & ".png"
photoMachine4_2 = cheminMachinesImages & "\" & photoMachine_4_2 & ".png"
photoMachine5_2 = cheminMachinesImages & "\" & photoMachine_5_2 & ".png"
photoMachine6_2 = cheminMachinesImages & "\" & photoMachine_6_2 & ".png"
photoMachine7_2 = cheminMachinesImages & "\" & photoMachine_7_2 & ".png"
.InlineShapes.AddPicture Filename:=photoMachine1_2, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("sphotoMachine_1_2").Range
.Bookmarks("smodelesMachine_1_2").Range.Text = modelesMachine_1_2
.Bookmarks("svolMono_1").Range.Text = volMono_1
.Bookmarks("stpsMono_1").Range.Text = tpsMono_1
.Bookmarks("sdevise_1_Mono").Range.Text = devise_1_Mono
.Bookmarks("svolCoul_1").Range.Text = volCoul_1
.Bookmarks("stpsCoul_1").Range.Text = tpsCoul_1
.Bookmarks("sdevise_1_Coul").Range.Text = devise_1_Coul
.InlineShapes.AddPicture Filename:=photoMachine2_2, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("sphotoMachine_2_2").Range
.Bookmarks("smodelesMachine_2_2").Range.Text = modelesMachine_2_2
.Bookmarks("svolMono_2").Range.Text = volMono_2
.Bookmarks("stpsMono_2").Range.Text = tpsMono_2
.Bookmarks("sdevise_2_Mono").Range.Text = devise_2_Mono
.Bookmarks("svolCoul_2").Range.Text = volCoul_2
.Bookmarks("stpsCoul_2").Range.Text = tpsCoul_2
.Bookmarks("sdevise_2_Coul").Range.Text = devise_2_Coul
.InlineShapes.AddPicture Filename:=photoMachine3_2, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("sphotoMachine_3_2").Range
.Bookmarks("smodelesMachine_3_2").Range.Text = modelesMachine_3_2
.Bookmarks("svolMono_3").Range.Text = volMono_3
.Bookmarks("stpsMono_3").Range.Text = tpsMono_3
.Bookmarks("sdevise_3_Mono").Range.Text = devise_3_Mono
.Bookmarks("svolCoul_3").Range.Text = volCoul_3
.Bookmarks("stpsCoul_3").Range.Text = tpsCoul_3
.Bookmarks("sdevise_3_Coul").Range.Text = devise_3_Coul
.InlineShapes.AddPicture Filename:=photoMachine4_2, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("sphotoMachine_4_2").Range
.Bookmarks("smodelesMachine_4_2").Range.Text = modelesMachine_4_2
.Bookmarks("svolMono_4").Range.Text = volMono_4
.Bookmarks("stpsMono_4").Range.Text = tpsMono_4
.Bookmarks("sdevise_4_Mono").Range.Text = devise_4_Mono
.Bookmarks("svolCoul_4").Range.Text = volCoul_4
.Bookmarks("stpsCoul_4").Range.Text = tpsCoul_4
.Bookmarks("sdevise_4_Coul").Range.Text = devise_4_Coul
.InlineShapes.AddPicture Filename:=photoMachine5_2, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("sphotoMachine_5_2").Range
.Bookmarks("smodelesMachine_5_2").Range.Text = modelesMachine_5_2
.Bookmarks("svolMono_5").Range.Text = volMono_5
.Bookmarks("stpsMono_5").Range.Text = tpsMono_5
.Bookmarks("sdevise_5_Mono").Range.Text = devise_5_Mono
.Bookmarks("svolCoul_5").Range.Text = volCoul_5
.Bookmarks("stpsCoul_5").Range.Text = tpsCoul_5
.Bookmarks("sdevise_5_Coul").Range.Text = devise_5_Coul
.InlineShapes.AddPicture Filename:=photoMachine6_2, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("sphotoMachine_6_2").Range
.Bookmarks("smodelesMachine_6_2").Range.Text = modelesMachine_6_2
.Bookmarks("svolMono_6").Range.Text = volMono_6
.Bookmarks("stpsMono_6").Range.Text = tpsMono_6
.Bookmarks("sdevise_6_Mono").Range.Text = devise_6_Mono
.Bookmarks("svolCoul_6").Range.Text = volCoul_6
.Bookmarks("stpsCoul_6").Range.Text = tpsCoul_6
.Bookmarks("sdevise_6_Coul").Range.Text = devise_6_Coul
.InlineShapes.AddPicture Filename:=photoMachine7_2, LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks("sphotoMachine_7_2").Range
.Bookmarks("smodelesMachine_7_2").Range.Text = modelesMachine_7_2
.Bookmarks("svolMono_7").Range.Text = volMono_7
.Bookmarks("stpsMono_7").Range.Text = tpsMono_7
.Bookmarks("sdevise_7_Mono").Range.Text = devise_7_Mono
.Bookmarks("svolCoul_7").Range.Text = volCoul_7
.Bookmarks("stpsCoul_7").Range.Text = tpsCoul_7
.Bookmarks("sdevise_7_Coul").Range.Text = devise_7_Coul
End With
End If
wrdApp6.Quit
'----------------------------------------------------------------------------------------------------------------------------------------------------------
'----------------------------------------------------------------------------------------------------------------------------------------------------------
End With
End Subn
voila la suite de mon poste précédant car il y avait trop de caractères...
Si j’enlève une partie du code (If fusMach = 7 Then) il n'y a plus ce message d'erreur.
Comme vous le voyez le code est répétitif, je cherche un moyen de l'optimiser mais je n'y arrive pas.
j'ai essayé la méthode Select...Case. proposé par Jean-Eric mais je ne comprend pas trop son fonctionnement pour mon cas.
Si vous avez d'autres idées ou explications je suis preneur.
Merci à tous
Nico
n
Re-bonjour à tous.
je suis toujours bloqué.
je désespère un peu pour tout vous dire.
Du coup je relance.
Merci à tous