Dovakhiin
Nouveau membre
Bonjour à tous,
après avoir erré parmi un grand nombre de forums, y compris celui-ci, je me résout à créer un sujet et venir vous demander de l'aide.
J4ai crée un sujet similaire sur un autre forum mais je n'arrive pas à appliquer leurs conseils à mon PB. Ce que je souhaite faire est simple à réaliser manuellement mais je n'y parviens pas en codant.
J'ai deux classeurs excel. Une extraction, et un fichier traitant. Les données du premier classeur ( mono feuille ) sont copiée dans la première feuille du second qui les traite ensuite dans ses feuilles suivantes. Je bloque complétement sur la partie copie ente les deux classeurs.
Je vous mets ce que j'ai mis (sachant que j'ai essayer énormément de choses differentes )
Déclaration des variables
ouverture du premier classeur
Ouverture du second classeur
Enfin le code posant Pb :/
Lorsque je l'utilise la seconde ligne du code précédent est surlignée jaune et j'ai le message suivant :"mais la j'ai une erreur 1004 la méthode pastespecial de la classe Range a échouée."
En sachant que lorsque je met le même classeur en source et destination de copie cela fonctionne. Il n'y a que lorsque je copie d'un classeur a l'autre que j'ai des pbs.
Pour info je vous laisse l'adresse de mon autre post.
Apparemment j'ai un pb de gestion d'instance excel. J'ai lu les post de Darkspoilt mais jamais je l'ai réussi a adapter les informations que je trouve à mon cas.
Je vous remercie par avance de toute l'aide et le temps que vous m'offrirez !
Dans tout les cas bonne fin de journée et si pas de réponse d'ici bonne fin du monde et fêtes de fin d'année ^^
http://www.developpez.net/forums/d1285783/autres-langages/general-visual-basic-6-vbscript/vb-6-anterieur/vb6-copie-donnee-entre-classeurs-excel/
après avoir erré parmi un grand nombre de forums, y compris celui-ci, je me résout à créer un sujet et venir vous demander de l'aide.
J4ai crée un sujet similaire sur un autre forum mais je n'arrive pas à appliquer leurs conseils à mon PB. Ce que je souhaite faire est simple à réaliser manuellement mais je n'y parviens pas en codant.
J'ai deux classeurs excel. Une extraction, et un fichier traitant. Les données du premier classeur ( mono feuille ) sont copiée dans la première feuille du second qui les traite ensuite dans ses feuilles suivantes. Je bloque complétement sur la partie copie ente les deux classeurs.
Je vous mets ce que j'ai mis (sachant que j'ai essayer énormément de choses differentes )
Déclaration des variables
Code:
Public appExcel As Object 'Application Excel
Public wbsource As Object 'Classeur Excel
Public wbprevious As Object
ouverture du premier classeur
Code:
cheminpr = ""
'utilisation comondialog afin d'ouvrir le fichier
CommonDialog1.ShowOpen
cheminpr = CommonDialog1.FileName
nompr = CommonDialog1.FileTitle
If cheminpr = "" Then MsgBox "vous n'avez rien sélectionné": Exit Sub
Set appExcel = CreateObject("Excel.Application")
Set wbprevious = appExcel.Workbooks.Open(cheminpr)
Ouverture du second classeur
Code:
cheminsr = ""
CommonDialog1.ShowOpen
cheminsr = CommonDialog1.FileName
nomsr = CommonDialog1.FileTitle
If cheminsr = "" Then MsgBox "vous n'avez rien sélectionné": Exit Sub
Set wbsource = appExcel.Workbooks.Open(cheminsr)
Enfin le code posant Pb :/
Code:
wbsource.Worksheets(nomfeuil).Range("A1:I600").Copy
wbprevious.Worksheets("Top Manager CAP").Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Lorsque je l'utilise la seconde ligne du code précédent est surlignée jaune et j'ai le message suivant :"mais la j'ai une erreur 1004 la méthode pastespecial de la classe Range a échouée."
En sachant que lorsque je met le même classeur en source et destination de copie cela fonctionne. Il n'y a que lorsque je copie d'un classeur a l'autre que j'ai des pbs.
Pour info je vous laisse l'adresse de mon autre post.
Apparemment j'ai un pb de gestion d'instance excel. J'ai lu les post de Darkspoilt mais jamais je l'ai réussi a adapter les informations que je trouve à mon cas.
Je vous remercie par avance de toute l'aide et le temps que vous m'offrirez !
Dans tout les cas bonne fin de journée et si pas de réponse d'ici bonne fin du monde et fêtes de fin d'année ^^
http://www.developpez.net/forums/d1285783/autres-langages/general-visual-basic-6-vbscript/vb-6-anterieur/vb6-copie-donnee-entre-classeurs-excel/