Discussion :

[jonathanoudelet]

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

[AlainTech]

Une méthode un peu plus "propre" de travailler:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
  Dim wbkSource As Workbook
  Dim wbkDest As Workbook
  Set wbkSource = ThisWorkbook ' Ou le nom du classeur source si ce n'est pas celui où tourne la macro
  Set wbkDest = Workbooks.Add
  With wbkSource.Worksheets("PC - S" & i - 3)
    .Range(.[A1], .[K77].End(xlDown)).Copy wbkDest.sheets(1).[A1]
  End With
  wbkDest.SaveAs wbkSource.Path & "\" & "PC - S" & i - 3

[jonathanoudelet]

Génial
C'est vrai que mon code apparait comme beaucoup moins "propre" que le votre... Cependant, j'apprend, j'apprend

Je met le code tel que utilisé, ca peut toujours servir...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
 
Dim wbkSource As Workbook
Dim wbkDest As Workbook
Set wbkSource = ThisWorkbook
 
'...procédure...
 
'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
Set wbkDest = Workbooks.Add
'copie de la feuille du doc source vers le doc destination
  With wbkSource.Worksheets("PSB N. - S" & i - 3)
    .Range(.[A1], .[K77].End(xlDown)).Copy wbkDest.Sheets(1).[A1]
  End With
'sauvegarde le nouveau classeur (avec en plus l'extension .xls)
 wbkDest.SaveAs wbkSource.Path & "\" & "PSB N. - S" & i - 3 & ".xls"
End If
 
'... procédure

Merci encore pour votre aide.

Jonathan

[jonathanoudelet]

Résolu.