Discussion :

[ka0z]

Bonjour à tous,
j'essaie de développer une petite macro excel me permettant de créer un nouveau fichier excel (dashboard) contenant l'onglet 1 de chaque fichier xlsm présent dans un répertoire spécifique. Voici mon code:

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
22
23
24
25
26
27
 
Sub test()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim number_Tab As Long
 
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Add
    FolderPath = "D:\repository\"
    xlBook.SaveAs (FolderPath & "dashboard")
    number_Tab = 1
    Filename = Dir(FolderPath & "*.xlsm")
 
    Do While Filename <> ""
       Set WorkBk = Workbooks.Open(FolderPath & Filename)
       Set xlSheet = xlBook.Worksheets(number_Tab)
       WorkBk.Sheets(1).Copy After:=xlSheet
       number_Tab = number_Tab + 1
       WorkBk.Close savechanges:=False
       Filename = Dir()
    Loop
 
    xlBook.Close savechanges:=True
    xlApp.Quit
 
End Sub

J'ai malheureusement un problème que je n'arrive pas à résoudre: une erreur sur la fonction Copy et malgré mes recherches, impossible de comprendre pourquoi.
Copy method of Worksheet class failed

Est-ce quelqu'un aurait une idée ?

je vous remercie.

Cordialement,
Frédéric.

[QuestVba]

Bonjour,

Ce problème peut se produire lorsque vous donnez un nom défini au classeur, puis que vous copiez la feuille de calcul plusieurs fois sans tout d'abord enregistrer et fermer le classeur. Pour résoudre ce problème, enregistrez et fermez le classeur à intervalles réguliers pendant le processus de copie.

[Menhir]

Personnellement, à la place de ton number_Tab, j'utiliserai plutôt xlBook.Worksheets.Count, c'est plus fiable.

Une autre erreur qu'il vaut mieux éviter, c'est de donner un nom de variable commençant par "xl" : c'est le préfixe utilisé par les constantes VBA de Excel. Il n'est pas impossible que xlBook existe déjà comme constante.

Pour ce qui est de ton problème, est-ce que tu as essayé de faire avancer ton programme pas à pas en regardant le contenu de tes variables (WorkBk et xlSheet) juste avant la copie et que le fichier source est effectivement ouvert ?
Ou de remplacer ta ligne Copy par :

Code :

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

WorkBk.Sheets(1).Copy After:=xlBook.Worksheets(xlBook.Worksheets.Count)

[ka0z]

Bonjour à tous les deux,
merci pour vos réponses et vos précieux conseils.

j'ai réglé le problème en fermant le fichier juste après le SaveAs puis en le réouvrant!