XL 2010 Création de fichier texte via vba

[FFX]

Bonsoir,

je souhaite créer un nombre de fichier texte, dans deux dossiers différents, en fonction d'une zone de saisie. la première partie (création de R1 à RN) fonctionne parfaitement. La seconde partie me renvoie un message existant hors les fichiers sont nommés S1 à SN

Voici mon code :

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

Désolé si un post existe, je ne l'ai pas trouvé

Merci d'avance pour vos réponses

 

[Dranreb]

Boujour.
Vous ne pouvez pas refaire un Open pour un numéro de fichier avant d'avoir fait le Close correspondant au dernier Open effectué pour ce numéro de fichier.
Si vous avez absolument besoin de garder tous ces fichiers ouverts en même temps en écriture vous devez faire pour la seconde série For switches = Nrouter + 1 To Nrouter + Nswitch
Si ce sont des fichiers vides que vous voulez créer, utilisez toujours #1 mais faites Close #1 aussitôt derrière le Open … As #1

 

[FFX]

Bonjour,

Merci beaucoup pour votre aide.

Je comprends mieux maintenant l'utilisation du Close.

Cela fonctionne parfaitement