mettre un devis en attente

[grisan29]

bonjour a vous tous

quel code peut-on mettre derrière un bouton pour mettre un feuille de devis en attente et pouvoir le récupérer ensuite bien sûr
je n'ai pas de modèle fixe c'est juste une idée

Pascal

 

[job75]

Re : mettre un devis en attente

Bonjour grisan29,

je n'ai pas de modèle fixe c'est juste une idée

Juste une idée :

Sub EnAttenteDevis()
'à affecter à un bouton
While ActiveSheet.Name <> "Devis": DoEvents: Wend
MsgBox "coucou" 'pour tester
End Sub

A+

 

[grisan29]

Re : mettre un devis en attente

bonjour Job75
merci de ta réponse je l'ai essayer et cela fonctionne mais la feuille ne se créer que lorsque l'usf ou j'ai mis le bouton est fermé voici comment j'ai fait, la feuille s'appelle "facture " en tout format(devis ou facture)

Private Sub CommandButton24_Click()
'Sub EnAttenteDevis()
'à affecter à un bouton
While ActiveSheet.Name <> "facture": DoEvents: Wend
Sheets("facture").Copy after:=Sheets("client")
''Sheets(F1).Copy after:
'MsgBox "coucou" 'pour tester
'End Sub
End Sub

Pascal

 

[job75]

Re : mettre un devis en attente

Re,

Vous disiez ne pas avoir de modèle...

A+

 

[grisan29]

Re : mettre un devis en attente

re job75
je disais que je n'avais d'idée fixe mais après coup je me suis dit pourquoi pas
comment faire pour le mettre sous

"C:\essaiperso\devis d'attente\"

j'ai essayer directement mais ca bug

Sheets("facture").Copy "C:\essaiperso\devis d'attente\"

puis comme cea

Sheets("facture").Copy
ActiveWorkbook.SaveAs FileName:="C:\essaiperso\devis d'attente\"

et rien
Pascal

 

[grisan29]

Re : mettre un devis en attente

re
je viens d'essayer ceci mais une boite de dialogue arrive pour me demande d'enregistrer ou

Dim Rep As Integer
Rep = MsgBox("Voulez-vous sauvagarder une copie de la facture?", vbYesNo + vbQuestion, "Sauvegarder une copie")
If Rep = vbYes Then

' ici le traitement si réponse positive
Sheets("facture").Copy
Me.Hide

' chemin pour l'enregistrement
ChDir "C:\essaiperso\devis d'attente\"

'Ouvrir la boite de dialogue
'Application.Dialogs(xlDialogSaveAs).Show "Date" & "- Planning"
Application.Dialogs(xlDialogSaveAs).Show Format(Now, "yyyy mm dd") & " - facture "
Else

End If

Pascal

 

[grisan29]

Re : RESOLU mettre un devis en attente

bonsoir a vous

je vais clore le post car je me suis lancer trop tôt pour cette aventure,
job75 merci beaucoup de tes propositions 😎😎

Pascal