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: :jap:](https://forum-images.hardware.fr/icones/smilies/jap.gif)
Message édité par minimoack le 18-12-2014 à 09:45:47