Enregistrer paramètres USF Word dans feuille Excel

Sub ouvrirClasseurExcel()
Dim appXl As Excel.Application
Dim Wb As Excel.Workbook

Set appXl = CreateObject("Excel.Application")
appXl.Visible = False  'L'utilisateur ne doit pas voir ce qu'il se passe
Set Wb = appXl.Workbooks.Add

Wb.ActiveSheet.Range("A1").Value = UserForm1.TextBox1.Value
Wb.ActiveSheet.Range("A2").Value = UserForm1.TextBox2.Value
Wb.ActiveSheet.Range("A3").Value = UserForm1.TextBox3.Value
'Bien sûr à la place je mettrai le code correspondant à tout mes contrôles


Wb.Application.DisplayAlerts = False  'Comme tout doit être transparent pour l'utilisateur, on masque les alertes
Wb.SaveAs "C:\Users\sifusalade\Desktop\TEST.xls"
Wb.Application.DisplayAlerts = True 'Nul besoin de dire pourquoi je met ça lol
appXl.Quit  'Transparence oblige lol

End Sub

Option Explicit
'ajouter une valeur
Private Sub CommandButton1_Click()
SaveSetting appname:="Monappli", Section:="TextBox1", _
            Key:="Valeur", setting:=TextBox1.Value
SaveSetting "Monappli", "TextBox1", "Valeur", TextBox1.Value
End Sub
'supprimer valeur
Private Sub CommandButton2_Click()
DeleteSetting "Monappli", "TextBox1"
End Sub
'Lire valeur
Private Sub CommandButton3_Click()
TextBox1.Value = GetSetting(appname:="Monappli", Section:="TextBox1", _
                       Key:="Valeur")
End Sub
'chemin de la clé
'HKEY_CURRENT_USER\Software\VB and VBA Program Settings\Monappli\TextBox1

Option Explicit
Dim etatoption As String
Private Sub UserForm_Initialize()
lecture
If etatoption = "Vrai" Then
OptionButton1.Value = True
Else
OptionButton2.Value = True
End If
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  ecriture
End Sub
Private Sub ecriture()
'textBox
SaveSetting appname:="Monappli", Section:="TextBox1", _
            Key:="Valeur", setting:=TextBox1.Value
SaveSetting "Monappli", "TextBox1", "Valeur", TextBox1.Value
 'optionButton
 If OptionButton1.Value = True Then
SaveSetting appname:="Monappli", Section:="OptionButton1", _
            Key:="etatoption", setting:="Vrai"
SaveSetting "Monappli", "OptionButton1", "etatoption", "Vrai"
Else
SaveSetting appname:="Monappli", Section:="OptionButton1", _
            Key:="etatoption", setting:="Faux"
SaveSetting "Monappli", "OptionButton1", "etatoption", "Faux"
End If
End Sub
Private Sub lecture()
'optionButton
etatoption = GetSetting(appname:="Monappli", Section:="OptionButton1", _
                       Key:="etatoption")
 'textBox
TextBox1.Value = GetSetting(appname:="Monappli", Section:="TextBox1", _
                       Key:="Valeur")
End Sub

Private Sub Document_Open()
UserForm1.Show   'Pour afficher l'UserForm1 à l'ouverture du fichier
End Sub

Sub ouvrirClasseurExcel()
Dim appXl As Excel.Application
Dim Wb As Excel.Workbook

Set appXl = CreateObject("Excel.Application")
appXl.Visible = False  'L'utilisateur ne doit pas voir ce qu'il se passe
Set Wb = appXl.Workbooks.Add

Wb.ActiveSheet.Range("A1").Value = UserForm1.TextBox1.Value
Wb.ActiveSheet.Range("A2").Value = UserForm1.TextBox2.Value
Wb.ActiveSheet.Range("A3").Value = UserForm1.TextBox3.Value
Wb.ActiveSheet.Range("A4").Value = UserForm1.CheckBox1.Value
'Bien sûr à la place je mettrai le code correspondant à tout mes contrôles,
'Ici je fais mais tests depuis un nouveau fichier et USF de test


Wb.Application.DisplayAlerts = False  'Comme tout doit être transparent pour l'utilisateur, on masque les alertes
Wb.SaveAs "C:\Users\sifusalade\Desktop\" & UserForm1.TextBox1.Value & ".xls"  'Enregistrer fichier Excel sous le bureau avec comme nom de fichier le contenu de la TextBox1
Wb.Application.DisplayAlerts = True 'Nul besoin de dire pourquoi je met ça lol
appXl.Quit  'Transparence oblige lol
ThisDocument.SaveAs "C:\Users\sifusalade\Desktop\" & UserForm1.TextBox1.Value & ".doc" 'Enregistrer fichier Word sous le bureau avec comme nom de fichier le contenu de la TextBox1
End Sub

