Private Sub Ok_parc_Click()
ChDrive ("F:")
chemin = "F:\Programmes JM\Cisco\Module Z" 'inclure variable
chdir (chemin & "\Routers\")
For routers = 1 To Nrouter
Open "R" & routers & ".txt" For Output As #routers
Next routers
chdir (chemin & "\Switches\")
For switches = 1 To Nswitch
Open "S" & switches & ".txt" For Output As #switches
Next switches
End Sub