Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Macro sur plusieurs fichiers texte

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion vibos
  • 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 !

S'inscrire
V

vibos

Guest
Bonjour,

J’ai plein de fichier texte que je traite avec une macro Word pour les transformer en fichier .txt avec séparateur « ; »

-J’aimerai qu’Excel applique ma macro « EpurerTexte » à tous les fichiers .txt d’un répertoire (pour l’instant je dois l’exécuter pour chaque fichier).

-Ensuite il faudrait qu’Excel convertisse les fichiers .txt (avec séparateurs « ; ») en format Excel (xls ou xlsx ou xlsm).

-Et enfin qu’il copie :
Code: 
=RECHERCHEV(A1;'[Copie de population francaise ensemble.xls]Communes'!$G$9:$J$36731;4;FAUX)
Dans les colonnes C1 et E1 en incrémentant

Code: 
=PRODUIT(B1:C1)
dans la colonne D1 en incrémentant

Code: 
=SOMME.SI(D:D;">1")
dans la colonne F sans incrémenté

Jusqu’a maintenant je copiai les cellules puis je double cliquait sur le carré en bas à droite des cellules pour étendre le calcul (incrémenté)


Merci et n’hésitez pas à demander si ce n’est pas clair.
 
Trier par date Trier par votes
Re : Macro sur plusieurs fichiers texte

Bonjour et merci mromain,

Code: 
Sub EpurerTexte
    With Selection.Find
        .Text = "^pPhrase récurrente de début^p"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    If Selection.Find.Found Then
        Selection.HomeKey Unit:=wdStory
        Selection.Extend
        Selection.Find.Execute
        While Selection.Find.Found
            Selection.Delete Unit:=wdCharacter, Count:=1
            Selection.Find.ClearFormatting
            With Selection.Find
                .Text = "^pPhrase récurrente de fin^p"
                .Replacement.Text = ""
                .Forward = True
                .Wrap = wdFindContinue
                .Format = False
                .MatchCase = False
                .MatchWholeWord = False
                .MatchWildcards = False
                .MatchSoundsLike = False
                .MatchAllWordForms = False
            End With
            Selection.Find.Execute
            Selection.Delete Unit:=wdCharacter, Count:=1
            
            With Selection.Find
                .Text = "^pPhrase récurrente de début^p"
                .Replacement.Text = ""
                .Forward = True
                .Wrap = wdFindContinue
                .Format = False
                .MatchCase = False
                .MatchWholeWord = False
                .MatchWildcards = False
                .MatchSoundsLike = False
                .MatchAllWordForms = False
            End With
            Selection.Extend
            Selection.Find.Execute
        Wend
        
        Selection.EndKey
        Selection.Delete Unit:=wdCharacter, Count:=1
    End If
End Sub


Voila la macro (elle n'est pas complète j'ai rajouté d'autre remplacement que je pourrais remettre plus tard)
 
Vote positif 0 Vote négatif
Re : Macro sur plusieurs fichiers texte

re bonjour vubos,

pour la première étape (exécuter la macro "EpurerTexte"), désolé, mais je ne connais pas grand chose aux macros Word ...
par contre, je t'ai fait une macro excel pour importer et enregistrer les fichiers textes d'un dossier.
il reste à insérer les formules que tu veux dans la macro.

a+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Macro sur plusieurs fichiers texte

Arf ça marche pas car ma macro word transforme " : " en ";"
Mais c'est pas grave je vais demander de l'aide pour executer ma macro word sur un dossier puis j'utiliserais ta macro une fois les fichiers texte formater 🙄
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

M
  • Question Question
executer automatiquement une macro sur plusieurs fichiers et les copier dans d'autres
Réponses
0
Affichages
1 K
MIMI28CG
M
M
[REF] Wiki 5 de MichelXld (Formules, Audits de formules, Répertoires, Fichiers)
Réponses
0
Affichages
47 K
MichelXld
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…