|
 Trouver une ressource
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !
 Sujet : remplacer un mot dans des fichiers excels sans les ouvrir [ Archives Visual Basic / VBA ] (grab)
 Informations & options pour cette discussion
|
mercredi 18 septembre 2002 à 11:15:58 |
remplacer un mot dans des fichiers excels sans les ouvrir
grab
|
est-t-il possible de rechercher un mot dans plusieurs fichiers excel d'un dossier, sans les ouvrir et ensuite de remplacer ce mot par un autre, puis de sauvegarder le fichier modifié?? merci
|
|
|
|
mercredi 18 septembre 2002 à 14:40:17 |
Re : remplacer un mot dans des fichiers excels sans les ouvrir
imer
|
Oui:
'Pour le parcours de répertoires cf exemple de la fonction Dir dans MSDN
'Voici une fonction pour traiter un fichier:
'cocher Microsoft Excel X.X Object Library dans le menu Outils/Références...
Private Sub RemplacerMot (FichierSource As String, FichierCible As String, MotSource As String, MotCible As String)
'FichierSource est le chemin du fichier excel source
'FichierCible est le chemin du fichier excel cible
'MotSource est le mot à remplacer
'MotCible est le nouveau mot
'S'il y a plusieurs fichiers à traiter, pour éviter de ouvrir et refermer excel à chaque fois, il faut déclarer l'objet XlApp au niveau module et faire l'ouverture et la fermeture de XlApp en début et fin de lecture de répertoire
Dim XlApp As Excel.Application
Dim XlFeuille As Excel.WorkSheet
'Création de l'application excel
Set XlApp = New Excel.Application
'Ouverture du fichier source
XlApp.WorkBooks.Open FichierSource
'Parcours de toutes les feuilles du classeur
For Each XlFeuille in XlApp.WorkBooks(1).WorkSheets
'Remplacement du mot (mettre xlPart à la place de xlWhole si tu veux remplacer les mots qui sont uniques dans la cellule)
Cells.Replace What:=MotSource, Replacement:=MotCible, LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=False
Next XlFeuille
'Suppression de la cible si elle existe
If Dir(FichierCible)<>"" Then
Kill FichierCible
End If
'Sauvegarde du fichier
XlApp.WorkBooks(1).SaveAs FichierCible
'Fermeture du classeur de l'appli
XlApp.WorkBooks(1).Close
XlApp.Quit
Set XlApp = Nothing
End Sub
-------------------------------
Réponse au message :
-------------------------------
est-t-il possible de rechercher un mot dans plusieurs fichiers excel d'un dossier, sans les ouvrir
et ensuite de remplacer ce mot par un autre, puis de sauvegarder le fichier modifié??
merci
|
|
|
|
mercredi 18 septembre 2002 à 16:06:47 |
Re : remplacer un mot dans des fichiers excels sans les ouvrir
grab
|
merci, je vais voir si je m'en sors avec ca.
-------------------------------
Réponse au message :
-------------------------------
Oui:
'Pour le parcours de répertoires cf exemple de la fonction Dir dans MSDN
'Voici une fonction pour traiter un fichier:
'cocher Microsoft Excel X.X Object Library dans le menu Outils/Références...
Private Sub RemplacerMot (FichierSource As String, FichierCible As String, MotSource As String, MotCible As String)
'FichierSource est le chemin du fichier excel source
'FichierCible est le chemin du fichier excel cible
'MotSource est le mot à remplacer
'MotCible est le nouveau mot
'S'il y a plusieurs fichiers à traiter, pour éviter de ouvrir et refermer excel à chaque fois, il faut déclarer l'objet XlApp au niveau module et faire l'ouverture et la fermeture de XlApp en début et fin de lecture de répertoire
Dim XlApp As Excel.Application
Dim XlFeuille As Excel.WorkSheet
'Création de l'application excel
Set XlApp = New Excel.Application
'Ouverture du fichier source
XlApp.WorkBooks.Open FichierSource
'Parcours de toutes les feuilles du classeur
For Each XlFeuille in XlApp.WorkBooks(1).WorkSheets
'Remplacement du mot (mettre xlPart à la place de xlWhole si tu veux remplacer les mots qui sont uniques dans la cellule)
Cells.Replace What:=MotSource, Replacement:=MotCible, LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=False
Next XlFeuille
'Suppression de la cible si elle existe
If Dir(FichierCible)<>"" Then
Kill FichierCible
End If
'Sauvegarde du fichier
XlApp.WorkBooks(1).SaveAs FichierCible
'Fermeture du classeur de l'appli
XlApp.WorkBooks(1).Close
XlApp.Quit
Set XlApp = Nothing
End Sub
-------------------------------
Réponse au message :
-------------------------------
est-t-il possible de rechercher un mot dans plusieurs fichiers excel d'un dossier, sans les ouvrir
et ensuite de remplacer ce mot par un autre, puis de sauvegarder le fichier modifié??
merci
|
|
|
Cette discussion est classé dans : ouvrir, mot, fichiers, remplacer, excels
 Répondre à ce message
 Sujets en rapport avec ce message
