Bonjour à tous,

Je cherche à copier une feuille d'un classeur (Reporting d'activité), vers un classeur nouvellement créer par mon application juste avant.
Cependant, cela ne marche pas, me mettant alors "erreur d'execution 438, propriété ou méthode non gérée par cet objet".

Voici mon code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
'création d'un nouveau classeur
a = MsgBox("Voulez-vous créer une copie de votre activité sur un nouveau document ?", vbYesNo)
If (a = 6) Then
Workbooks.Add
ActiveWorkbook.SaveAs ActiveWorkbook.Path & ("PC - S" & i - 3)
With Workbooks("Reporting d'activité").Worksheets("PC - S" & i - 3)
.Range(.[A1], .[K77].End(xlDown)).Copy ActiveWorkbook.Feuil1.[A1]
End With
End If
J'ai beau chercher un peu partout sur le net, sur l'aide, ICI...je n'y arrive pas

Question subsidiaire:
Il ne me crée pas le nouveau classeur dans le meme répertoire que le classeur initiale...mais ailleurs...et ca je ne comprend pas car en allant sur "Activeworkbook.Path", il m'affiche le bon repertoire...
HELP please.

Merci d'avance pour votre aide.

Jonathan