zesuila
XLDnaute Occasionnel
Bonjour le forum
Voilà, j'ai un soucis sur ce code :
Après avoir appuyé sur le joli bouton ce code se lance mais
1- j'ai le message voulez vous archivez ce bon qui apparait une 1ere fois (c'est ce que je voulais ), je ds donc OK
et là ce message (le salopiaud) revient une seconde fois :angry:
Pour lui faire plaisir je refais OK ! Mais là, il revient de nouveau (il me cherche ce message ! :evil: )
2- En plus, quand je lui dis non , je ne veux pas archiver ce p... de bon, ce message disparait et ..... réapparait :evil: :evil:
et à sa 3e réapparition, il..... m'archive quand même le bon !!!!! :woohoo: :woohoo: :woohoo:
Bref c'est un message récalcitrant !
Donc pour lui clouer le bec à ce message, j'attends votre aide
(L'union fait la force!)
Ps: j'ai l'impression que c'est mes if, End if, else qui fout le bord.., (je parle doucement pour pas que le message entende, il est filou vous savez !)
Voici le code :
Private Sub CommandButton1_Click()
Dim WsSource As Worksheet
Dim WsCible As Worksheet
Dim MaLigneSource As Range
Dim MaligneCible As Range
Dim derlgn As Integer
If TextBox13.Value = 'BL' Then
Unload LIVRAISON
Worksheets('BL').Activate
ActiveWindow.SelectedSheets.PrintPreview
End If
If MsgBox('ARCHIVER LE BON ?', vbYesNo) = vbYes Then
Set WsSource = Worksheets('F1')
Set WsCible = Worksheets('F3')
Set MaLigneSource = WsSource.Range('A4:N4')
With WsCible
derlgn = .Range('A5000').End(xlUp).Row + 1
Set MaligneCible = .Range(.Cells(derlgn, 1), .Cells(derlgn, 14))
MaligneCible = MaLigneSource.Value
End With
Else
End If
If TextBox13.Value = 'OR' Then
Unload LIVRAISON
Worksheets('OR').Activate
ActiveWindow.SelectedSheets.PrintPreview
End If
If MsgBox('ARCHIVER LE BON ?', vbYesNo) = vbYes Then
Set WsSource = Worksheets('F1')
Set WsCible = Worksheets('F3')
Set MaLigneSource = WsSource.Range('A4:N4')
With WsCible
derlgn = .Range('A5000').End(xlUp).Row + 1
Set MaligneCible = .Range(.Cells(derlgn, 1), .Cells(derlgn, 14))
MaligneCible = MaLigneSource.Value
End With
Else
End If
If TextBox13.Value = 'BD' Then
Unload LIVRAISON
Worksheets('BD').Activate
'ActiveWindow.WindowState = xlMinimized
ActiveWindow.SelectedSheets.PrintPreview
End If
If MsgBox('ARCHIVER LE BON ?', vbYesNo) = vbYes Then
Set WsSource = Worksheets('F1')
Set WsCible = Worksheets('F3')
Set MaLigneSource = WsSource.Range('A4:N4')
With WsCible
derlgn = .Range('A5000').End(xlUp).Row + 1
Set MaligneCible = .Range(.Cells(derlgn, 1), .Cells(derlgn, 14))
MaligneCible = MaLigneSource.Value
End With
End If
Dim Chr As String
Chr = Range('e3') 'Feuille Essai et cellule C1
'ChDrive 'E' 'si C n'est pas le disque par défaut
ChDir 'C:\\Documents and Settings\\indyol\\Mes documents\\INDYOL\\travail\\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
ACTION.Show
retour.Show
End Sub
Que la force soit avec vous! B)
Et Merci pour votre aide
Voilà, j'ai un soucis sur ce code :
Après avoir appuyé sur le joli bouton ce code se lance mais
1- j'ai le message voulez vous archivez ce bon qui apparait une 1ere fois (c'est ce que je voulais ), je ds donc OK
et là ce message (le salopiaud) revient une seconde fois :angry:
Pour lui faire plaisir je refais OK ! Mais là, il revient de nouveau (il me cherche ce message ! :evil: )
2- En plus, quand je lui dis non , je ne veux pas archiver ce p... de bon, ce message disparait et ..... réapparait :evil: :evil:
et à sa 3e réapparition, il..... m'archive quand même le bon !!!!! :woohoo: :woohoo: :woohoo:
Bref c'est un message récalcitrant !
Donc pour lui clouer le bec à ce message, j'attends votre aide
(L'union fait la force!)
Ps: j'ai l'impression que c'est mes if, End if, else qui fout le bord.., (je parle doucement pour pas que le message entende, il est filou vous savez !)
Voici le code :
Private Sub CommandButton1_Click()
Dim WsSource As Worksheet
Dim WsCible As Worksheet
Dim MaLigneSource As Range
Dim MaligneCible As Range
Dim derlgn As Integer
If TextBox13.Value = 'BL' Then
Unload LIVRAISON
Worksheets('BL').Activate
ActiveWindow.SelectedSheets.PrintPreview
End If
If MsgBox('ARCHIVER LE BON ?', vbYesNo) = vbYes Then
Set WsSource = Worksheets('F1')
Set WsCible = Worksheets('F3')
Set MaLigneSource = WsSource.Range('A4:N4')
With WsCible
derlgn = .Range('A5000').End(xlUp).Row + 1
Set MaligneCible = .Range(.Cells(derlgn, 1), .Cells(derlgn, 14))
MaligneCible = MaLigneSource.Value
End With
Else
End If
If TextBox13.Value = 'OR' Then
Unload LIVRAISON
Worksheets('OR').Activate
ActiveWindow.SelectedSheets.PrintPreview
End If
If MsgBox('ARCHIVER LE BON ?', vbYesNo) = vbYes Then
Set WsSource = Worksheets('F1')
Set WsCible = Worksheets('F3')
Set MaLigneSource = WsSource.Range('A4:N4')
With WsCible
derlgn = .Range('A5000').End(xlUp).Row + 1
Set MaligneCible = .Range(.Cells(derlgn, 1), .Cells(derlgn, 14))
MaligneCible = MaLigneSource.Value
End With
Else
End If
If TextBox13.Value = 'BD' Then
Unload LIVRAISON
Worksheets('BD').Activate
'ActiveWindow.WindowState = xlMinimized
ActiveWindow.SelectedSheets.PrintPreview
End If
If MsgBox('ARCHIVER LE BON ?', vbYesNo) = vbYes Then
Set WsSource = Worksheets('F1')
Set WsCible = Worksheets('F3')
Set MaLigneSource = WsSource.Range('A4:N4')
With WsCible
derlgn = .Range('A5000').End(xlUp).Row + 1
Set MaligneCible = .Range(.Cells(derlgn, 1), .Cells(derlgn, 14))
MaligneCible = MaLigneSource.Value
End With
End If
Dim Chr As String
Chr = Range('e3') 'Feuille Essai et cellule C1
'ChDrive 'E' 'si C n'est pas le disque par défaut
ChDir 'C:\\Documents and Settings\\indyol\\Mes documents\\INDYOL\\travail\\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
ACTION.Show
retour.Show
End Sub
Que la force soit avec vous! B)
Et Merci pour votre aide