Copier Données d'un fichier Excel dans un autreRésolu

Question

Salut!

Je dois copier des donn&#233;es d'un fichier texte ouvert avec Excel vers un autre fichier.

Pas de probl&#232;me pour ouvrir les deux fichiers. J'ai donc Excel ouvert deux fois.
Le soucis est lorsque je veux copier la cellule d'un fichier dans l'autre fichier...
Voici ma ligne de commande permettant de faire ceci : (J'ai l'erreur sur cette ligne)

wsExcel.Cells(249, j + 2).Value = wsExcel2.Cells(j - 1, 1).Value

sachant que wsExcel est le premier fichier, le soucis vient du deuxi&#232;me, voici leur 
d&#233;clarations: 

'Le permier : 
    Set appExcel = CreateObject("Excel.Application")
    'Ouverture d'un fichier Excel
    Workbooks.OpenText FileName:=LireINI("G150", "PathRecette"), Origin:=xlWindows, _
    StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlNone, _
    ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True
   
    Set wbExcel = appExcel.ActiveWorkbook
    Set wsExcel = wbExcel.ActiveSheet

'Le deuxi&#232;me:
appExcel.Workbooks.OpenText FileName:=LireINI("G150", "PathOF") + listFichiers(i), Origin:=xlWindows, _
                StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlNone, _
                ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True
                Set wbExcel2 = appExcel.ActiveWorkbook
                Set wsExcel2 = wbExcel2.ActiveSheet

Le d&#233;buggeur me dit Erreur d&#233;fini par l'objet ou parl'application ...

Aidez moi svp :) 

merci

MAXIMO71 · Answer

Bonjour, je te propose le code suivant, il fonctionne depuis excel, je ne sais pas si c'est ce que tu cherches car tes 

multiple set me font penser que tu as besoin de plusiers fen&#234;tre excel,
si c'est le cas je ne pense pas pouvoir t'aider, sinon je penses que tu

peux facilement adapter ce code pour ouvrir deux session d'excel, penses simplement &#224; activer la bonne fen&#234;tre

avec



'Windows("MaFenetre_aActiver").Activate  ou Select 





Sub Ouvre_Fichier_XLS_et_TXT()

'

' Je pense &#234;tre conforme &#224; ton cahier des charges



'

'Changement du r&#233;pertoire par d&#233;faut &#231;a ne sert pas &#224; grand chose mais bon

    ChDir "MyPath"



'Ouverture du fichier xls MonFichierXls    

    Workbooks.Open Filename:= _

        "MyPath\MonFichier.xls"

  

'Ouverture du fichier txt MonFichierTXT

    Workbooks.OpenText Filename:= _

        "UnAutrePath\MonFichierTXT.txt", Origin:=xlWindows _

        , StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _

        ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _

        , Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _

        Array(3, 1), Array(4, 1), Array(5, 1)), TrailingMinusNumbers:=True







Workbooks("MonFichier.xls").Worksheets(1).Cells(249, j + 2).Value =
Workbooks("MonFichierTXT.txt").Worksheets(1).Cells(j - 1, 1).Value



End Sub


Voila chez moi cela fonctionne bien, si tu as besoin de pr&#233;cision
laise un msg sur ce forum, m&#234;me pour dire OK et si c'est bon penses &#224;
valider

Bonne soir&#233;e


 MAXIMO71 
PS Si la r&#233;ponse vous satistait
pensez &#224; la valider

aurelien2723 · Answer

j'ai test&#233; avec cette ligne : 

                    Workbooks("G150.txt").Worksheet(1).Cells(249, j + 2).Value = Workbooks(listFichiers(i)).Worksheet(1).Cells(j - 1, 1).Value

mais toujours rien....

aurelien2723 · Answer

salut!

Bon j'ai trouvé mon soucis... je crois que ca venait tout simplement du fait que j vallait 1 le premier tour, donc j-1 0 ... BUG ...

JE suis dégouté :(

mais bon, ca marche! :)

MAXIMO71 · Answer

Je suis content que ton code fonctionne

 MAXIMO71 
PS Si la r&#233;ponse vous satistait
pensez &#224; la valider

Copier Données d'un fichier Excel dans un autre

4 réponses

Discussions similaires