Export Excel : objet actif :

[#1]

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

[jchoucq]

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