bonjour, voila une ptite macro
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
Code:
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 SubElle 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