Enregistrer fichier sous un nom donné par MessageBox !

[Tom87]

bonjour, voila une ptite macro

Sub Sauve_TXT()

If ([D10] = "") Then

Range("L7:Q700").Select
Selection.Copy
Sheets("Feuil1").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
Sheets("Lignes de programme").Select
Range("L4:Q4").Select
Selection.Copy
Sheets("Feuil1").Select
Range("R1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False


ActiveWorkbook.SaveAs Filename:="C:\" & [R1] & "-" & [S1] & "-" & [T1] & ".txt", FileFormat:=xlText
Range("R1:Z1").Select
Selection.ClearContents
ActiveWindow.SelectedSheets.Delete

Else

Range("D7:I700").Select
Selection.Copy
Sheets("Feuil1").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False


Sheets("Lignes de programme").Select
Range("D4:I4").Select
Selection.Copy
Sheets("Feuil1").Select
Range("R1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False


ActiveWorkbook.SaveAs Filename:="C:\" & [R1] & "-" & [S1] & "-" & [T1] & ".txt", FileFormat:=xlText

ActiveWindow.SelectedSheets.Delete
End If
End Sub

Elle me permet de copier des valeurs d'une feuille à une autre et d'enregistrer un fichier .txt en récupérant des valeurs de cellules pour lui donner un nom.

Mais moi ce que je veux, c'est afficher un Messagebox pour demander sous quel nom, l'opérateur veux sauver son fichier ( peu importe le répertoire !!)

Si qqun avez l'astuce, je suis preneur !!

Merci d'avance

 

[Tom87]

Re : Enregistrer fichier sous un nom donné par MessageBox !

merci, ça fonctionne nikel