Discussion :

[Kartoon67]

Bonjour,

Je suis un débutant en macro. Je dois mettre en place un bouton dans mon fichier excel qui pourra sauvegarder dès son appuie ce même fichier excel mais dans un autre format.

Le fichier enregistré sera au format .csv.

Merci d'avance pour vos renseignements,

[CodeFacile]

Bonjour ,

voici un exemple dans lequel , je garde le nom du fichier ( sans .xls).

le fichier actif est sauvegaré au format .csv sans le fermer.

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 sauvegarde_fichier_csv()
 
 rep_sauv = "E:\fic_csv"
 
      nomfic = activeworbook.name
 
if instr ( nomfic , ".xls" ) > 0 then 
 
nomfic_csv  = mid ( nomfic , instr ( nomfic , ".xls" ) -1 , len ( nomfic) - 3)  & "csv"
    Application.DisplayAlerts = False
 
    ActiveWorkbook.SaveAs Filename:=rep_sauv & nomfic_csv , _
        FileFormat:=xlCSV, CreateBackup:=False
 
  Application.DisplayAlerts = True
 
else        
 msgbox " le fichier actif n'est pas un fichier avec extension .xls , pas de traitement effectué"
end if 
End Sub

La désactivation du DisplayAlerts évite les messages d'alerte .

[Kartoon67]

Bonjour,

Merci de votre aide. J'aimerais savoir s'il n'étais pas possible de passer par de simple manipulation d'objet? Ou faut-il obligatoirement passer par du code?

Merci d'avance,

[CodeFacile]

Je ne comprends pas le sens de "simple manipulation d'objet sans passer par le code".

Sinon , il y a la possibilitté de faire via le menu Fichier -> Enregistrez sous - type de fichier csv ..
C'est laborieu car à chaque enregistrement , il y a un message d'alerte qui prévient de la perte d'infos consécutif au changement de format.

[ben_ghost]

La manipulation d'object implique obligatoirement du code VBA vu que les objects que tu parles sont des objects VBA... ou alors il y a un truc que j'ai loopé