Discussion :

[charnizay37]

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

[pgz]

Bonjour.

Si tu as un classeur qui s'appelle A et que tu fais SaveAS "B", tu auras sur disque 2 classeurs mais 1 seul ouvert et renommé B

Par ailleurs je ne comprends pas ce que tu fais avec les variables Classeur et Classeur2. De plus Classeur est un variant.

EN espérant que cela t'aide,

PGZ

[charnizay37]

Merci pour ces éléments,

Je suis passé par des variables pour comprendre ce passge de référence vis à vis de l'objet Workbook car mon idée est à partir de mon fichier initial ou se trouve ma macro de créer un autre fichier contenant les données de ma feuille Tableau au format CSV tout en restant dans mon fichier initial.

Malheureusement lorsque je fais appel à la methode SaveAs je perd ma référence de mon premier fichier, suis je plus clair ?