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!
Open "c:\" & Cells(Ligne, 1) & ".lin" For Append As #Ecr
For Colonne = 2 To 7
If Cells(Ligne, Colonne) <> 0 Then
Print #Ecr, Cells(Ligne, Colonne).Value
End If
Next Colonne
Close #Ecr
End If
Next Ligne
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.
Vous allez répondre sur un sujet resté inactif pendant plus de 6 mois. Assurez-vous d'apporter des éléments nouveaux à la discussion avant de poursuivre.
