Macro de lecture et fusion

[heavens]

Bonjour à tous,
je suis en recherche d'aide pour une macro qui me fait devenir dingue !!
je vous explique

- je vais envoyer un *.ods à environ 600 personnes qui vont enregistrer ce fichier dans un dossier partagé.
- je dois trouver une macro qui va ouvrir les réponses *.ods, les lire, enregistrer les données voulues et refermer le fichier.
- naturellement, je voudrais que cette macro puisse lire mes réponses et les enregistrer les unes après les autres.

j'en suis là : mais je ne suis vraiment pas certain de mes lignes de commandes !


Sub fusionfichiers()
'
' fusion Macro
'
Dim NomFich As String, NomRep As String
NomRep = "G:\Dossiers Partagés\Audit Impression"
NomFich = Dir(NomRep & "*.ods")
Do While NomFich <> ""
nomfile = NomRep & NomFich
Workbooks.Open nomfile

'**** Traitement de la fusion
Windows(nomfile).Activate
Range("A1").Select
' selection et copie
i = ActiveCell.SpecialCells(xlCellTypeLastCell).Row
j = ActiveCell.SpecialCells(xlCellTypeLastCell).Column
Range(Cells(1, 1), Cells(4, j)).Select
Selection.Copy

'ThisWorkbook.ActiveSheet.Range ("A1")
Windows("testfusionfichiers.xls").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=Fals
'vidage du presse papier pour ne pas avoir le message
Application.CutCopyMode = False

' ThisWorkbook.ActiveSheet.Range("A1") = _
' ThisWorkbook.ActiveSheet.Range("A1") + _
' ActiveWorkbook.ActiveSheet.Range("A1")

' fin du traitement de la fusion

ActiveWorkbook.Close no
NomFich = Dir
Loop
End Sub


je ne sais pas comment lui dire exactement ce qu'elle doit copier 😡

merci pour votre aide

 

[Hippolite]

Re : Macro de lecture et fusion

Bonjour,
As-tu bien lu le lien Piloter Open Office depuis Excel que je t'avais indiqué ?
Tu y trouves comment
- ouvrir un fichier OOo
- adresser une requête dans une base de données OOo,
- convertir un fichier OOo en fichier Office

A+

 

[heavens]

Re : Macro de lecture et fusion

j'ai lu en long, en large et en travers mais je ne trouve pas ce que je cherche !!😡

 

[Hippolite]

Re : Macro de lecture et fusion

Bonjour,
Le lien ne te donne pas une solution sur un plateau, mais en réfléchissant, tu verras qu'il te fournit les briques pour y parvenir.
Par exemple, j'en ai déduit le code ci-dessous qui ouvre un fichier "dOOocument.ods" et le copie au format .xls
A partir de là tu peux programmer de façon classique avec des fichiers Excel : faire une boucle sur les fichiers OOo pour faire une copie temporaire .xls et en extraire les infos.

Sub CopieOOoToXls() 'Le fichier dOOocument.ods est copié au format .xls
    Dim Args(), Args2(0)
    Dim serviceManager As Object, Desktop As Object, Document As Object
    Dim Donnees As String
    Dim i As Byte
    
    'Création d'une instance Open Office
    Set serviceManager = CreateObject("com.sun.star.ServiceManager")
    Set Desktop = serviceManager.createInstance("com.sun.star.frame.Desktop")
    
    'Appel fonction de conversion du chemin
    Fichier = ConvertToURL(ThisWorkbook.Path & "\dOOocument.ods")

    'Ouverture du fichier Ooo
    Set Document = Desktop.loadComponentFromURL(Fichier, "_blank", 0, Args)
    
    'Crée une copie du fichier OOo au format Excel
    FichierCopie = ConvertToURL(ThisWorkbook.Path & "\CopiedOOocument.xls")
    Set Args2(0) = serviceManager.Bridge_GetStruct("com.sun.star.beans.PropertyValue")
    Args2(0).Name = "FilterName"
    Args2(0).Value = "MS Excel 97"
    Document.StoreToURL FichierCopie, Args2
    DoEvents

    'Fermeture du document OOo sans sauvegarder
    Document.Close (False)
End Sub


Function ConvertToURL(Fichier As String)
'fonction de conversion  au format URL
Dim Cible As String
    Cible = Fichier
    Cible = Replace(Cible, "\", "/")
    ConvertToURL = "file:///" & Cible
End Function

A+