fermer un fichier excel de vba word sans le sauver (pas de fentre de confirmatio

Question

voici mon code:
Pourquoi la commande en gras me donne une erreur ?
merci

Sub insert_template()

  Dim Template As Excel.Application
  Set Template =  CreateObject("Excel.Application")

With Template
    .Visible = False
    .Workbooks.Open (ActiveDocument.Path & "\batch_sheet.xls")
    .Run ("insertion")
End With

Selection.EndKey Unit:=wdStory
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Selection.Paste
Selection.InsertBreak Type:=wdPageBreak
Template.Run ("videclipboard")

 Template.Workbooks(ActiveDocument.Path & "\batch_sheet.xls").Close SaveChanges:=False 

Set Template  = Nothing

End Sub

HFanny · Answer

Bonjour,

Une fois que le classeur est ouvert, tu ne dois plus y accéder par rapport au chemin mais par rapport à son nom :

Template.Workbooks("batch_sheets.xls").Close SaveChanges:=False

Fanny

raphexlilly · Answer

marche pas snif ....
Subscrypt out of range .......

bizarre   je vois pas pourquoi ...

HFanny · Answer

Je ne vois pas pourquoi alors  :sad) 

Je viens de tester en mettant dans un module word :

Sub insert_template()

Dim Template As Excel.Application
Set Template = CreateObject("Excel.Application")

With Template
.Visible = True
.Workbooks.Open ("D:\USER\Tout\fouillis.xls")
End With

MsgBox ("OUVERT")

Template.Workbooks("fouillis.xls").Close (SaveChanges = False)

Set Template = Nothing

End Sub


et ça fonctionne bien ...
Je ne sais pas quoi te proposer d'autres  :blush) 

Fanny

raphexlilly · Answer

trou!vé ............

Template.ActiveWorkbook.Close SaveChanges:=False

au lieu de workbooks ,  activeworkbook    ouf  ouf    :) 
merci fanny pour ton aide

Fermer un fichier excel de vba word sans le sauver (pas de fentre de confirmatio

4 réponses

Discussions similaires