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
Rechercher des sujets similaires à "generer fichier text partir macro"