1 2 3 4 5 6 7 8 9 10 11 12 13 14
| Sub testModif()
Dim Wbk As Workbook, NomProc$, NomModule$, LiModif&, TxtModif$
Dim Fichier As String
'Set Wbk = ThisWorkbook
'Set Wbk = Workbooks("Matrice des répertoires DDAF v4")
Set Wbk = Workbooks("D:\Utilisateurs\97733a\Mes documents\Matrice des répertoires DDAF v4")
NomProc = "LectMatMig"
NomModule = "LectMat"
LiModif = 4
TxtModif = " Dim i, k, longueur As Integer"
'modifie la ligne 3 de la macro "MacroAModifier"
ModifMacro Wbk, NomProc, NomModule, LiModif, TxtModif
End Sub |
Partager