Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Alain CROS
Bonjour.
Private Sub CommandButton1_Click() '1) écrire un nouveau fichier Bloc-Notes. Dim I&, LeFile$ LeFile = CurDir & Application.PathSeparator & "MonFichier.txt" I = FreeFile Open LeFile For Output As #I Print #I, "Ligne 1 de MonFichier.txt" Print #I, "Ligne 2 de MonFichier.txt" Print #I, "Ligne 3 de MonFichier.txt" Close #I End Sub
Private Sub CommandButton2_Click() '2) pouvoir vérifier si un fichier existe dans un répertoire donné. Dim LeFile$, LeTexte$ LeFile = CurDir & Application.PathSeparator & "MonFichier.txt" LeTexte = "Le fichier " & LeFile If Not Dir(LeFile) = "" Then MsgBox LeTexte & " existe" Else MsgBox LeTexte & " n'existe pas" End If End Sub
3) remplacer un fichier existant par un autre fichier que je vais écrire. Voir 1)
Alain CROS
"EG" a écrit dans le message de news:
Bonjour,
Je suis dans un UserForm de Excel 2000.
En cliquant sur un bouton, je veux ...
1) écrire un nouveau fichier Bloc-Notes.
2) pouvoir vérifier si un fichier existe dans un répertoire donné.
3) remplacer un fichier existant par un autre fichier que je vais écrire.
De quel façon puis-je faire tout ça ?
Merci de votre aide !
Bonjour.
Private Sub CommandButton1_Click()
'1) écrire un nouveau fichier Bloc-Notes.
Dim I&, LeFile$
LeFile = CurDir & Application.PathSeparator & "MonFichier.txt"
I = FreeFile
Open LeFile For Output As #I
Print #I, "Ligne 1 de MonFichier.txt"
Print #I, "Ligne 2 de MonFichier.txt"
Print #I, "Ligne 3 de MonFichier.txt"
Close #I
End Sub
Private Sub CommandButton2_Click()
'2) pouvoir vérifier si un fichier existe dans un répertoire donné.
Dim LeFile$, LeTexte$
LeFile = CurDir & Application.PathSeparator & "MonFichier.txt"
LeTexte = "Le fichier " & LeFile
If Not Dir(LeFile) = "" Then
MsgBox LeTexte & " existe"
Else
MsgBox LeTexte & " n'existe pas"
End If
End Sub
3) remplacer un fichier existant par un autre fichier que je vais écrire.
Voir 1)
Alain CROS
"EG" <EG@discussions.microsoft.com> a écrit dans le message de news: BAB99324-AB72-4B9B-AB5A-DF6DAF477D03@microsoft.com...
Bonjour,
Je suis dans un UserForm de Excel 2000.
En cliquant sur un bouton, je veux ...
1) écrire un nouveau fichier Bloc-Notes.
2) pouvoir vérifier si un fichier existe dans un répertoire
donné.
3) remplacer un fichier existant par un autre fichier que je
vais écrire.
Private Sub CommandButton1_Click() '1) écrire un nouveau fichier Bloc-Notes. Dim I&, LeFile$ LeFile = CurDir & Application.PathSeparator & "MonFichier.txt" I = FreeFile Open LeFile For Output As #I Print #I, "Ligne 1 de MonFichier.txt" Print #I, "Ligne 2 de MonFichier.txt" Print #I, "Ligne 3 de MonFichier.txt" Close #I End Sub
Private Sub CommandButton2_Click() '2) pouvoir vérifier si un fichier existe dans un répertoire donné. Dim LeFile$, LeTexte$ LeFile = CurDir & Application.PathSeparator & "MonFichier.txt" LeTexte = "Le fichier " & LeFile If Not Dir(LeFile) = "" Then MsgBox LeTexte & " existe" Else MsgBox LeTexte & " n'existe pas" End If End Sub
3) remplacer un fichier existant par un autre fichier que je vais écrire. Voir 1)
Alain CROS
"EG" a écrit dans le message de news:
Bonjour,
Je suis dans un UserForm de Excel 2000.
En cliquant sur un bouton, je veux ...
1) écrire un nouveau fichier Bloc-Notes.
2) pouvoir vérifier si un fichier existe dans un répertoire donné.
3) remplacer un fichier existant par un autre fichier que je vais écrire.
