Bonjour

Je débute dans la programmation VBA et j'ai un petit souci de référencement d'objet.

Voila, je lance une macro à partir de mon fichier source qui créé un fchier CSV avec les éléments de la ma feuille 2 initulé TABLEAU. Mon souci est le suivant, à la sortie de ma macro je me retrouve dans mon nouveau fichier et mon fichier d'origine est fermé. Je pense que cela vient d'un mauvais référencement de mon objet WorkBook de ma macro, Pourriez vous m'expliquer mon erreur, merci

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
Sub Export_CSV()
Dim Classeur, Classeur2 As Workbook
    Set Classeur = ActiveWorkbook
 
    'Selection de la Feuille Tableau
    Classeur.Sheets("TABLEAU").Select
    MsgBox Classeur.Name
 
    Set Classeur2 = ThisWorkbook
 
    MsgBox "Ma référence " & Classeur2.Name
 
    Classeur.SaveAs Filename:="C:\Peupl.csv", FileFormat:=xlCSV, CreateBackup:=False, Local:=True
     'DoEvents
 
     MsgBox Classeur.Name
     MsgBox "Ma référence " & Classeur2.Name
 
    Workbooks("Peupl.csv").Close savechanges:=True
 
    Classeur.Sheets("TABLEAU").Select
 
End Sub