VBA copier feuilles excel avec Application.GetOpenFilename

[Kouik Kouik jr]

Bonsoir !

J'ai un petit problème qui est surement du à un détail !
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

 

[kjin]

Re : VBA copier feuilles excel avec Application.GetOpenFilename

Bonsoir,
A première vue, si tu copies une feuille1 entière et que tu veux la coller dans une feuille2 mais une cellule autre que A1, il va falloir inventer de nouvelles colonnes dans ta feuille2, non ?
A+
kjin

 

[Kouik Kouik jr]

Re : VBA copier feuilles excel avec Application.GetOpenFilename

Merci bcp !