Imposer une donnée par une saisie

Bonjour,

je débute en vba et j'aurais besoin que 56PLO soit une donnée imposée à l'utilisateur par une saisie et ensuite que cette donnée serve également pour le nom d'enregistrement

merci pour votre aide

iub

Rows(1).Delete
'nommer la colonne A en N°de BL pour chaque ligne
For j = 1 To 1000
If Range("B" & j).Value <> "" Then
Range("A" & j).Value = "56PLO"
End If
Next
Columns(3).Delete
Columns(4).Delete
Columns(5).Delete
Columns(5).Delete
Columns(5).Delete
Columns(5).Delete
Columns(5).Delete
Columns(5).Delete
ChDir "L:\Ploermel\AC\Expédition"
ActiveWorkbook.SaveAs Filename:="L:\Ploermel\AC\Expédition\56PLO.csv", _
FileFormat:=xlCSV, CreateBackup:=False
End Sub

Edit modo : code à mettre entre balises avec le bouton </> merci d'y faire attention la prochaine fois

Bonjour IUB et

Je vous invite vivement à lire :
- La charte du forum
- Quelques fonctionnalites du forum à connaître

Regardez aussi les petites icônes mises à votre disposition dans la barre de menu qui :
- vous permettent de poster un code (</>)
- ou de clôturer un fil lorsque vous avez terminé (V)

Merci pour votre participation

Merci BrunoM45

je joins le fichier et le code

Sub AC_sortietest1()
'
' AC_sortie Macro
'

    Rows(1).Delete
'nommer la colonne A en N°de BL pour chaque ligne

   For j = 1 To 1000
   If Range("B" & j).Value <> "" Then
   Range("A" & j).Value = "56PLO"

   End If
   Next
   Columns(3).Delete
   Columns(4).Delete
   Columns(5).Delete
   Columns(5).Delete
   Columns(5).Delete
   Columns(5).Delete
   Columns(5).Delete
   Columns(5).Delete

    ChDir "L:\Ploermel\AC\Expédition"
    ActiveWorkbook.SaveAs Filename:="L:\Ploermel\AC\Expédition\56PLO.csv", _
        FileFormat:=xlCSV, CreateBackup:=False
End Sub