Une macro qui ne se lance pas

Re
pourtant cela fonctionné au début et quand je prends le fichier d'origine ça marche ?????

Tant pis je vais reprendre le fichier d'origine et refaire la mise en page

merci

christophed

Re,
oui j'ai le fichier d'origine que je pourrais reprendre
https://mon-partage.fr/f/z9i7bPiv/

mais je voudrais savoir ce qui a pût se passer et comment y remédier

si possible

Re
je ne sais vraiment pas

Re,

Désolé de répondre aussi tardivement j'ai commencé le boulot à 14h00
explications :
dans le classeur il y a un onglet "anomalie modèle'" en haut de cette page il y a un bouton de commande "Créer un nouveau rapport" cela ouvre un nouvel onglet avec un numéro 1/17 = 1er rapport de l'année 2017(incrémentation au fur et a messure)

une fois les saisies éffectuées on clic sur "finaliser la saisie" pour le clôturer,
ce bouton doit aussi copier l'onglet (ex 1/17) dans un autre classeur afin qu'il puisse être envoyer par mail a nos prestataires
ce qu'il faudrait ces voir pourquoi le bouton de commande de la macro "finaliser la saisie " ne marche pas ou plus

j'éspère que mes explications vous sont utiles

cdlt

christophed

Re,

Tout a fait Thierry, mais le code n'existe pas et dans votre demande de depart rien n'indique de quoi vous avez besoin........................!!!!!!

Désolé mais j’aurai du vous mettre le l'intitulé du poste original :
Avoir une incrémentation d'un numero pour chaque nouvelle saisie

il vous sera peut-être plus facile de comprendre le fichier

christophed

quand je mets "nouvelle" dans la macro il me créé une nouvelle onglet avec un nouveau numéro

ce que devrait faire le bouton "finaliser la saisie"=> extraction de la feuille dans un autre classeur

Bonjour f894009,
désolé mais rien à faire cela ne marche pas
quand je regarde le fichier d'origine j'ai la macro suivantes :
Private Sub CommandButton1_Click()
nouvelle
End Sub

Private Sub CommandButton2_Click()
ActiveSheet.Shapes("CommandButton2").Select
Selection.Cut
ActiveSheet.Copy
End Sub

ce qui n'ai pas la même sur le fichier que je vous ai envoyé ???

je suis perdu

christophed

Bonjour,

Sans code pour le bouton, pas facile, regardez:

'??????????????????????????????????????????
Private Sub CommandButton1_Click()
    nouvelle
End Sub

Private Sub CommandButton2_Click()
 ActiveSheet.Shapes("CommandButton2").Select
    Selection.Cut
ActiveSheet.Copy
End Sub

'FINALISER LA SAISIE
Private Sub CommandButton3_Click()
    
End Sub