VBA copier 2 feuilles excel depuis application GetOpenFilename

[Kouik Kouik jr]

Bonjour tout le monde !

Je suis de retour avec un nouveau problème !
J'arrive à copier la Sheet1 dans la feuille "SYZ" du fichier ouvert si dessous mais je n'arrive pas à copier la Sheet2 à la cellule "k1" de la feuille "SYZ"

Je ne comprend pas pourquoi ?

Cela bloque à la dernière ligne du code ActiveSheet.Paste
Aucune idée pourquoi ? j'ai du oublié un petit détail

Merci d'avance pour votre aide 😱


Windows("Essai_final3.xls").Activate
Sheets("SYZ").Select
Cells.Select
Selection.ClearContents
Application.WindowState = xlMinimized
MsgBox "Choix du dernier fichier importé Webfolio"
MonFichier = Application.GetOpenFilename("Fichiers Excel (*.xl*), *.xl*")
If MonFichier <> False Then
Workbooks.Open Filename:=MonFichier
Sheets("Sheet1").Select
Cells.Select
Selection.Copy
Windows("Essai_final3.xls").Activate
Sheets("SYZ").Select
Range("A1").Select
ActiveSheet.Paste

'Copier estimées Webfolio
Workbooks.Open Filename:=MonFichier
Sheets("Sheet2").Select
Cells.Select
Selection.Copy
Windows("Essai_final3.xls").Activate
Sheets("SYZ").Select
Range("K1").Select
ActiveSheet.Paste

 

[gfortin9]

Re : VBA copier 2 feuilles excel depuis application GetOpenFilename

Allô!

Je crois que c'est une erreur de logique.

Il faut travailler avec les mêmes objets.

Tu veux coller une feuille dans une plage de cellules. La cible et la source ne sont pas compatibles.

Sélectionne une plage (range) dans la Sheets("SYZ").

Tu pourras ensuite coller cette plage à partir de K1

Gfortin

 

[Kouik Kouik jr]

Re : VBA copier 2 feuilles excel depuis application GetOpenFilename

merci bcp !

 

[Compte Supprimé 979]

Re : VBA copier 2 feuilles excel depuis application GetOpenFilename

Salut Kouik Kouik Jr 🙄

2 messages et 2 postés au mauvais endroit 😱

Donc :

1) soit tu le fais exprès et alors ce n'est vraiment pas intelligent

2) soit tu ne fais pas attention, ce qui est un peu plus excusable,
mais il va falloir changer ...

A bon entendeur