Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Shop Recherche
986 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  insertion à partir d'un fichier texte dans un fichier excel

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

insertion à partir d'un fichier texte dans un fichier excel

n°1570251
mirounet1
Posté le 05-06-2007 à 12:17:39  profilanswer
 

Bonjour,
 
j'explique les finalités du projet:
 
1- J'ai un dossier qui contient 500 fichiers word, je veux les transformer (automatiquement) en fichier texte *.txt (texte brute)
2- Je veux parcourir les fichers texts crées et insérer le contenu du fichier texte dans une ligne d'un fichier excel "resultat.xls"
 
merci d'avance.  

mood
Publicité
Posté le 05-06-2007 à 12:17:39  profilanswer
 

n°1570339
Paul Hood
Posté le 05-06-2007 à 14:44:46  profilanswer
 

Merci pour quoi ?

n°1570349
mirounet1
Posté le 05-06-2007 à 15:06:49  profilanswer
 

je comprend pas ce que tu dis si c pour delirer, j ai pas le temps pour ça

n°1570378
Paul Hood
Posté le 05-06-2007 à 15:41:45  profilanswer
 

C'est pas complétement pour délirer  (mais un peu quand même !!!) ... c'est pour savoir ce que tu veux  
 - le code clé en main
 - une assistance sur un point particulier (lequel ?)
 - un avis général sur la façon de faire
 - un lien vers quelque chose qui ressemblerai à ce que tu veux
enfin je sais pas moi .... à toi nous le dire !!

n°1570384
mirounet1
Posté le 05-06-2007 à 15:45:14  profilanswer
 

dsl je t ai mal compris,
 
donc j'ai commencé à developper ce code sous VBA qui fonctionne pas et je crois que y a des references qui manque donc merci de m'aider
 
Sub Word()
Dim strFichier As String
Dim objWord As New Word.Application
 
'strFichier = "C:\ALGISI Didier.doc"
 
Dim FSO As New Scripting.FileSystemObject
Dim DossierSource As Scripting.Folder, SousDossier As Scripting.Folder
Dim fichier As Scripting.File
 
   ' Set FSO = Scripting.FileAttribute
    Set DossierSource = FSO.GetFolder("C:\Documents and Settings\Mourad-OUHIBI\Bureau\moez_projet\" )
     
    For Each fichier In DossierSource.Files
        ' ouvrir un document Word
        objWord.Documents.Open fichier
 
        ' rendre Word visible
        objWord.Visible = False
 
        ' Enregistrer en format texte brut
        objWord.ActiveDocument.SaveAs FileName:="c:\toto.csv", FileFormat:=wdFormatText, _
        LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
        :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
        SaveNativePictureFormat:=False, SaveFormsData:=True, SaveAsAOCELetter:= _
        False, Encoding:=1256, InsertLineBreaks:=False, AllowSubstitutions:=False _
        , LineEnding:=wdCRLF, AddBiDiMarks:=False
 
 
        ' fermer le document
        objWord.Documents(1).Close
        ' quitter l'application Word
        objWord.Quit
 
        ' libérer la mémoire
        Set objWord = Nothing
 
    Next
 
End Sub

n°1570457
Harkonnen
Modérateur
Un modo pour les bannir tous
Posté le 05-06-2007 à 17:03:42  profilanswer
 

oui et donc ? c'est quoi le message d'erreur exact ?

n°1570470
mirounet1
Posté le 05-06-2007 à 17:12:23  profilanswer
 

c bon j'ai ajouté deux réfences, "runtime" et "ms word"
merci


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  insertion à partir d'un fichier texte dans un fichier excel

 

Sujets relatifs
mettre le contenu d'un fichier dans une variableEnvoyer mail avec fichier attache
Un site a partir d'un PSD?charger un fichier xml avec javascript
[C] lire un fichier sur internet http://domain.com/fichierchanger la couleur d'un texte dynamique
J'ai un fichier stocké sur c: et ...Ecrire une classe dans un fichier?
[EXCEL] Formule de comparason de date[JAVASCRIPT] chargement fichier lors de lappel d'une fonction
Plus de sujets relatifs à : insertion à partir d'un fichier texte dans un fichier excel


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR