a-tchittat
XLDnaute Nouveau
Salut tout le monde ...
Je craque, je ne trouve pas la solution ...
Voilà ce que j'aimerais faire : j'ai un classeur ouvert dans le lequel j'aimerais copier une feuille venant d'un autre classeur excel que je laisserai fermé.
J'ai essayé un bout de code mais il me renvoie une erreur sur la méthode "Copy" ...
Voilà mon code :
Dim xlApp As New Excel.Application
Dim xlBook As New Excel.Workbook
Dim xlSheet As New Excel.Worksheet
Sub cmdGenerer_Click()
Set xlBook = xlApp.Workbooks.Open(chFichExtr)
Set xlSheet = xlBook.Sheets(1) ' si on veut utiliser une feuille
xlSheet.Copy Before:=Workbooks(aWBook).Sheets(3) <= problème !
Application.CutCopyMode = False
...
end sub
aWBook est le nom de mon classeur ouvert.
Avez-vous une idée svp ?
Merci d'avance et bon WE !!!
Je craque, je ne trouve pas la solution ...
Voilà ce que j'aimerais faire : j'ai un classeur ouvert dans le lequel j'aimerais copier une feuille venant d'un autre classeur excel que je laisserai fermé.
J'ai essayé un bout de code mais il me renvoie une erreur sur la méthode "Copy" ...
Voilà mon code :
Dim xlApp As New Excel.Application
Dim xlBook As New Excel.Workbook
Dim xlSheet As New Excel.Worksheet
Sub cmdGenerer_Click()
Set xlBook = xlApp.Workbooks.Open(chFichExtr)
Set xlSheet = xlBook.Sheets(1) ' si on veut utiliser une feuille
xlSheet.Copy Before:=Workbooks(aWBook).Sheets(3) <= problème !
Application.CutCopyMode = False
...
end sub
aWBook est le nom de mon classeur ouvert.
Avez-vous une idée svp ?
Merci d'avance et bon WE !!!