bouton qui ne fonctionne plus sur la bonne feuille

[fenec]

Bonjour le forum

Mettant un peu mon projet en forme je suis confronté à un nouveau problème
Le fait d’avoir déplacé mon bouton pour sauvegarder et incrémenter mon N° de facture celui fonctionne toujours mais plus dans ma feuille facture
Je vous joins mon fichier qui sera plus explicatif
Merci de votre aide

 

[Papou-net]

Re : bouton qui ne fonctionne plus sur la bonne feuille

Bonjour fenec,

Normal, tu as déplacé ton bouton sans modifier l'adressage de ta feuille dans la macro. Essaie en modifiant comme suit :

Private Sub CommandButton2_Click() 'Sauvegarder Factures
Application.DisplayAlerts = False
Application.ScreenUpdating = False
        Application.DisplayAlerts = True
        Application.ScreenUpdating = True
        ActiveSheet.Range("E13").Select
        NonClient = Range("E13")
        num = Format(Val(Right(Range("R14"), 3)) + 1, "000")
        ActiveSheet.Unprotect
        Sheets("Facture").Range("R2") = num
        Sheets("Facture").Copy
     Sheets("Facture").Activate
    ActiveWorkbook.SaveAs Filename:="C:\Users\Philippe\Documents\Clients en attente\Factures\" & NonClient & ".xlt"
'ThisWorkbook.Close
    Workbooks("Exemple.xls").Activate
    Workbooks("Exemple.xls").Activate
    Range("Zone_a_remplir") = Empty
    'Range("E13").Select
    ActiveWorkbook.Save
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    Workbooks(NonClient).Activate

End Sub

Espérant avoir répondu.

Cordialement.

 

[fenec]

Re : bouton qui ne fonctionne plus sur la bonne feuille

Re, et Bonjour Papou-net

Merci que je suis bête

Cordialement.

 

[kiki29]

Re : bouton qui ne fonctionne plus sur la bonne feuille

Salut, mieux encore : utiliser le CodeName des feuilles ce qui permet de renommer les onglets,déplacer les feuilles, ajouter des feuilles sans avoir à toucher au code VBA.Pour cela voir VBA Les bases [Résolu] - Forum des professionnels en informatique , sur cette copie d'écran voir nom d'onglet Données et CodeName ShDonnees