Référence à l'Objet Workbook
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:
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 |
