j'ai un soucci avec excel, je dispose de la function suivante.?

Question

Sub envoi()
'
' envoi Macro
' Macro enregistrée le 18/06/2002 par ADP-GSi
'

'
Sheets("A").Select
Columns("A:A").Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.Goto Reference:="R1C1"
Application.CutCopyMode = False
Cells.Replace What:="jlba", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
ActiveWorkbook.SaveAs Filename:="c:\INTEGRA.prn", FileFormat:=xlTextPrinter _
, CreateBackup:=False
ActiveWorkbook.SaveAs Filename:="c:\INTEGRA.prn", FileFormat:=xlTextPrinter _
, CreateBackup:=False
ActiveWorkbook.Close
Sheets("SAISIE").Select
Application.Goto Reference:="R20C2"
End Sub


un message de sauvgarde s'affiche si je clique sur oui c bon et si je clique sur non il m'affiche un bug


quelqu'un peut m'aider

Answer 1

regarde tes 5 dernières lignes :

tu sauvegarde 2 fois
puis tu ferme le classeur
puis tu change de feuille active (probablement qu'à l'enregistrement tu avais 2 classeurs ouverts)