1 Reply Latest reply: Oct 14, 2013 12:08 PM by Johann Choucq RSS

    Export Excel : objet actif :

      Bonjour

       

      J'espère que vous allez m'aider à trouver une solution pour ce problème :

      Pour l'export de mon tableau (objet graphique) en excel j'ai mis en place un macro qui marche.

      Le probleme c'est que l'utilisateur il aura besoin à un moment donnée de cloner le tableau et faire quelque modification sur l'objet clonnée : mon objectif c'est que mon macro exporte l'objet actif (celui qui est clonné) et pas celui d'origine et si il se met sur celui d'origine (qui devient actif) c'est lui qui sera exporter

      j'espère que j'etais assez claire, ci dessous mon macro actuel :

       

      sub ExportBrut
      ExcelExpwCaption("Brut")
      end sub

      Sub ExcelExpwCaption(ATab)
      'MsgBox "Hello1"
           'Set the path where the excel will be saved
           filePath = "c:\temp\TestBB.xls"
           'MsgBox "Hello2"
           'Create the Excel spreadsheet
           Set excelFile = CreateObject("Excel.Application")
           'MsgBox "Hello3"
           excelFile.Visible = true
           'Create the WorkBook
           Set WorkBook = excelFile.WorkBooks.Add
           'Create the Sheet
           Set Sheet = WorkBook.WorkSheets(1)
           'Get the chart we want to export
           Set tableToExport = ActiveDocument.GetSheetObject(ATab)
           Set chartProperties = tableToExport.GetProperties
           tableToExport.CopyTableToClipboard true
           'Get the caption
           chartCaption = tableToExport.GetCaption.Name.v
           'MsgBox chartCaption
           'Set the first cell with the caption
           Sheet.Range("A1") = chr(13) & chartCaption
           'Paste the rest of the chart
           Sheet.Paste Sheet.Range("A2")
           excelFile.Visible = true
           'Save the file and quit excel
           'WorkBook.SaveAs filePath
           'WorkBook.Close
           'excelFile.Quit
           'Cleanup
           Set WorkBook = nothing
           Set excelFile = nothing
      End Sub

       

       

      Merci d'avance

        • Re: Export Excel : objet actif :
          Johann Choucq

          bonjour,

           

          pourquoi utiliser une macro pour faire un export vers Excel ?

          Il est possible soit de faire un clic droit sur l'objet en question pour faire un export vers Excel soit de rajouter, dans la barre de titre, un "mini bouton" d'export vers Excel.

           

          J'espère avoir été clair.

          Cordialement,

           

          Johann