EndNote exportation Excel

EndNote X8
Créer un style pour exporter sa bibliographie sur Excel + macro pour lien hypertexte

Sub ExportEndNote()
'

Columns("F:F").Select
Selection.Replace What:="internal-pdf://", Replacement:= _
"H:\PARTAGES\LI2A\Administration\Biblio\LI2A.Data\PDF\", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="/", Replacement:="\", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
ActiveWindow.SmallScroll Down:=-6
Selection.Copy
Columns("G:G").Select
ActiveSheet.Paste
Range("G1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=HYPERLINK(RC[-1],RC[-1])"
Range("G1").Select
Selection.AutoFill Destination:=Range("G1:G50"), Type:=xlFillDefault
Range("G1:G50").Select
ActiveWindow.SmallScroll Down:=-18

'boite de dialogue
Dim Left1 As Variant
Dim Top1 As Variant
Dim HelpFile1 As Variant
Dim HelpContextId1 As Variant '*****************
Dim Prompt1 As String
Dim Title1 As Variant
Dim Default1 As Variant
Dim Type1 As Variant
'response est fonction du type1
Dim reponse1 As String
Dim chemin As String

Dim date1 As String
' si annuler sortie
Left1 = ""
Top1 = ""
HelpFile1 = ""
HelpContextId1 = ""

Prompt1 = "Nom du fichier" 'Message à afficher dans la boîte de dialogue
Title1 = "Enregistrer un fichier" 'Titre de la zone de saisie
Default1 = " "

Type1 = 2 ' 0 Une formule. 1 Un nombre. 2 Texte (une chaîne). 4 Une valeur logique (True ou False).
'8 Une référence de cellule, sous la forme d'un objet Range. 16 Une valeur d'erreur, telle que #N/A. 64 Un tableau de valeurs.

reponse1 = Application.InputBox(Prompt:=Prompt1, title:=Title1, Default:=Default1, Type:=Type1)
If reponse1 = "" Then Exit Sub
'If reponse1 = False Then Exit Sub
chemin = "C:\Temp\"
date1 = Format(Now, "dd/mmmm/yyyy") & "_" & Format(Time, "hh-mm")
date1 = Replace(date1, "/", " ")

ActiveWorkbook.SaveAs Filename:=chemin & reponse1 & date1 & ".xls", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
End Sub