Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel problème ActiveSheet.Paste

problème ActiveSheet.Paste

7 réponses
Avatar
mboileau
Salut,

Cette macro ne fonctionne pas =E0 partir de la ligne "ActiveSheet.Paste"



ThisWorkbook.Sheets("Rapport").Select
Range("A1:K60").Select
Selection.Copy
Workbooks.Open Filename:=3D"G:\Macro\Rapport BAs.xls"
Worksheets("Feuil1").Select
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode =3D False
ActiveWorkbook.Save
ActiveWorkbook.Close=20


Que dois-je faire?=20


Merci=20
MP
Signaler un problème avec ce contenu

7 réponses

Supprimer
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
Avatar
RV
Bonsoir Mboileau,
Essaie de remplacer ActiveSheet.Paste par Selection.Paste
Bonne soirée
RV

a écrit dans le message de news:

Salut,

Cette macro ne fonctionne pas à partir de la ligne "ActiveSheet.Paste"



ThisWorkbook.Sheets("Rapport").Select
Range("A1:K60").Select
Selection.Copy
Workbooks.Open Filename:="G:MacroRapport BAs.xls"
Worksheets("Feuil1").Select
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWorkbook.Close


Que dois-je faire?


Merci
MP
Avatar
mboileau
salut

là ca me donne un erreur au niveau de Worksheets("Feuil1").Select

ThisWorkbook.Sheets("Rapport").Select
Range("A1:K60").Select
Selection.Copy
Workbooks.Open Filename:="G:MacroRapport BAs.xls"
Worksheets("Feuil1").Activate
Range("A1").Select
Selection.Paste
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWorkbook.Close

????


MP
Avatar
RV
Mboileau,
Ce n'est pas bon, désolé...

En revanche j'ouvrirai le classeur avant de faire du copier-coller.
Voici ce que je te propose:


Sub test()

Sheets("Rapport").Select
Workbooks.Open FileName:="G:MacroRapport BAs.xls"

For x = 1 To 60
For y = 1 To 11
ActiveWorkbook.Sheets("Feuil1").Cells(x, y).Value =
Windows(2).SelectedSheets("Rapport").Cells(x, y).Value
Next y
Next x

ActiveWorkbook.Save
ActiveWorkbook.Close

End Sub


Bonne soirée
RV

a écrit dans le message de news:

Salut,

Cette macro ne fonctionne pas à partir de la ligne "ActiveSheet.Paste"



ThisWorkbook.Sheets("Rapport").Select
Range("A1:K60").Select
Selection.Copy
Workbooks.Open Filename:="G:MacroRapport BAs.xls"
Worksheets("Feuil1").Select
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWorkbook.Close


Que dois-je faire?


Merci
MP
Avatar
mboileau
À cette ligne, ça écrit l'indice n'appartient pas à la sélection:

ActiveWorkbook.Sheets("Feuil1").Cells(x, y).Value =
Windows(2).SelectedSheets("Rapport").Cells(x, y).Value


???

Merci
MP
Avatar
RV
Mboileau,
Voici une correction:

Sub test()

Sheets("Rapport").Select
Workbooks.Open FileName:="G:MacroRapport BAs.xls"
Sheets("Feuil1").Select

For x = 1 To 60 ' ligne de 1 à 60
For y = 1 To 11 ' colonne de 1 à 11
ActiveWorkbook.Sheets("Feuil1").Cells(x, y).Value =
Windows(2).SelectedSheets("Rapport").Cells(x, y).Value
Next y ' l'égalité doit être sur une seule et même ligne
Next x

With ActiveWorkbook: .Save: .Close: End With

End Sub


Cela doit fonctionner...
Sinon avec ton code ça donne ça (est la m^me chose que ci dessus mais écrit
différemment:


ThisWorkbook.Sheets("Rapport").Select
Workbooks.Open Filename:="G:MacroRapport BAs.xls"
windows(2).activate
Range("A1:K60").Select
Selection.Copy
windows(2).activate
Worksheets("Feuil1").Select
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWorkbook.Close

a écrit dans le message de news:

À cette ligne, ça écrit l'indice n'appartient pas à la sélection:

ActiveWorkbook.Sheets("Feuil1").Cells(x, y).Value Windows(2).SelectedSheets("Rapport").Cells(x, y).Value


???

Merci
MP
Avatar
lSteph
Bonsoir,
Worksheets("Feuil1").Select
Non!

Worksheets("Feuil1").activate

lSteph
a écrit dans le message de news:

salut

là ca me donne un erreur au niveau de Worksheets("Feuil1").Select

ThisWorkbook.Sheets("Rapport").Select
Range("A1:K60").Select
Selection.Copy
Workbooks.Open Filename:="G:MacroRapport BAs.xls"
Worksheets("Feuil1").Activate
Range("A1").Select
Selection.Paste
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWorkbook.Close

????


MP

Avatar
RV
Mboileau,
Voir peut-être le nom des feuilles et celui rapporté dans la macro (vérifier
les espaces etc...)
Cela pourrait éventuellement expliquer l'indice en dehors de la plage...
Au pire faire un essai avec 2 classeurs tests sur C (c'est ce que je viens
de faire sur mon micro et je n'ai pas cette erreur d'exécution)
Bonne soirée
RV


a écrit dans le message de news:

À cette ligne, ça écrit l'indice n'appartient pas à la sélection:

ActiveWorkbook.Sheets("Feuil1").Cells(x, y).Value Windows(2).SelectedSheets("Rapport").Cells(x, y).Value


???

Merci
MP