VBA word supprimer lignes en doubles

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : VBA word supprimer lignes en doubles

daniel-12

Bonjour
j'ai une macro VBA qui fait une opération un peut compliquée
elle vérifie si un fichier PDF est ouvert, puis si c'est le cas sauve ce fichier PDF en txt, et le reinjecte ensuite dans une zone de texte dans word

je fais cela car j'ai une autre macro qui effectue un contrôle, mais qui ne sais le faire que dans des zone de texte et donc dans l'environement MSOffice

ca marche , mais j'ai quelque soucis !

lorsque je save le fichier pdf en txt, j'ai parfois des lignes en double
et donc je les reinjecte en double
ce qui allonge le traitement et parasite le contrôle

voici la partie de code qui récupère le contenu du txt pour le mettre dans word

Code :

i = 0 'Initialisation du compteur de lignes
While Not EOF(IndexFichier) '
Line Input #IndexFichier, ContenuLigne
Selection.TypeText Text:=ContenuLigne
Selection.TypeParagraph
i = i + 1
If i = 100 Then 'Toutes les 100 lignes on ajoute une nouvelle textbox
Set txtBx = ThisDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 20, 100, 500, 200)
txtBx.Select
i = 0
End If
Wend

comment faire pour au passage, supprimer les lignes en doubles ?

Publicité

Marc L

Bonjour,

utiliser une Collection ou l'objet Dictionary, les deux étant consultables dans l'aide VBA interne …

daniel-12

Code :

Sub Sup_doublons()
Dim objDictionary As Scripting.Dictionary
Dim objFSO As Scripting.FileSystemObject
Dim objFile As Scripting.TextStream
Dim oTxt As Scripting.TextStream
Set objDictionary = CreateObject("Scripting.Dictionary" )
Set objFSO = CreateObject("Scripting.FileSystemObject" )
Set objFile = objFSO.OpenTextFile("C:\Temp\tempo_pour_controle.txt", ForReading)
Dim strName As String
Do Until objFile.AtEndOfStream
strName = objFile.ReadLine
If Not objDictionary.Exists(strName) Then
objDictionary.Add strName, strName 'creation du dico en ingorant les ligne en doubles
End If
Loop
objFile.Close
Dim strKey As Variant
Set objFile = objFSO.OpenTextFile("C:\Temp\tempo_pour_controle.txt", ForWriting) 'reecriture du fichier a partir du dico
For Each strKey In objDictionary.Keys
objFile.WriteLine strKey
Next
objFile.Close
End Sub

ca marche
j'ai creé une routine juste pour faire la manip
elle lit le fichier, met les données dans le dico, mais sans les doublons
puis elle reecrit le fichier a partir du dico

on peut faire plus propre ?

Message édité par daniel-12 le 22-08-2017 à 18:08:57

Marc L

• En ligne 16 la chaîne peut être vide car seule la clef compte …

• Ne pas oublier de libérer chaque variable objet en fin de procédure …

• J'ai bien l'impression que les références à des ActiveX ont été activées (déclaration anticipée / early binding) et
utilisées lors de la déclaration de variables objet mais l'affectation de ces variables ne les utilise pas (late binding)
vu l'utilisation de la fonction CreateObject !

VBA ayant déjà tout le nécessaire pour un fichier texte, je n'utiliserais pas l'ActiveX FileSystemObject …

daniel-12

en effet c'est coché Microsoft Scripting Runtime
car j'avais des soucis en adaptant ce code venant d'un VBS

comment tu verrais le code ?

j'ai un autre soucis
mais on verra après

Message édité par daniel-12 le 22-08-2017 à 19:26:27

Marc L

Peu importe en déclaration anticipée pour profiter de l'Intelisense ou en déclaration tardive mais en évitant de les mélanger !

L'autre souci pouvant remettre en cause une procédure déjà développée,
mieux vaut donc avoir une vision globale avant d'écrire ne serait-ce la première ligne de code …

FORUM HardWare.fr

Programmation

VB/VBA/VBS

VBA word supprimer lignes en doubles

Sujets relatifs
VBA BO afficher le gestionnaire de rapport	Executer du code VBA sur un outil web
[RESOLU] VBA - Tag d'1 var bidimensionnelle sur 1 librairie SharePoint	VBA Excel Requète WEB
Problème MFC en VBA (erreur -2147417848 (80010108) )	[VBA/HTML] insérer une image dans un mail
code VBA autoriser collage en valeur	Macro de suppression pour word
Problème syntaxe VBA
Plus de sujets relatifs à : VBA word supprimer lignes en doubles

Page générée en 0.064 secondes