copier, coller, en code VBA

Bien le bonjour à tous le monde :)

voila je voudrais savoir comment faire en code vba pour ouvrir un fichier excel, copier les données de ce fichier dans un nouveau classeur et ensuite refermer le fichier ouvert. Je pense que par exemple, pour ouvrir le fichier dont on a besoin, l'utilisation de fênetre permettan la recherche du fichier sur le DD serai le mieu mais sa on pourra voir plus tard ^^

voila merci à vous d'avance

bonjour

Citation:

---

Envoyé par jackall

ouvrir un fichier excel

---

Code:

---

workbooks("nom_fichier.xls").open

---

Citation:

---

copier les données de ce fichier dans un nouveau classeur

---

il doit exister un .copy

Code:

---

workbooks("nom_fichier.xls").worksheets("nom_feuille").range("plage_a_copier").copy

---

et equivalent avec le coller! (.pastespecial je crois)

pour refermer le fichier.. ca je ne sais pas!

ps : il doit y avoir des fautes de frappes (voire des grosses erreurs qui ne fonctionnent pas!!!)

Pour effectuer la recherche d'un fichier et pour l'ouvrir, tu peux utiliser

Code:

---

Application.Dialogs.Item(xlDialogOpen).Show

---

C'est le plus simple.
Sitôt le fichier ouvert, tu peux récupérer son nom

Code:

---

NomFich = Activeworkbook.name

---

Pour avoir le répertoire

Code:

---

Chemin = Activeworkbook.path

---

Pour créer un nouveau fichier, c'est

Code:

---

Workbooks.add

---

Pour récupérer son nom, c'est toujours

Code:

---

NewFich = Activeworkbook.name

---

Pour copier une feuille du fichier NomFich dans ce nouveau classeur en dernière position, c'est

Code:

---

Workbooks(NomFich).Sheets("UneFeuille").Copy After:=Workbooks(NewFich).Sheets(Workbooks(NewFich).Sheets.count)

---

Pour fermer le classeur ouvert pour simple copie, c'est

Code:

---

Workbooks(NomFich).close false

---

Ensuite, pour enregistrer NewFich dans le même répertoire que le fichier copié avec son nouveau nom, c'est

Code:

---

Activeworkbook.saveas Chemin & "NouveauNom.xls"

---

Si tu fais tout ça dans l'ordre, ça devrait fonctionner ;)
Bon courage

tout d'abord je remerci ouskel'n'or et pyrene pour m'avoir donner des solution.
j'ai utiliser dans un premier temp la solution de ouskel'n'or qui m'a beacoup plu.
il y a juste un probleme c'est à dire que au moment de copier il me donne un message d'erreur. je vous donne mon code si des fois je me suis tromper à quelque part en reprenant et je donne aussi le message d'erreur.

Code:

---

1 2 3 4 5 6 7 8

Private Sub CommandButton3_Click Application.Dialogs.Item(xlDialogOpen).show nomfich = ActiveWorkbook.Name Workbooks.Add newfich = ActiveWorkbook.Name Workbooks(nomfich).Sheets("Feuil1").Copy After:=Workbooks(newfich).Sheets(Workbooks(newfich).Sheets.Count) Workbooks(nomfich).close False End Sub

---

et le message d'erreur :

Erreur d'exécution '-2147352565(8002000b)':

Le format du fichier que vous tentez d'ouvir, "R20080514.xls", est
différent de celui spécifié par l'éxtension de fichier. Assurez-vous que
le fichier n'est pas endommagé et qu'il provient d'une source fiable
avant de l'ouvir. Souhaitez vous ouvrir le ficheir maintenant ?


pour ma part je ne comprend pas du tout ce message ... donc je suis un peut perdu.
si vous vos lanternes pourraient me sortir du noir ^^

merci

bonjour,

et elle se situe où l'erreur?

remplace

Citation:

---

Code:

---

Workbooks(nomfich).Sheets("Feuil1").Copy After:=Workbooks(newfich).Sheets(Workbooks(newfich).Sheets.Count)

---

---

avec ça .... juste pour voir

Code:

---

1 2	Workbooks(nomfich).Sheets("Feuil1").Copy After:=Workbooks(newfich).Sheets(1)

---

aïe aïe aïe ... :cry::cry: sa ne marche toujours pas ... :cry::cry:

ben l'erreur se situe exactement a la ligne que tu m'a demander de remplacer

en fait je me disait avec ton code

je ferais simplement ça!

Code:

---

Workbooks(nomfich).Sheets("Feuil1").Copy

---

sans creer de workbook auparavent

je vien d'essayer mais sa ne va toujours pas je ne sais vraiment pas quoi faire ...

ben nous dire à quel niveau se situe l'erreur, ce serait déjà bien!

:o)

ben l'erreur se situe en fait à la ligne :

Code:

---

Workbooks(nomfich).Sheets("Feuil1").Copy

---

même avec le code que j'ai écrit plus haut, qui fonctionnait juqu'au niveau du copier, donc de la ligne

Code:

---

Workbooks(nomfich).Sheets("Feuil1").Copy after:=Workbooks(newfich).Sheets(1)

---

j'obtien la même erreur dans les deux cas.

