[Résolu]Excel 2010 - remplacer chaine de caractère dans un fichier

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Résolu]Excel 2010 - remplacer chaine de caractère dans un fichier

minimoack

Bonjour tout le monde!

J'aimerais faire une macro excel qui demande à l'utilisateur de sélectionner un dossier, puis qui dans ce même dossier, modifie 2 fichiers puis les enregistre.

Voici le début de mon code :

Code :

Sub MiseEnForme()
'Cette fonction permet de supprimer les commentaires des fichiers part.xml,
'et de lire la pub de conf avec les dernières versions des navigateurs
Dim oFSO As Object
Dim monFic As Integer
Dim chemin As String
Set oFSO = CreateObject("Scripting.FileSystemObject" )
'on récupère le dossier de la pub de conf
chemin = GetDirectory("Sélectionnez le répertoire contenant la pub de conf" )
*******************************
'on supprime les commentaires des fichiers part.xml
supprimerCommentaires (chemin & "\parts" )
MsgBox ("Transformation done" )
Shell "explorer " & chemin, vbNormalFocus
End Sub

En fait, là où j'ai mis les étoiles, on faisait directement un copié collé des fichiers pour les remplacer dans le dossier que l'utilisateur avait sélectionné au préalable, mais vu que c'est pour un client externe maintenant, et que on récupérait des fichiers sur le réseau interne, bah ça ne fonctionnera pas chez le client XD

Ce qu'il y avait :

Code :

'On remplace les fichier part.xsl et tree.xsl par des fichiers modifiés pour être lus via n'importe quel navigateur
oFSO.copyfile "C:\reseau\style\tree.xsl", chemin & "\style\tree.xsl"
oFSO.copyfile "C:\reseau\style\part.xsl", chemin & "\style\part.xsl"

Ce que j'aimerais :
Faire une recherche dans les fichiers tree.xsl et part.xsl qui sont dans le dossier que l'utilisateur a choisi afin de trouver la chaine de caractère : method="xml"
Dans les 2 fichiers, la remplacer par method="html"
Enregistrer les 2 fichiers.

Merci pour votre aide !! :jap:

Message édité par minimoack le 18-12-2014 à 09:45:47

Publicité

minimoack

Bon...

j'ai trouvé ça, je vais essayer voir si ça marche :

Code :

'On modifie les fichiers tree.xsl et part.xsl pour être lus via n'importe quel navigateur
str = FileInMemory(chemin & "\style\tree.xsl" )
str = Replace(str, "method=" & Chr(34) & "xml" & Chr(34), "method=" & Chr(34) & "html" & Chr(34))
a = MemoryInFile(chemin & "\style\tree.xsl", str)
str = FileInMemory(chemin & "\style\part.xsl" )
str = Replace(str, "method=" & Chr(34) & "xml" & Chr(34), "method=" & Chr(34) & "html" & Chr(34))
a = MemoryInFile(chemin & "\style\part.xsl", str)

minimoack

avec ça comme fontions :

Code :

Public Function FileInMemory(ByVal stFilePath As String) As String
'Variable locale
Dim hFile As Integer
'Gestion des erreurs
On Error GoTo InBinary
'Initialisation
hFile = FreeFile
'Ouverture du fichier
Open stFilePath For Input As hFile
FileInMemory = Input(LOF(hFile), hFile) 'Ne prend pas les caractères binaires
Close hFile
Exit Function
'Si problème avec des caractères binaires...
InBinary:
Close hFile
hFile = FreeFile
'Ouverture du fichier
Open stFilePath For Binary As hFile
FileInMemory = Input(LOF(hFile), hFile) 'Accepte les caractères binaires
Close hFile
End Function
Public Function MemoryInFile(ByVal stFilePath As String, ByVal stData As String) As Boolean
'Variable locale
Dim hFile As Integer
'Initialisation
hFile = FreeFile
MemoryInFile = False
'Gestion des erreurs
On Error GoTo fin
'Ouverture du fichier
Open stFilePath For Output As hFile
Print #hFile, stData
Close hFile
'true si Ok
MemoryInFile = True
fin:
End Function

Par contre, si quelqu'un peut m'expliquer cette histoire de caractère binaire, je suis partante

Marc L

Bonjour,

lire l'intégralité du fichier dans une variable texte (cf aide VBA Open For Input as #1 & Input(LOF(1), #1) …)
puis y appliquer la fonction Replace et réécrire le fichier (cf Open For Output & Print #…) par exemple.

Edit : trop tard …

Si c'est un fichier texte, pas besoin de gérer les caractères binaires …

Message édité par Marc L le 18-12-2014 à 09:47:58

minimoack

ok merci. Le code que j'ai posté précédemment fonctionne, mais je vais voir si je ne peux pas le simplifier en utilisant ce que tu m'as donné, merci

Marc L

Du reste je t'ai déjà indiqué cette méthode de lecture de fichier le 5/02/2013 !

minimoack

Arf... :sweat: sorry...

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[Résolu]Excel 2010 - remplacer chaine de caractère dans un fichier

Sujets relatifs
boutons ajout date et heure actuelle si la case est vide (excel)	Création de script avec lecture d'un fichier texte
taille de police dans une box de texte (moteur de recherche excel vba)	[VBA-Excel] Copier-coller sélection à partir d'une recherche
Formulaire web pour accéder à des données sur fichier excel	eclatement de fichier excel
Macro Excel supprimer une ligne	Gestion de Base de données partagées Excel
Plus de sujets relatifs à : [Résolu]Excel 2010 - remplacer chaine de caractère dans un fichier

Page générée en 0.067 secondes