Votre question

[VBA] création fichier .lin

Tags :
  • format
  • Programmation
Dernière réponse : dans Programmation
27 Février 2008 08:33:44

Bonjour à tous, dans le cadre d'un travail de diplôme, je dois créer des fichier .lin (même format que txt mais avec une extension lin) depuis une série de données Excel.

Mon fichier excel se présente sous forme de lignes avec 7 colones
1) colonne : nom fichier
2) X
3) Y
4) Z
5) Mx
6) My
7) Mz

J'aimerais faire une macro qui me fasse pour chaque ligne un fichier .lin (ou txt que je renommerais avec un programme) avec pour titre la valeur de la colonne 1.

Structure du fichier lin:
Citation :
X
Y
Z
Mx
My
Mz


et si une des valeurs est egale a 0, la macro ne mette rien, pas même une ligne vide) ce qui donnerais (par exemple) :
Citation :

X
My


Merci pour toute l'aide que vous pourrez m'apporter!




Autres pages sur : vba creation fichier lin

28 Février 2008 08:48:50

Aucune idée?

A moins que cela ne soit carrément pas faisables en VBA?
28 Février 2008 15:42:56

Salut, Gigiati

C'est tout à fait faisable. Essaie ceci:
  1. Sub CreationFichierLin()
  2. Dim Ecr
  3. Dim Ligne As Long
  4. Dim Colonne As Long
  5. For Ligne = 1 To 4 ' boucle sur les lignes
  6. If Cells(Ligne, 1) <> 0 Then
  7. Ecr = FreeFile
  8. Open "c:\" & Cells(Ligne, 1) & ".lin" For Append As #Ecr
  9. For Colonne = 2 To 7
  10. If Cells(Ligne, Colonne) <> 0 Then
  11. Print #Ecr, Cells(Ligne, Colonne).Value
  12. End If
  13. Next Colonne
  14. Close #Ecr
  15. End If
  16. Next Ligne
  17. End Sub
J'ai ajouté un test pour vérifier que le nom de fichier n'est pas vide. Si c'est le cas, le fichier n'est pas généré pour cette ligne et on passe à la suivante.

ATTENTION ! Si tu as plusieurs fois le même nom dans la colonne 1, cela va cumuler les données des colonnes 2 à 7 dans un même fichier. De plus, si le nom de fichier contient un caractère interdit par Windows ( \ / : * ? " < > | ), le programme plantera.

Bonne continuation
Tom's guide dans le monde
  • Allemagne
  • Italie
  • Irlande
  • Royaume Uni
  • Etats Unis
Suivre Tom's Guide
Inscrivez-vous à la Newsletter
  • ajouter à twitter
  • ajouter à facebook
  • ajouter un flux RSS