Generer un fichier text à partir d'une macro
Bonjour,
je travail sur un projet et je voudrais qu'après avoir terminer, le fichier soit généré en format txt.
Voici mon model:
Sub Budget()
'
' Budget Macro
'
'
Sheets("Template Bud").Select
Range("D2:K2").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets("New Budget").Select
Range("C7").Select
Selection.Copy
Sheets("Template Bud").Select
Range("D2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("New Budget").Select
Range("E7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Template Bud").Select
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("New Budget").Select
Range("G7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Template Bud").Select
Range("F2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("New Budget").Select
Range("I7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Template Bud").Select
Range("G2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("New Budget").Select
Range("C11").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Template Bud").Select
Range("H2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("New Budget").Select
Range("E11").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Template Bud").Select
Range("I2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("New Budget").Select
Range("E11,C7,E7,G7,I7,C11").Select
Range("C11").Activate
Application.CutCopyMode = False
Selection.ClearContents
Range("C7").Select
End Sub
Bonjour,
Une piste !
J'ai modifié ta procédure en faisant une affectation des valeurs plutôt que de Copier/Coller :
Sub Budget()
Sheets("Template Bud").Range("D2:K2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
'affectation des valeurs
Sheets("Template Bud").Range("D2").Value = Sheets("New Budget").Range("C7").Value
Sheets("Template Bud").Range("E2").Value = Sheets("New Budget").Range("E7").Value
Sheets("Template Bud").Range("F2").Value = Sheets("New Budget").Range("G7").Value
Sheets("Template Bud").Range("G2").Value = Sheets("New Budget").Range("I7").Value
Sheets("Template Bud").Range("H2").Value = Sheets("New Budget").Range("C11").Value
Sheets("Template Bud").Range("I2").Value = Sheets("New Budget").Range("E11").Value
Sheets("New Budget").Range("E11,C7,E7,G7,I7,C11").ClearContents
'dans le même dossier que le classeur
ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & Replace(ThisWorkbook.Name, ".xlsm", ".txt"), xlUnicodeText
End Sub