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
2006-09-18
21:29:47
·
1 réponses
·
demandé par
santos2005
3
dans
Programmation