Discussion :

[pingoui]

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

[Patrice740]

Bonjour,

au lieu de :

Code :

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

TemporaryWs = DbWb.Sheets(2)

écrire

Code :

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

Set TemporaryWs = DbWb.Sheets(2)

Cordialement
Patrice

[Theze]

Bonsoir,

Essai avec :

Code :

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

1
2
3
 
'ouverture du fichier
Set ImportedWb = Workbooks.Open(FileName)

au lieu de :

Code :

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

1
2
3
4
5
6
 
'ouverture du fichier
Workbooks.Open FileName
 
'Renseignement des variables Workbook et Worksheet du fichier à importer
Set ImportedWb = ActiveWorkbook

Chez moi ça fonctionne.

Hervé.

[pingoui]

Bonjour,

Merci beaucoup . Effectivement, cela fonctionne !
De plus, c'est plus propre

Merci aussi à patrice pour mon oublie de "Set"

[pingoui]

Bonjour,
Tout compte fait, le code ne fonctionne pas sur Excel 2007
(il fonctionne parfaitement sur excel 2003)

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
 
 
Sub Import(ByVal FileName As String)
 
Dim DbWb As Workbook, ImportedWb As Workbook
Dim DbWs As Worksheet, TemporaryWs As Worksheet, ImportedWs As Worksheet
 
'Renseignement des variables Workbook et Worksheet de ce classeur
Set DbWb = ThisWorkbook
Set DbWs = DbWb.Sheets(1)
 
'ouverture du fichier
Set ImportedWb = Workbooks.Open(FileName)
Set ImportedWs = ImportedWb.Sheets(1)
 
'Copie de la feuille à importer dans ce classeur
ImportedWs.Copy After:=DbWb.Sheets(1)
 
Set TemporaryWs = DbWb.Sheets(2)
TemporaryWs.Name = "Temp"
 
End Sub

Y a t'il une subtilité entre les deux versions d'excel ?

[mercatog]

Bonjour

J'ai essayé d'optimiser les variables et testé sur XL2010
(En effet, déclarer une variable seulement pour renommer une feuille, c'est un peu surdimensionné)

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
Sub Import(ByVal FileName As String)
Dim ImportedWb As Workbook
 
Application.ScreenUpdating = False
With ThisWorkbook
    'Supprimer l'éventuelle feuille Temp
    On Error Resume Next
    Application.DisplayAlerts = False
    .Sheets("Temp").Delete
    Application.DisplayAlerts = True
    On Error GoTo 0
    'ouverture du fichier
    Set ImportedWb = Workbooks.Open(FileName)
    'Copie de la feuille à importer dans ce classeur
    ImportedWb.Sheets(1).Copy After:=.Sheets(1)
    'Fermeture fichier et libération de la variable
    ImportedWb.Close False
    Set ImportedWb = Nothing
    'Renommer la feuille importée
    .Sheets(2).Name = "Temp"
End With
End Sub

[pingoui]

Merci beaucoup. Cela fonctionne parfaitement

La variable TemporaryWs, n'était pas présente uniquement pour nommer la feuille mais j'allais l'utiliser dans le reste de la macro.

Cordialement