Se connecter avec
S'enregistrer | Connectez-vous

[VBA] création fichier .lin

Dernière réponse : dans Programmation

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

Lassé par la pub ? Créez un compte

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
Lassé par la pub ? Créez un compte

Créer un nouveau sujet

Tom's guide dans le monde