transfert de donnée d'un fichier à l'autreRésolu

Question

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




http://www.vbfrance.com/infomsg_RECUPERER-PLAGE-FICHIER-EXCEL-DANS-AUTRE-FICHIER_1114455.aspx#4

jrivet · Accepted Answer

Re,
Ceci devrait suffir alors si tu travaille directement sous EXCEL

Dim W1 As Workbook
Dim W2 As Workbook
 
  'le Classeur destination est dejà ouvert donc c'est le classeur actif
  Set W1 = ActiveWorkbook
  'Ouvre Classeur Source
  Set W2 = Application.Workbooks.Open("C:\Test1.Xls")

  Call W2.Worksheets("Feuil1").Range("A1:H33").Copy(W1.Worksheets("Feuil1").Range("A1"))

  'ferme Source sans sauver
  Call W2.Close(False)
  'Sauve classeur destination
  Call W1.Save
 
  Set W1 = Nothing
  Set W2 = Nothing
, ----
[code.aspx?ID=41455 By Renfield]

@+: Ju£i?n
Pensez: Réponse acceptée

jrivet · Answer

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 , ----
[code.aspx?ID=41455 By Renfield]

@+: Ju£i?n
Pensez: Réponse acceptée

jrivet · Answer

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

inge68 · Answer

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?

jrivet · Answer

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

inge68 · Answer

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

jrivet · Answer

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

inge68 · Answer

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

inge68 · Answer

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

inge68 · Answer

Merci beaucoup jrivet ca marche tres bien.

J'en profite pour pauser une question du meme genre, en fait au lieu de faire la copie d'un fichier excel je voudrais copier la totalité d'un fichier texte ( ca sera mon w2) et je veux le mettre dans un anglet du fichier de destination ( W2)

comment je pourait proceder? Merci en core une fois

jrivet · Answer

Salut,
Un fichier Text? doncplus irne à voir avec excel.
Tu veux importer un fichier text dans une feuille Excel c'est bien cela?
Est ce que ton fichier à un formatage précis(du style des fichiers CSV)?

@+: Ju£i?n
Pensez: Réponse acceptée

inge68 · Answer

oui pour transferer un fichier text  dans un fichier excel 

ce fichier texte a plusieurs ligne et  contient des Tabulations, c'est un fichier ISO à la base.

si tu veux je t'envoie un exemple en MP

inge68 · Answer

un truc du genre :

{tf1\ansi\ansicpg1252\deff0\deflang1036{\fonttbl{\f0\fnil\fcharset0 Comic Sans MS;}}
{\colortbl ;ed128\green0\blue0;}
\viewkind4\uc1\pard\cf1\b\f0\fs22 (PAR) 	ab 
\par VP31	ab 
\par NUM_O  1	ab 
\par BARILLET_1  360000	ab 
\par BARILLET_2  360000	ab 
\par SOUDAGE(oui=1/non=0)  0	ab 
\par Longueur_PRODUIT 755	ab 
\par M2	ab 
\par 	ab 
\par (A1) 	ab 
\par A0	ab X0
\par A180  X756.60
\par A205  X756.60
\par A330 	ab  X0
\par M2	ab ....
avec une centaine de ligne encore

jrivet · Answer

Salut,
Essaie de te dépatouiller avec ceci.

  
Workbooks.OpenText FileName:="C:\Documents and Settings\rivet\Bureau\bio.txt" _
       , Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier _
       :=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:= _
       False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), ----
[code.aspx?ID=41455 By Renfield]

J'essaierais plus en détails cet après midi si j'ai 5 minutes

@+: Ju£i?n
Pensez: Réponse acceptée

inge68 · Answer

ok je te remercie sincerement, c'est vraiment sympa.
Je vais me creuser les neurones et si je reussi a trouver un truc je te le dirai.

a +

Transfert de donnée d'un fichier à l'autre

15 réponses

Votre réponse

Discussions similaires