HIP HIP HIP HOURRA !!
J'ai trouvé !!!
Non je suis content car je commence à avoir 'l'esprit vba' !!
Merci beaucoup Hervé!
voilà pour info les modifs que j'ai faite :
(toujours en gras)
Private Sub CommandButton1_Click()
Dim WsSource As Worksheet
Dim WsCible As Worksheet
Dim MaLigneSource As Range
Dim MaligneCible As Range
Dim derlgn As Integer
Dim Chr As String
Dim wbk
Unload saisie_articles
UserForm2.Show
ActiveWindow.SelectedSheets.PrintPreview
If MsgBox('imprimer ?', vbYesNo) = vbYes Then
'With Application
' .ScreenUpdating = False
' .DisplayAlerts = False
' End With
'ActiveSheet.Copy After:=ActiveSheet
' ActiveSheet.Cells.Interior.ColorIndex = xlNone
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
UserForm1.Show
If MsgBox('ARCHIVER La ligne ?', vbYesNo) = vbYes Then
Set WsSource = Worksheets('BON')
Set wbk = Workbooks('F3.xls').Worksheets('F3')
'là j'avais oublié les ' !!!
'Set WsCible = Worksheets('F3')
Ca, annulé !
Set MaLigneSource = WsSource.Range('B56:L56')
'With WsCible
là aussi annulé
With wbk
derlgn = .Range('A5000').End(xlUp).Row + 1
Set MaligneCible = .Range(.Cells(derlgn, 1), .Cells(derlgn, 11))
MaligneCible = MaLigneSource.Value
End With
'Else
'End If 'ICI
'If MsgBox('ARCHIVER LE BON ?', vbYesNo) = vbYes Then
'archiver la feuille
Worksheets('BON').Activate
Chr = Range('L3') 'nom du fichier en h1
ChDrive 'Q' 'si C n'est pas le disque par défaut
ChDir 'Q:\\PAO\\olivier\\gestion bon\\archives\\'
ActiveSheet.Copy
Unload menu
With Application
.MaxChange = 0.001
.CalculateBeforeSave = False
End With
With ActiveWorkbook
'.UpdateRemoteReferences = False
.PrecisionAsDisplayed = False
.SaveLinkValues = False
End With
'ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.SaveAs Filename:=(Chr)
ActiveWorkbook.Close False
Else
End If
ACTION.Show
End Sub
et là ca fonctionne enfin je n'ai fait qu'un test on va bien voir dans le temps. Mais si tu vois mieux n'hésites pas !!
Encore merci