remplacer un mot dans plusieurs fichiers excel sans les ouvrir [ par grab ]
est-t-il possible de rechercher un mot dans plusieurs fichiers excel d'un dossier, sans les ouvrir et ensuite de remplacer ce mot par un autre, puis d
Comment faire pour ouvrir tous les fichiers txt d'un repertoire, rechercher et remplacer des chaines, les remplacer, puis réenregistrer ces fichiers [ par Cervomix ]
Bonjour,J'ai besoin d'aide; J'ai X fichiers txt dans plusieurs répertoires et je dois les ouvrir et rempacer des chaines. J'ai trouvé sur le site comm
rechercher et remplacer du texte [ par spok ]
Bonjour,Je désire rechercher dans tout les fichiers word d 'un repertoire le mot "hello", si il s y trouve rechercher le mot "salut" et le remplacer p
Mot de passe d'Access [ par sebsky ]
Salut à tous,J'ai un problème au boulotJe dois ouvrir un fichier ACCESS mais il y a un mot de passepour y acceder.Est-ce qu'il existerait un générateu
Ouvrir Fichier suivant [ par Geraldine ]
Bonjour,Un fichier .xls est ouvert.Quel est la syntaxe, pour ouvir le fichier suivant celui déjà ouvert (sans l'ouvrir avec son nom). Les fichiers son
ouvrir plusieurs fichiers avec un seul bouton [ par CanardFou ]
Bonjour,J'ai plusieurs fichiers mp3 contenus dans un répertoire.Je voudrais à l'aide d'un seul bouton command sélectionner tous les fichiers de ce rép
comment ouvrir une base Access avec mot de passe sous VB6 ?? [ par SATANdemon ]
J'ai tout essayer et je n'y arrive pas, HELP ME PLEASE !!!Voici comment je fait (sans mot de passe) :BddConnexion.Provider = "Microsoft.jet.OLEDB.4.0"
selectionner plusieurs fichiers à ouvrir [ par alic ]
J'aimerai pouvoir selectionner plusieurs fichiers à ouvrir avec la boite de dial commune ouvrir de type "explorer".Ok il faut mettre "cdlofnallowmulti
Ouvrir des fichiers avec son application via windows [ par cbjp85 ]
Salut,je sais associer un type de fichiers avec mon application.Mais je voudrais que le fichiers soit chargé (comme si je l'ouvrais par mon applicatio
Ouverture du .exe par un fichier ????? [ par yapa ]
Bonjour, j'ai lié des fichiers avec une certaine extension à mon .exe (avec le "ouvrir avec ..." de Windows) et j'aimerai pouvoir ouvrir les fichiers
 Livres en rapport
|
 Téléchargements
Logiciels à télécharger sur le même thème :
|