je ne sais pas si l'erreur vient de la mais le nom du fichier dans workbook doit contenir l'extension!
workbooks("nomfichier.xls")

essaye simplment ça

Code:

---

1 2 3 4 5

Private Sub CommandButton3_Click Application.Dialogs.Item(xlDialogOpen).show Sheets(1).copy end sub

---

Non, ce que j'ai écrit fonctionne (je l'ai pris "là où il a toujours fonctionné"...) Par contre, cette erreur se produit s'il y a une erreur sur le nom de la feuille copiée

Code:

---

1 2 3 4 5 6

Application.Dialogs.Item(xlDialogOpen).Show nomfich = ActiveWorkbook.Name Workbooks.Add newfich = ActiveWorkbook.Name Workbooks(nomfich).Sheets("Trimestre_4").Copy After:=Workbooks(newfich).Sheets(Workbooks(newfich).Sheets.Count) Workbooks(nomfich).Close False

---

Tu dis
A+

et oui!

c'était pour ça le petit

Code:

---

sheets(1)

---

celui là, on est sur qu'il est là!
;)

ah ouai nikel sa marche :P un grand merci à vous :P

maintenant j'aurais une autre question, si je veu ouvrir deux fichier dans le même classeur mais sur des feuilles différentes, comment est ce que je pourrais faire ?

Tu crées un tableau des noms de feuilles

Code:

---

1 2	Workbooks("Classeur1").Sheets(Array("feuil1", "feuil2", "feuil3")).Copy _ Workbooks("classeur2").Sheets(1)

---

L'underscore doit exister pour placer le code comme je l'ai mis sur deux lignes ;)

Citation:

---

Envoyé par mayekeul

c'était pour ça le petit

Citation:

---

sheets(1)

---

---

Je pense que l'erreur était sur le nom de la feuille copiée ;)

je suis désolé de vous embéter encore :oops: mais en fait je n'arrive pas à utiliser le bout de code qui vient de m'être donné, (je pense que sa ne sert pas de le préciser, mais je suis débutant :oops:) en fait je ne sais pas vraiment ou le placer dans le code

Code:

---

1 2 3 4

Private Sub CommandButton3_Click Application.Dialogs.Item(xlDialogOpen).show Sheets(1).copy end sub

---

ben tout dépends de ce que tu veux en faire

ok donc je veu ouvrir et coller dans un nouveau classeur et sur deux feuilles différente deux fichier différent ouverts par l'utilisateur grace a une fenêtre demandan le chemin des feuilles a ouvrir.
voila je pense que sa devrait aller expliquer comme cela ^^

merci bien a tous:)

en fait au départ je devais avoir qu'une seule feuille a ouvrir mais on vien de
me donner cette nouvelle contraite donc c'est pourquoi ma nouvelle question ^^
donc voila j'espere que j'ai bien expliquer le problème sinon je pourrais toujours essayer d'expliquer d'une autre façon :)
voila merci d'avance

les feuilles à copier ont tjs le même nom?

oui le nom peu changer, le nom des feuilles correspond à plusieurs machines qui renvoient des données

Citation:

---

Envoyé par jackall

je suis désolé de vous embéter encore :oops: mais en fait je n'arrive pas à utiliser le bout de code qui vient de m'être donné, (je pense que sa ne sert pas de le préciser, mais je suis débutant :oops:) en fait je ne sais pas vraiment ou le placer dans le code

Code:

---

1 2 3 4

Private Sub CommandButton3_Click Application.Dialogs.Item(xlDialogOpen).show Sheets(1).copy end sub

---

---

Je t'ai donné le code pour faire ce que tu demandes. Là tu n'en mets qu'un bout. Comme tu débutes, essaie déjà d'utiliser le code qu'on te donne.
Pour plusieurs feuilles, je t'ai également donné le code
Tu remplaces simplement le nom des classeurs et des feuilles

Code:

---

1 2	Workbooks("???????").Sheets(Array("?????", "?????")).Copy _ Workbooks("?????").Sheets(1)

---

Pour remplir le tableau des noms de feuilles, si ceux-ci ne nont pas toujours les mêmes, Mayekeul va te dire ça ;)
(je le connais bien, allez !) :mouarf:

ben deja je vous remerci vraiment tou les deux, grace à vous je vois presque le bout de mon petit problème ^^

donc voila je tien déja à vous remercier :P

Citation:

---

Pour remplir le tableau des noms de feuilles, si ceux-ci ne nont pas toujours les mêmes, Mayekeul va te dire ça
(je le connais bien, allez !)

---

:merci:merci ouskel'nor je savais que je pouvais compter sur toi!
:king:

j'y jete un oeil justement!
:p

plus j'essaye quelque chose moin sa marche ... bizzar ... :P

c'est koi qui marche pas?

c'est pourtant simple

pour peu que la feuille a copier soit correctement déclarée

la méthode copy te demande juste où mettre les copie, et si l'argument est omis, il créera un nouveau classeur pour les contenir.

nan c'est bon sa y est ^^ sa marche merci bien pour votre aide, il m'en fallait pas mal ^^ voila un grand merci a vous

@+ 8-)8-)