copie de ligne sous excel en gardant le format et en changeant de dossier

Question

Bonjour, &#224; tous,


Je cherche &#224; copier une ligne du fichier source vers ficheir cible 


en pr&#233;servant le format (j'ai quelque cellule en vert par exemple)


Le programme ci-dessous ne me copie rien du tout


lorsque je ferme le fichier source un message me demande de le sauvegarder et de vider le presse papier


comment faire arriver &#224; faire la copie en pr&#233;servant le format en se passant des messages d&#233;crits ci-dessus


Je suis d&#233;butant dans excel avec vb6 et je n'arr&#234;te pas de tourner en rond


merci pour votre aide et pour le d&#233;blocage


' D&#233;claration des variables


Private MonFicCible As Excel.Application ' Fichier cible


Private MonFicSource As Excel.Application ' Fichier source


Sub main()


Set MonFicCible = New Excel.Application


Set MonFicSource = New Excel.Application


' Ouverture des fichiers 


MonFicSource.Workbooks.Open FileName:="FichierSource.xls"


MonFicCible.Workbooks.Open FileName:="FichierCible.xls"


' S&#233;lection et copie de la 1&#232;re ligne du fichier source 


MonFicSource.Worksheets("FeuilSource").Rows(1).select


Selection.copy


' Collage dans la feuille cible (&#233;quivallent &#224; edition:collage sp&#233;cial:tout copier)


MonFicCible.Worksheets("FeuilCible").Rows(1).select


Selection.PasteSpecial Paste:=xlpasteAll, Operation:=xlNone, SkipBlanks:=False _


, Transpose:=False


MonFicCible.Visible = true 


MonFicSource.quit ' demande de sauvegarder alors que je n'ai rien &#233;crit dedans


end


End sub ' fin main()


Le r&#233;sultat apr&#232;s ex&#233;cution : aucune ligne copi&#233;e (m&#234;me la valeur).


Remarque : Je suis sous nt4, excel 2000 et vb6


Bonne lecture


Sa&#239;d

valtrase · Answer

Lut,
D'abord pourquoi ouvrir deux application Excel ? Ce n'est pas la peine.
Tu ouvres une application et ensuite tes deux workbooks.

xlApp.Workbooks.Open FileName:="FichierSource.xls"
xlApp.Workbooks.Open FileName:="FichierCible.xls"

Qu'il te demmande d'enregistrer c'est normal, Excel est comme cela, tu changes de cellule active et pour lui y'a un changement donc demande de sauvegarde.....
donc si tu nomes ton application  xlApp

xlApp.WorkBooks("FichierSource").Close False

Ensuite donnes plutot le chemin complet

xlApp.WorkBooks("FichierCible").Worksheets("FeuilCible").Rows(1).select

Ton prob vient peut-&#234;tre du fait que tu ouvre deux fois excel et que tu n'enregistre pas. donc fais les modifs cit&#233;es plus haut et vois.....

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

Copie de ligne sous excel en gardant le format et en changeant de dossier

1 réponse

Discussions similaires