Je dois créer un script qui doit copier/coller des données d'un fichier
excel vers un autre sachant que les données du fichier source doivent
remplacer les données du fichier cible. Ce n'est pas un rajout de données.Une
fois le copier/coller terminé, le script enregistre le fichier sous un autre
nom.
J'ai commencé mon script et il bloque à selection2.copy selection en
precisant que "la methode copy de la classe range a échoué".
Set xlapp = CreateObject("Excel.Application")
xlapp.visible = True
Set xlbook = xlapp.Workbooks.Open("C:\dossier\fichier1.xls")
Set xlsheet = xlbook.WorkSheets("test")
Set xlapp2 = CreateObject("Excel.Application")
xlapp2.visible = True
Set xlbook2 = xlapp2.Workbooks.Open("C:\dossier2\fichier2.xls")
Set xlsheet2 = xlbook2.Worksheets(1)
Set selection2 = xlsheet2.range("A1:D41")
Set selection = xlsheet.range("A2")
selection2.copy selection
xlappl2.quit
Set nxlsheet = xlsheet.name("test2.xls")
xlbook.saveas("c:\dossier3\fichier3.xls")
xlbook.close
xlapp.quit
-------------------------------------------------------
Avez vous une idée pour remedier à mon petit problème si toutefois le copier
coller est possible vbscript ?
Merci de vos réponses
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Yannick SCHAPPLER
Bonjour,
Ton plantage est du au fait que tu cherches à coller une plage de cellules source, d'une dimension différente de la plage de destination. Un peu comme quand tu fais à la main un copier-coller de 4 cellules, en ne sélectionnant que deux cellules par ex.
Yannick SCHAPPLER
"berthelagrandepatte" a écrit dans le message de news:
Bonjour,
Je dois créer un script qui doit copier/coller des données d'un fichier excel vers un autre sachant que les données du fichier source doivent remplacer les données du fichier cible. Ce n'est pas un rajout de données.Une fois le copier/coller terminé, le script enregistre le fichier sous un autre nom. J'ai commencé mon script et il bloque à selection2.copy selection en precisant que "la methode copy de la classe range a échoué".
Set xlapp = CreateObject("Excel.Application") xlapp.visible = True Set xlbook = xlapp.Workbooks.Open("C:dossierfichier1.xls") Set xlsheet = xlbook.WorkSheets("test")
Set xlapp2 = CreateObject("Excel.Application") xlapp2.visible = True Set xlbook2 = xlapp2.Workbooks.Open("C:dossier2fichier2.xls") Set xlsheet2 = xlbook2.Worksheets(1)
Set selection2 = xlsheet2.range("A1:D41") Set selection = xlsheet.range("A2") selection2.copy selection
xlappl2.quit
Set nxlsheet = xlsheet.name("test2.xls") xlbook.saveas("c:dossier3fichier3.xls") xlbook.close xlapp.quit -------------------------------------------------------
Avez vous une idée pour remedier à mon petit problème si toutefois le copier coller est possible vbscript ? Merci de vos réponses
Bonjour,
Ton plantage est du au fait que tu cherches à coller une plage de cellules
source, d'une dimension différente de la plage de destination.
Un peu comme quand tu fais à la main un copier-coller de 4 cellules, en ne
sélectionnant que deux cellules par ex.
Yannick SCHAPPLER
"berthelagrandepatte" <berthelagrandepatte@discussions.microsoft.com> a
écrit dans le message de news:
65E11C73-B59D-481D-8881-09AF547C81FA@microsoft.com...
Bonjour,
Je dois créer un script qui doit copier/coller des données d'un fichier
excel vers un autre sachant que les données du fichier source doivent
remplacer les données du fichier cible. Ce n'est pas un rajout de
données.Une
fois le copier/coller terminé, le script enregistre le fichier sous un
autre
nom.
J'ai commencé mon script et il bloque à selection2.copy selection en
precisant que "la methode copy de la classe range a échoué".
Set xlapp = CreateObject("Excel.Application")
xlapp.visible = True
Set xlbook = xlapp.Workbooks.Open("C:dossierfichier1.xls")
Set xlsheet = xlbook.WorkSheets("test")
Set xlapp2 = CreateObject("Excel.Application")
xlapp2.visible = True
Set xlbook2 = xlapp2.Workbooks.Open("C:dossier2fichier2.xls")
Set xlsheet2 = xlbook2.Worksheets(1)
Set selection2 = xlsheet2.range("A1:D41")
Set selection = xlsheet.range("A2")
selection2.copy selection
xlappl2.quit
Set nxlsheet = xlsheet.name("test2.xls")
xlbook.saveas("c:dossier3fichier3.xls")
xlbook.close
xlapp.quit
-------------------------------------------------------
Avez vous une idée pour remedier à mon petit problème si toutefois le
copier
coller est possible vbscript ?
Merci de vos réponses
Ton plantage est du au fait que tu cherches à coller une plage de cellules source, d'une dimension différente de la plage de destination. Un peu comme quand tu fais à la main un copier-coller de 4 cellules, en ne sélectionnant que deux cellules par ex.
Yannick SCHAPPLER
"berthelagrandepatte" a écrit dans le message de news:
Bonjour,
Je dois créer un script qui doit copier/coller des données d'un fichier excel vers un autre sachant que les données du fichier source doivent remplacer les données du fichier cible. Ce n'est pas un rajout de données.Une fois le copier/coller terminé, le script enregistre le fichier sous un autre nom. J'ai commencé mon script et il bloque à selection2.copy selection en precisant que "la methode copy de la classe range a échoué".
Set xlapp = CreateObject("Excel.Application") xlapp.visible = True Set xlbook = xlapp.Workbooks.Open("C:dossierfichier1.xls") Set xlsheet = xlbook.WorkSheets("test")
Set xlapp2 = CreateObject("Excel.Application") xlapp2.visible = True Set xlbook2 = xlapp2.Workbooks.Open("C:dossier2fichier2.xls") Set xlsheet2 = xlbook2.Worksheets(1)
Set selection2 = xlsheet2.range("A1:D41") Set selection = xlsheet.range("A2") selection2.copy selection
xlappl2.quit
Set nxlsheet = xlsheet.name("test2.xls") xlbook.saveas("c:dossier3fichier3.xls") xlbook.close xlapp.quit -------------------------------------------------------
Avez vous une idée pour remedier à mon petit problème si toutefois le copier coller est possible vbscript ? Merci de vos réponses
berthelagrandepatte
j'avais, avant de poster cette demande, selectionné une plage identique de cellules et le resultat fut identique avec le meme message d'erreur.
Merci
Bonjour,
Ton plantage est du au fait que tu cherches à coller une plage de cellules source, d'une dimension différente de la plage de destination. Un peu comme quand tu fais à la main un copier-coller de 4 cellules, en ne sélectionnant que deux cellules par ex.
Yannick SCHAPPLER
"berthelagrandepatte" a écrit dans le message de news:
Bonjour,
Je dois créer un script qui doit copier/coller des données d'un fichier excel vers un autre sachant que les données du fichier source doivent remplacer les données du fichier cible. Ce n'est pas un rajout de données.Une fois le copier/coller terminé, le script enregistre le fichier sous un autre nom. J'ai commencé mon script et il bloque à selection2.copy selection en precisant que "la methode copy de la classe range a échoué".
Set xlapp = CreateObject("Excel.Application") xlapp.visible = True Set xlbook = xlapp.Workbooks.Open("C:dossierfichier1.xls") Set xlsheet = xlbook.WorkSheets("test")
Set xlapp2 = CreateObject("Excel.Application") xlapp2.visible = True Set xlbook2 = xlapp2.Workbooks.Open("C:dossier2fichier2.xls") Set xlsheet2 = xlbook2.Worksheets(1)
Set selection2 = xlsheet2.range("A1:D41") Set selection = xlsheet.range("A2") selection2.copy selection
xlappl2.quit
Set nxlsheet = xlsheet.name("test2.xls") xlbook.saveas("c:dossier3fichier3.xls") xlbook.close xlapp.quit -------------------------------------------------------
Avez vous une idée pour remedier à mon petit problème si toutefois le copier coller est possible vbscript ? Merci de vos réponses
j'avais, avant de poster cette demande, selectionné une plage identique de
cellules et le resultat fut identique avec le meme message d'erreur.
Merci
Bonjour,
Ton plantage est du au fait que tu cherches à coller une plage de cellules
source, d'une dimension différente de la plage de destination.
Un peu comme quand tu fais à la main un copier-coller de 4 cellules, en ne
sélectionnant que deux cellules par ex.
Yannick SCHAPPLER
"berthelagrandepatte" <berthelagrandepatte@discussions.microsoft.com> a
écrit dans le message de news:
65E11C73-B59D-481D-8881-09AF547C81FA@microsoft.com...
Bonjour,
Je dois créer un script qui doit copier/coller des données d'un fichier
excel vers un autre sachant que les données du fichier source doivent
remplacer les données du fichier cible. Ce n'est pas un rajout de
données.Une
fois le copier/coller terminé, le script enregistre le fichier sous un
autre
nom.
J'ai commencé mon script et il bloque à selection2.copy selection en
precisant que "la methode copy de la classe range a échoué".
Set xlapp = CreateObject("Excel.Application")
xlapp.visible = True
Set xlbook = xlapp.Workbooks.Open("C:dossierfichier1.xls")
Set xlsheet = xlbook.WorkSheets("test")
Set xlapp2 = CreateObject("Excel.Application")
xlapp2.visible = True
Set xlbook2 = xlapp2.Workbooks.Open("C:dossier2fichier2.xls")
Set xlsheet2 = xlbook2.Worksheets(1)
Set selection2 = xlsheet2.range("A1:D41")
Set selection = xlsheet.range("A2")
selection2.copy selection
xlappl2.quit
Set nxlsheet = xlsheet.name("test2.xls")
xlbook.saveas("c:dossier3fichier3.xls")
xlbook.close
xlapp.quit
-------------------------------------------------------
Avez vous une idée pour remedier à mon petit problème si toutefois le
copier
coller est possible vbscript ?
Merci de vos réponses
j'avais, avant de poster cette demande, selectionné une plage identique de cellules et le resultat fut identique avec le meme message d'erreur.
Merci
Bonjour,
Ton plantage est du au fait que tu cherches à coller une plage de cellules source, d'une dimension différente de la plage de destination. Un peu comme quand tu fais à la main un copier-coller de 4 cellules, en ne sélectionnant que deux cellules par ex.
Yannick SCHAPPLER
"berthelagrandepatte" a écrit dans le message de news:
Bonjour,
Je dois créer un script qui doit copier/coller des données d'un fichier excel vers un autre sachant que les données du fichier source doivent remplacer les données du fichier cible. Ce n'est pas un rajout de données.Une fois le copier/coller terminé, le script enregistre le fichier sous un autre nom. J'ai commencé mon script et il bloque à selection2.copy selection en precisant que "la methode copy de la classe range a échoué".
Set xlapp = CreateObject("Excel.Application") xlapp.visible = True Set xlbook = xlapp.Workbooks.Open("C:dossierfichier1.xls") Set xlsheet = xlbook.WorkSheets("test")
Set xlapp2 = CreateObject("Excel.Application") xlapp2.visible = True Set xlbook2 = xlapp2.Workbooks.Open("C:dossier2fichier2.xls") Set xlsheet2 = xlbook2.Worksheets(1)
Set selection2 = xlsheet2.range("A1:D41") Set selection = xlsheet.range("A2") selection2.copy selection
xlappl2.quit
Set nxlsheet = xlsheet.name("test2.xls") xlbook.saveas("c:dossier3fichier3.xls") xlbook.close xlapp.quit -------------------------------------------------------
Avez vous une idée pour remedier à mon petit problème si toutefois le copier coller est possible vbscript ? Merci de vos réponses
bayosky
Dans le message , berthelagrandepatte a
Set selection2 = xlsheet2.range("A1:D41") Set selection = xlsheet.range("A2") selection2.copy selection
Cette syntaxe m'étonne ...
ne serait-ce pas
selection2.copy ' suivi de selection.paste
???
HB
Dans le message A4E25A5C-6ED3-4FEC-B014-9A06C89322F4@microsoft.com,
berthelagrandepatte <berthelagrandepatte@discussions.microsoft.com> a
Set selection2 = xlsheet2.range("A1:D41")
Set selection = xlsheet.range("A2")
selection2.copy selection
