Bonjour,

Je débute en VBA et je suis confronté à un petit bogue lors de la copie d'une feuille(ImportedWs) d'un classeur(ImportedWb) vers un autre classeur(DbWb).

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
 
Option Explicit
 
Sub Import(ByVal FileName As String)
 
Dim DbWb As Workbook, ImportedWb As Workbook
Dim DbWs As Worksheet, TemporaryWs As Worksheet, ImportedAWs As Worksheet
 
'Renseignement des variables Workbook et Worksheet de ce classeur
Set DbWb = ThisWorkbook
Set DbWs = DbWb.Sheets("Excel_db")
 
'ouverture du fichier
Workbooks.Open FileName
 
'Renseignement des variables Workbook et Worksheet du fichier à importer
Set ImportedWb = ActiveWorkbook
Set ImportedWs = ImportedWb.Sheets(1)
 
' par ici pour l'erreur 
'Copie de la feuille à importer dans ce classeur
ImportedWs.Copy After:=DbWb.Sheets(1)
 
TemporaryWs = DbWb.Sheets(2)
 
End Sub
D'avance, merci pour votre aide
Cordialement