Bonjour, j'essaie de recuperer une plage d'un fichier .xls et la mettre dans un autre (essai.xls)
Ce que je comprends pas c'est qu'en mode pas à pas, quand je selectionne les 2 fichiers manuelement pour  copier/coller, là ca marche nickel. Mais quand j'execute mon progr directement. ca marche pas!!!

Je procede de la facon suivante:
Sub essai()

Dim xApp As Object
Dim wBook1 As Object
Dim wBook2 As Object
Dim wSheet1 As Object
Dim wSheet2 As Object

'créer les objets excel + classeur
Set xApp = CreateObject("Excel.Application")

Set wBook1 = xApp.Workbooks.Open("C:\Documents and Settings\youmane\Bureau\mon_fichier.xls")
Set wSheet1 = wBook1.Worksheets("mafeuille")

wSheet1.Select
Range("A1:B1890").Copy  

wBook1.Close False

Set wBook2 = xApp.Workbooks.Open("C:\Documents and Settings\youmane\Bureau\essai.xls")
Set wSheet2 = wBook2.Worksheets("essai")

wSheet2.Select
Range("A1").Select    
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

'wBook2.Close False
'xApp.Quit

End Sub

Merci pour votre réponse

Salut,
Essaie d'adapter ceci

Dim XlApp As Object Dim W1 As Object Dim W2 As Object Set XlApp = CreateObject("Excel.Application")        'ouvre le Classeur destination    Set W1 = XlApp.Workbooks.Open("C:\PP.Xls")    'Ouvre Classeur Source    Set W2 = XlApp.Workbooks.Open("C:\Test1.Xls")        Call W2.Worksheets("Feuil1").Range("A1:H33").Copy(W1.Worksheets("Feuil1").Range("A1"))    'ferme Source sans sauver    Call W1.Close(False)    'ferme destination en sauvant les modif    Call W2.Close(True)    'ferme Excel    Call XlApp.Quit    'destruction des objets    Set XlApp = Nothing    Set W1 = Nothing    Set W2 = Nothing

By Renfield

@+: Ju£i€n
Pensez: Réponse acceptée

Re,
Une petite erreur s'est glissée dans mon code

ceci
   'ferme Source sans sauver
   Call W1.Close(False)
   'ferme destination en sauvant les modif
   Call W2.Close(True)

devient

   'ferme Source sans sauver
   Call W2.Close(False)
   'ferme destination en sauvant les modif
   Call W1.Close(True)

@+: Ju£i€n
Pensez: Réponse acceptée

Merci jrivet pour ta réponse,
ça marche mais seulement il me transfert pas ce que je veux dans le fichier de destination, il me demande de sauvegarder dans un autre fichier, c'est normal?

Est tu sur que tout tes classeur et autres applications Excel sont bien fermées?

Regarde dans la  liste des processus si tu n'as pas des Application EXCEL.EXE "fantôme"

@+: Ju£i€n
Pensez: Réponse acceptée

mon fichier de destination est ouvert c'est depuis ce fichier que je lance mon code, c'est le but

Re,
Bah je croyais que tu faisais tout cela depuis VB6 moi.

Dans ce cas si c'est le fichier de destination qui est ouvert tu peux simplifier le code plus besoin de l'ouvrir.

De plus si tu es directement sous Excel tu n'as pas besoin de créer une nouvelle application EXCEL.

@+: Ju£i€n
Pensez: Réponse acceptée

si j'ai fait ce code mais ca marche pas!! Dsl je suis encore debutant

Dim XlApp As Object
Dim W1 As Object
Dim W2 As Object
Set XlApp = CreateObject("Excel.Application")
   
   'Ouvre Classeur Source
   Set W2 = XlApp.Workbooks.Open("C:\Test1.Xls")
   
   Call W2.Worksheets("Feuil1").Range("A1:H33").Copy(workbooks("PP.Xls").Worksheets("Feuil1").Range("A1"))

   'ferme Source sans sauver
   Call W1.Close(False)
   'ferme Excel
   Call XlApp.Quit
   'destruction des objets
   Set XlApp = Nothing
   Set W1 = Nothing
   Set W2 = Nothing

excuse moi j'ai pas vu ton dernier message
je vais l'essaier merci bcp jrivet