Microsoft 365 Enregistrer un onglet en CSV

[Squoltahthx94]

Bonjour à tous,

Je souhaite enregistrer un Onglet de mon classeur en format *.csv donc j'obtiens ceci :

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

 

[Phil69970]

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

 

[Squoltahthx94]

Merci Phil69970,

Mais j'ai toujours la même erreur et le curseur pointe sur Private sub......

 

[cp4]

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+