Discussion :

[Invité]

Bonjour,

J'ai un problème pour la gestion de fichier texte. J'aimerai que le fichier texte soit créé lorsqu'il n'existe pas.

Voici mon 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
Private Function Lecture(numLigne As Integer) As tRecu
    Dim recu As tRecu
    Dim intFic As Integer
 
    intFic = FreeFile
 
    If frmMain.lstPeriodes.ListIndex = -1 Then  'Si aucune période n'est selectionnée
        Open "D:\Documents\s611516\Mes Documents\Level1\" & frmMain.szContrat & "_" & Replace(frmMain.lstPeriodes.List(0), "   ", "-") & "_" & nomVariable & ".txt" For Random As intFic Len = Len(recu)
    Else
        Open "D:\Documents\s611516\Mes Documents\Level1\" & frmMain.szContrat & "_" & Replace(frmMain.lstPeriodes.List(frmMain.lstPeriodes.ListIndex), "   ", "-") & "_" & nomVariable & ".txt" For Random As intFic Len = Len(recu)
    End If
 
    Get intFic, numLigne, recu
    Close intFic
End Function

J'ai trouvé différentes solutions mais pas adaptées à mon code.

Avez vous des idées?

[brownthefou]

Bonjour !

Je pense que tu pourrais utiliser la fonction CreateTextFile (je crois que c'est la bonne syntaxe).

Je m'en suis déja servit et ça marche !

Bonne continuation

[Invité]

Merci brownthefou.
Oui j'avais déjà vu les solution utilisant Scripting mais le problème ces qu'elles me génèrent une erreur "Type non défini ..." (même si on peut les contourner en faisant un CreateObject).
Et en plus je ne pourrai plus utiliser la gestion de fichier texte par accès direct.

Et vu que mon projet sera utilisé par un couple pc/excel anciens, on me déconseil d'ajouter des références et librairies (en l'occurrence Microsoft Scripting Runtime)

[brownthefou]

Rebonjour,

En effet c'est vrai que la quasi totalité de mes traitements se fait à partir de microsoft scripting runtime.

Cependant cette librairie étant trop précieuse pour que je m'en passe j'ai demandé a l'intégrer sur tous les PC qui utiliseront ma macro, tous les PC utilisant Excel 2003. (Après une ou deux recherche j'ai vu que son utilisation peut remonter à Excel 98 !!)

Après ça dépend du choix et de la politique de la boite mais en gros tu me dis :
"On préfère marcher plutot que de prendre la voiture car elle est vieille"

Ta voiture supporteras très bien le trajet que tu lui feras faire dans cette librairie, j'en suis persuadé (à moins que tu tournes sous windows95 et excel95 ... !)

Tu dis à tes employeurs d'aller se faire cuire un steak et utilises cette librairie !

[Invité]

Lool je suis stagiaire dans un grand groupe d'assurance français et l'outils et doit être fonctionnel directement sur les 50 ordi. Je me vois pas aller faire tous les ordi un par un pour ajouter la réference à microsoft scripting runtime ou même leur dire d'aller cuire des steak lol.

Mais bon merci quand même, si c'est la seule solution je ferai ça

[Jean-Philippe André]

Salut,

tu peux tester si un fichier existe avec la fonction Dir()

Code :

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

1
2
3
4
5
If Dir("C:\tonpathdefichier.txt")="" Then
Msgbox "ton fichier n'existe pas"
Else
Msgbox "ton fichier existe"
End If

La création du fichier restera de ton ressort