augmenter une cellule par macro + invite pour sauvegarde

[natorp]

bjr à tous et toutes
Bon dimanche..!!!

pas de blabla, j'ai mis mon souhait dans le fichier joint
merci de votre aide
Cordialement
Gérard

 

[wamme]

Re : augmenter une cellule par macro + invite pour sauvegarde

Bonjour,
un début de réponse.
Pour augmenter de 1 le numéro, ajouter en début de macro [C3] = [C3] + 1

 

[wamme]

Re : augmenter une cellule par macro + invite pour sauvegarde

Re,

pour sauvegarder sous:

Application.Dialogs(xlDialogSaveAs).Show

 

[JCGL]

Re : augmenter une cellule par macro + invite pour sauvegarde

Bonjour à tous,

Utilisation de :

Option Explicit

Sub Enregistre()
Range("C3") = Range("C3") + 1
Application.Dialogs(xlDialogSaveAs).Show
End Sub

A+ à tous

 

[EricD01]

Re : augmenter une cellule par macro + invite pour sauvegarde

Salut...

Voila, j'ai modifié ton fichier en espérant que cela te convienne...

Bye et bon dimanche à toi alors...@ plus...

 

[natorp]

Re : augmenter une cellule par macro + invite pour sauvegarde

Merci à vous 3,

Comme tjrs, vive excel-downloads !!! on sèche, on est aidé....
J'ai ma solution,
Bon après-midi.....
Au plaisir, Gérard

 

[kjin]

Re : augmenter une cellule par macro + invite pour sauvegarde

Bonjour,
Salut JC
Si comme moi, y a des jours...vaut mieux tester avant
Avec le code de JC

Option Explicit
Sub Enregistre()
Dim Q As Boolean
Q = Application.Dialogs(xlDialogSaveAs).Show
If Q = 0 Then
Exit Sub
End If
Range("C3") = Range("C3") + 1
End Sub

Si tu annules, la facture n'est pas incrémentée
A+
kjin