Private Sub CommandButton1_Click()
Call Module1.ouvrirClasseurExcel
End Sub

Private Sub UserForm_Initialize()

Dim appXl As Excel.Application
Dim Wb As Excel.Workbook

On Error GoTo arret

Set appXl = CreateObject("Excel.Application")
appXl.Visible = False  'L'utilisateur ne doit pas voir ce qu'il se passe

Set Wb = appXl.Workbooks.Open(Mid(ThisDocument.Path & "\" & ThisDocument.Name, 1, Len(ThisDocument.Path & "\" & ThisDocument.Name) - 4) & ".xls")
'on prend le chemin complet à partir du 1er caractère,
'auquel on extrait l'extention en retirant 4 caractères (.doc) du chemin complet,
'puis on rajoute la nouvelle extention

Me.TextBox1.Value = Wb.ActiveSheet.Range("A1").Value
Me.TextBox2.Value = Wb.ActiveSheet.Range("A2").Value
Me.TextBox3.Value = Wb.ActiveSheet.Range("A3").Value
Me.CheckBox1.Value = Wb.ActiveSheet.Range("A4").Value

Wb.Application.DisplayAlerts = False  'Comme tout doit être transparent pour l'utilisateur, on masque les alertes
Wb.Application.DisplayAlerts = True 'Nul besoin de dire pourquoi je met ça lol
appXl.Quit  'Transparence oblige lol

Exit Sub
arret:
MsgBox "L'application n'arrive pas à charger le fichier Excel contenant tout les éléments précédement saisis pour cette publicité." & Chr(10) & Chr(10) & "Le problème vient certainement du fait que le fichier ne se trouve pas à côté de votre document Word" & Chr(10) & Chr(10) & "Pour modifier votre publicité avec les remarques du pouvoir adjudicateur, fermez le présent fichier et ré-ouvrez le une fois que les deux fichiers seront côte à côte dans le dossier : D:/Publicité/" & Year(Date) & Chr(10) & "Sinon, ressaisissez votre publicité depuis le début" & Chr(10) & Chr(10) & "(En cliquant sur OK, les paramètres par défaut seront donc initialisés.)"
End Sub

Wb.SaveAs "C:\Users\sifusalade\Desktop\" & UserForm1.TextBox1.Value & ".xls"  'Enregistrer fichier Excel sous le bureau avec comme nom de fichier le contenu de la TextBox1

Wb.SaveAs "C:\Users\sifusalade\Desktop\" & UserForm1.TextBox1.Value & ".xls"  'Enregistrer fichier Excel sous le bureau avec comme nom de fichier le contenu de la TextBox1

Wb.ActiveSheet.Protect "toto"  'toto étant le mot de passe pour ôter la protection

Option Explicit
Private Sub UserForm_Initialize()
lire
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
ecrire
End Sub
Sub ecrire()
Dim appXl As Excel.Application
Dim Wb As Excel.Workbook
Set appXl = CreateObject("Excel.Application")
appXl.Visible = False 'L'utilisateur ne doit pas voir ce qu'il se passe
Set Wb = appXl.Workbooks.Open(ThisDocument.Path & "\essai.xls")
Wb.ActiveSheet.Unprotect "toto"
Wb.ActiveSheet.Range("A1").Value = UserForm1.TextBox1.Value
Wb.ActiveSheet.Range("A2").Value = UserForm1.TextBox2.Value
Wb.ActiveSheet.Range("A3").Value = UserForm1.TextBox3.Value
Wb.ActiveSheet.Range("A4").Value = UserForm1.CheckBox1.Value 'Bien sûr à la place je mettrai le code correspondant à tout mes contrôles, 'Ici je fais mais tests depuis un nouveau fichier et USF de test
Wb.ActiveSheet.Protect "toto"
Wb.Application.DisplayAlerts = False 'Comme tout doit être transparent pour l'utilisateur, on masque les alertes
Wb.SaveAs ThisDocument.Path & "\essai.xls"
appXl.Quit
End Sub
Sub lire()
Dim appXl As Excel.Application
Dim Wb As Excel.Workbook
Set appXl = CreateObject("Excel.Application")
appXl.Visible = False 'L'utilisateur ne doit pas voir ce qu'il se passe
Set Wb = appXl.Workbooks.Open(ThisDocument.Path & "\essai.xls")
UserForm1.TextBox1.Value = Wb.ActiveSheet.Range("A1").Value
UserForm1.TextBox2.Value = Wb.ActiveSheet.Range("A2").Value
UserForm1.TextBox3.Value = Wb.ActiveSheet.Range("A3").Value
UserForm1.CheckBox1.Value = Wb.ActiveSheet.Range("A4").Value
Wb.Application.DisplayAlerts = False 'Comme tout doit être transparent pour l'utilisateur, on masque les alertes
appXl.Quit
End Sub