Bonjour le Forum!!
Je me présente rapidement, Nicolas 32 ans Technicien solution impression et surtout PAS DÉVELOPPEUR.
j’ai un petit projet que je voudrai soumettre a mon boss mais je suis bloqué.
J’ai un petit problème 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.
Le problème mon code est trop grand
'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
Je pense qu’on peut faire une boucle pour ne pas avoir a réécrire tout le temps la même chose (c’est trop lourd)
Le truc c’est que je ne sais pas comment faire.
Auriez vous une idée pour me sauver la vie svp?
Je remercie d’avance tous les membres qui prendront le temps de m’aider.
A bientôt