1 2 3 4 5 6 7 8 9 10 11 12 13 14
| Sub FermerLeFichier(Chemin, NomFich)
Dim msg As String, cl As Variant
If MsgBox("Enregistrer ? ", vbYesNo, "FERMETURE DU FICHIER") = vbYes Then
msg = "Lavariable = " & Lavariable ' si c'est un string ou CStr(Lavariable) si c'est une valeur
Set cl = Workbooks(NomFich).VBProject.VBComponents("Module1")
cl.CodeModule.ReplaceLine 10, msg
Workbooks(NomFich).Save 'enregistrement de la modification
DoEvents
End If
Set cl = NoThing
Workbooks(NomFich).Close False 'Enregistré ou non, on ferme le classeur
'S'il n'est pas enregistré, on conserve l'ancienne valeur
End Sub |
Partager