Microsoft 365 Enregistrer un onglet en CSV

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Squoltahthx94

XLDnaute Occasionnel
Bonjour à tous,

Je souhaite enregistrer un Onglet de mon classeur en format *.csv donc j'obtiens ceci :
VB:
Private Sub BtnPlanning_Click()
'je copie mon résultat pour l'enregistrez en CSV,mais seulement les valeurs
Sheets("Num_Intervention").Range("i20").Copy
Sheets("FichierCsv").Range("A2").PasteSpecial xlPasteValues
Sheets("Num_Intervention").Range("n20").Copy
Sheets("FichierCsv").Range("f2").PasteSpecial xlPasteValues
'j active l'onglet afin d enregistre celui-ci en csv
Worksheet("Num_Intervention").Select
ActiveSheet.SaveAs Filename:="Inter" + Range("A2").Value, FileFormat:=xlCSV, CreateBackup:=False
'je donne accès au suivant et je verrouille celui-ci
BtnPlanning.Enabled = False
BtnOuvPlanning.Enabled = True
End Sub

Mais j'obtiens l'erreur suivante "Erreur de compilation Sub ou fonction non définie" et je ne vois pas pourquoi,
Pourriez vous m'éclairer ?

Merci à tous,
Bon dimanche
 
Solution
Bonjour Squoltahthx94 , Phil69970 ,
ActiveSheet.SaveAs Filename:="Inter" & Range("A2").Value, FileFormat:=xlCSV, CreateBackup:=False
Le texte en couleur représente Le chemin complet du fichier avec son extension.
Je suppose que la cellule A2 contient le nom du fichier et Inter est le chemin.
Le code devrait être:
ActiveWorkbook.SaveAs Filename:="C:\Users\DELL\Desktop\Split.csv", FileFormat:=xlCSV, CreateBackup:=False
Si Inter est le chemin: Filname:="inter" & "\" & Range("A2").Value & ".csv"
A toi d'adapter chemin du fichier avec nom du fichier et extension (csv)
A+
Bonjour Squoltahthx94, le forum

Une piste....
Remplacer :
ActiveSheet.SaveAs Filename:="Inter" + Range("A2").Value, FileFormat:=xlCSV, CreateBackup:=False
'je donne accès au suivant et je verrouille celui-ci

Par :
ActiveSheet.SaveAs Filename:="Inter" & Range("A2").Value, FileFormat:=xlCSV, CreateBackup:=False
'je donne accès au suivant et je verrouille celui-ci

@Phil69970
 
Bonjour Squoltahthx94 , Phil69970 ,
ActiveSheet.SaveAs Filename:="Inter" & Range("A2").Value, FileFormat:=xlCSV, CreateBackup:=False
Le texte en couleur représente Le chemin complet du fichier avec son extension.
Je suppose que la cellule A2 contient le nom du fichier et Inter est le chemin.
Le code devrait être:
ActiveWorkbook.SaveAs Filename:="C:\Users\DELL\Desktop\Split.csv", FileFormat:=xlCSV, CreateBackup:=False
Si Inter est le chemin: Filname:="inter" & "\" & Range("A2").Value & ".csv"
A toi d'adapter chemin du fichier avec nom du fichier et extension (csv)
A+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
467
Réponses
13
Affichages
847
Retour