utilisation de CreateTextFile

**Mario Rousson** · 03/10/2007, 07h36

Rebonjour à tous

j'essai de créer un fichier texte mais j'ai toujours un message box qui dit :

Incompatibilité de type

Pourtant elle créer le fichier texte exactement comme je veux je comprend pas pourquoi ce message la apparait, j'ai essayé toute les combinaisonpossible avec la fin du code ...".txt", ,)

mon code est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set oFld2 = oFSO.CreateTextFile("C:\Users\Mario\Documents\Dossier\film\act\" & NomSerie & "\" & NomSerie & ".txt", , True)

merci beaucoup

**pc75** · 03/10/2007, 08h02

Bonjour,

Que vaut NomSerie ?

**Mario Rousson** · 03/10/2007, 08h34

NomSerie est une variable que je nomme ABC pour faire mes testes, donc j'obtiens un fichier texte ABC.txt

merci

**pc75** · 03/10/2007, 11h24

Re,

Tu as une virgule en trop :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Set oFld2 = oFSO.CreateTextFile("C:\Users\Mario\Documents\Dossier\film\act\" & NomSerie & "\" & NomSerie & ".txt", True)

Un extrait de MSDN :

CreateTextFile, méthode

Description

Crée un nom de fichier spécifié et renvoie un objet TextStream pouvant être utilisé pour lire ou écrire dans le fichier.

Syntaxe

object.CreateTextFile(filename[, overwrite[, unicode]])

La syntaxe de la méthode CreateTextFile comprend les éléments suivants :

Élément Description
object Correspond toujours au nom d'un objet FileSystemObject ou Folder.
filename Expression de chaîne identifiant le fichier à créer.
overwrite Facultatif. Valeur de type Boolean indiquant si un fichier existant peut être remplacé. La valeur est True si le fichier peut être écrasé, False dans le cas contraire. Si cette valeur est omise, les fichiers existants ne peuvent pas être écrasés.
unicode Facultatif. Valeur de type Boolean indiquant si le fichier est créé sous forme de fichier Unicode ou ASCII. La valeur est True si le fichier est créé sous forme de fichier Unicode, False s'il est créé sous forme de fichier ASCII. Si cette valeur est omise, un fichier ASCII est créé par défaut.

Remarques

Le code suivant illustre l'emploi de la méthode CreateTextFile pour créer et ouvrir un fichier texte :

Sub CreateAfile
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\fichiertest.txt", True)
a.WriteLine("Ceci est un test.")
a.Close
End Sub

Si l'argument overwrite vaut False, ou est absent, pour un filename déjà existant, une erreur se produit.

**Mario Rousson** · 03/10/2007, 15h26

J'avais déjà essayé cette modification, j'avais lu l'aide à se sujet et y a quelque chose qui cloche, alors voici ce que j'essai

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set oFld2 = oFSO.CreateTextFile("C:\Users\Mario\Documents\Dossier\film\act\" & NomSerie & "\" & NomSerie & ".txt", True)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set oFld2 = oFSO.CreateTextFile("C:\Users\Mario\Documents\Dossier\film\act\" & NomSerie & "\" & NomSerie & ".txt", False)

et j'ai toujours le message "incompatibilité de type"

j'ai pas une référence ou quelque chose comme ça que j'oubli?

Merci

**pc75** · 03/10/2007, 15h38

Re,

Mets nous un peu plus de code.

**Mario Rousson** · 03/10/2007, 16h23

Plus de code !!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Dim NomSerie As String
Dim oFld3 As File
 
Line5:
MsgBox "line5"
'Vérification du fichier texte
oFld = oFSO.FileExists("C:\Users\Mario\Documents\Dossier\Film\Act\" & NomSerie & "\" & NomSerie & ".txt")
MsgBox oFld & " file"
If oFld = False Then
'Voulez vous le créer
response = MsgBox("Voulez-vous créer?", vbYesNo, "le fichier " & NomSerie & ".txt")
If response = vbYes Then
' L'utilisateur a choisi Oui.
MsgBox "je créer un fichier"
Set oFSO = New Scripting.FileSystemObject
Set oFld3 = oFSO.CreateTextFile("C:\Users\Mario\Documents\Dossier\Film\Act\" & NomSerie & "\" & NomSerie & ".txt", False)
GoTo Line6
MyString = "Non"    ' Effectue une action.
End If
MsgBox "je ne créer pas de fichier"
End If
GoTo Line6
GoTo Exit_Commande18_Click

**Mario Rousson** · 03/10/2007, 16h26

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim oFld As String

Merci

**pc75** · 03/10/2007, 16h58

Re,

Je ne vois pas la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Set oFSO = CreateObject("Scripting.FileSystemObject")

**Mario Rousson** · 03/10/2007, 17h17

la ligne est après avoir instencier les variables

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
'Initialise les variables
NomSerie = CStr(Me.Nom_Serie)
NumSerie = CStr(Me.Id_Auto)
Concact = Format(NumSerie, "0000") & "-" & NomSerie
'Instanciation du FSO
Set oFSO = New Scripting.FileSystemObject