modification d'un fichiert ini

  • Initiateur de la discussion Initiateur de la discussion f69815
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

f69815

XLDnaute Occasionnel
bonsoir à toutes et à tous,

je récupère des données à partir d'un fichier txt.
ce fichier txt est créé par une application 'business objects', mais par défaut le séparateur et un petit 3(format indice), style mètre cube, et dans mon import j'utilise la tabulation.

est-il possible avec excel, de décocher dans les propriètés du fichier ini, la case lecture seule et de modifier à l'intérieur du fichier ini la valeur du séparateur, le mettre à 9.

ci dessous, la partie concernée du fichier ini
=======================================================
[Exports]
;--------
; Répertoires vers lesquels sont exportés les fichiers de données.
; WORD, WORDPERFECT, LOTUS, DBASE, EXCEL, ASCII
; SEPARATOR : Chiffre correspondant au code ASCII du séparateur Défault: 179
; DEL_SPACE : Spécifie si les blancs sont concaténés au cours de la conversion.
; Valeurs Possibles: ON/OFF - Défaut: OFF
LOTUS=c:\mesdocuments
EXCEL=c:\mesdocuments
WORD=c:\mesdocuments
DBASE=c:\mesdocuments
PARADOX=c:\mesdocuments
WPERFECT=c:\mesdocuments
RTF=c:\mesdocuments
ASCII=c:\mesdocuments
SEPARATOR=9
DEL_SPACE=ON

=======================================================

et voici la partie du code pour conversion des données dans excel :

--------------------------------------------------------------------------------------
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(0, 2), Array(1, 2), Array(2, 2), Array(3, 2), Array(4, 2), Array(5, 2), Array(6, 2), _
Array(7, 2), Array(8, 2), Array(9, 2), Array(10, 4), Array(11, 2), Array(12, 2))
---------------------------------------------------------------------------------------
je pourrais mettre en séparateur : Other:=True, OtherChar _:="3".

mais comme je peux tout avoir comme séparateur, je préfère forcer à tabulation.


pensez- vous que c'est faisable ?

toutes les propositions sont les bienvenues.

merci de vos réponses
 
Re : modification d'un fichiert ini

Bonsoir,

essaie avec ce code :

Code:
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        Other:=True, OtherChar:="³"

Nota : le code ³ est tapé en Appuyant sur Alt, puis, tout en le maintenant enfoncé, 0179
 
Re : modification d'un fichiert ini

merci Roland_M, bhbh,

le clic droit pour mon fichier ini pas de problème, mais il y a plusieurs postes où il est installé (1400 environ) et on ne sait pas toujours de quel µ le fichier excel va être lancé.

je veux bien mettre dans le code ³, mais pour certain poste cela va être bon, pour d'autre qui ont modifié leur ini, comme moi, la macro va se planter.

en vous écrivant, je pense avoir trouver la solution : c'est de copier/coller ce fameux fichier ini, dans l'environnement de l'utilisateur.
avec une ligne du style CopyFile Source, Destination.

je suis toujours preneur d'une autre solution.
 
Re : modification d'un fichiert ini

Bonsoir,

Si j'ai bien compris, tu veux enlever la "Lecture Seule" sur ton TXT ?
Le code ci-dessous permet de le faire.

Sub passerClasseur_lectureSeule()
'Nécessite d'activer la référence Microsoft Scriping Runtime
Dim Fs As FileSystemObject
Dim F As File
Set Fs = CreateObject("Scripting.FileSystemObject")
Set F = Fs.GetFile(ThisWorkbook.Path & "\toto.txt")
F.Attributes = F.Attributes + ReadOnly = False
End Sub


Adapté de cette page : Lire et modifier les propriétés des classeurs et autres fichiers - Club d'entraide des développeurs francophones
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
822
Réponses
2
Affichages
1 K
H
Réponses
3
Affichages
1 K
Hotburn
H
J
Réponses
22
Affichages
3 K
jui42
J
Réponses
8
Affichages
1 K
D
Réponses
4
Affichages
1 K
Réponses
1
Affichages
1 K
R
Réponses
1
Affichages
3 K
Retour