Discussion :

[Etudiant57]

Bonjour à tous !

Je vous présente mon problème.

J'ai un fichier .sbt qui peut s'ouvir avec un blocnote.
Dans ce fichier j'ai récupéré le code pour le mettre dans un fichier Excel et le modifier à la guise de l'utilisateur en fonction des paramètres.
Donc j'ai fais un petit programme VBA permettant de prendre ces paramètres à l'ouverture du fichier Excel, et changer le code en fonction des ces paramètres.

Le fichier Excel crée alors un fichier .txt dans un répertoire prédéfinie.

Tout ceci fonctionne.

Le soucis est que le code doit être identique ( à par les paramètres changés biensur ) mais Excel pour je ne sais quelle raison, m'ajoute plein d'espace et de tabulation.

Alors, mon logiciel censé lire ce fichier ne l'ouvre pas et me fait une erreur.

Je cherche à supprimer les Tabulations et les Espaces, comment procéder ?

J'ai trouver ce post mais le code est assez complexe et je ne sais pas si les caractères espaces et tabulations peuvent être remplacer de cette façon.
http://www.developpez.net/forums/d45...t-fichier-txt/

Je met en pièce jointe mon fichier Excel( Générateur de PLC ), mon fichier créé ( PLC_Ratio300 ) et le fichier type désiré ( Prog_CCW ).

Merci d'avance !

[brownthefou]

Bonjour à toi,

Pour ça, insère ton fichier dans une variable de type string.

Ensuite il te suffit de corriger le caractère que tu veux.

Exemple :

Code :

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

1
2
3
4
Dim str as String
'stockage de ton fichier dans str
str = Replace(str, Chr(9),"") 'tabulation par rien
str = Replace(str, " ", "") 'espace par rien

En espérant que ça te sera utile,

Cdlt

[Etudiant57]

Bonjour brownthefou,

Malheureusement ce code ne fonctionne pas, je l'ai bien incorporé à mon code VBA mais les tabulations sont toujours là.

Petite chose dont je viens de me rendre compte également c'est qu'il faut que je supprime toutes les tabulations, mais les espaces ne doivent être supprimer que sur les 4 premiers lignes.

Dure dure :/ !

Merci pour votre rapide réponse Brownthefou.

Je compare les 2 fichiers, j'ai supprimer les tabulations via word et j'ai supprimer les espaces au début, et pourtant, mon logiciel ne veut toujours pas le lire, et pourtant je ne vois aucune différence entre les 2 fichiers a par les paramètres modifiés qui sont correcte.

C'est un véritable casse-tête.

[brownthefou]

Petite chose dont je viens de me rendre compte également c'est qu'il faut que je supprime toutes les tabulations, mais les espaces ne doivent être supprimer que sur les 4 premiers lignes.

Rebonjour Etudiant,
Je vais essayer de te taper un petit code vite fait mais je ne te promet rien.

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
25
    Dim oFSO As scripting.FileSystemObject
    Dim oTxt As scripting.TextStream
    Dim str As String
    Dim str_finale As String
    Dim i As Long
    Set oFSO = New scripting.FileSystemObject
    Fichier = Application.GetOpenFilename("All Files (*), *")
    Set oTxt = oFSO.OpenTextFile(Fichier, ForReading)
    Do Until oTxt.AtEndOfStream
        If (i < 4) Then
            str = oTxt.ReadLine
            str = Replace(str, " ", "")
            str_finale = str_finale & str & vbCrLf
            i = i + 1
        Else
            str = oTxt.ReadLine
            str_finale = str_finale & str & vbCrLf
        End If
    Loop
    str_finale = Replace(str_finale, Chr(9), "")
    Set oTxt = Nothing
    Set oTxt = oFSO.OpenTextFile(DestinationFichier, ForWritting) 'à toi de définir ou tu veux placer ton fichier avec DestinationFicheir l'endroit ou il sera
     oTxt.Write str
     Set oTxt = Nothing
     Set oFSO = Nothing

(Code tapé rapidos rapidos j'ai pas énormément de temps, je ne te promet pas qu'il n'y a pas d'erreurs...)

Voila, à adapter à ton code.
1. N'oublie pas d'intégrer la bibliothèque FileSystemObject
2. Pour comprendre comment marche cette bibliothèque ou pour toute modification que tu auras à effectuer sur mon code, voici un lien qui te permettra de corriger tes réponses:
http://warin.developpez.com/access/fichiers/

En espérant t'avoir aidé,

Cdlt

[Etudiant57]

Merci pour votre réponse.

Je vais surment passé pour un idiot mais j'essai d'inclure la bibliothèque, ne m'y connaissant pas forcément en VBA j'ai du mal.

#include ne fonctionne pas, je cherche sur le forum et google mais je ne trouve pas la façon d'inclure une bibliothèque en vba .

[brownthefou]

Quand tu es dans le BV Editor, tu cliques sur "outils" en haut puis référence et tu sélectionnes la bibliothèque souhaitée, ensuite tu l'ajoutes avec un bouton prévu à cet effet (je crois meme qu'il s'appelle ajouter )