macro

[ninanani]

Bonjour,

j ai la macro suivante:

Sub Save_Sheet()

Dim strNom As Variant

strNom = Application.GetSaveAsFilename(ActiveSheet.Name, "Invoices (*.xls),*.xls")

If strNom <> False Then
ActiveSheet.Copy
ActiveWorkbook.SaveAs strNom
ActiveWorkbook.Close
End If

End Sub

Cela me permet d enregistrer une seule feuille d un fichier excel et d en ravoir une nouvelle a chaque fois.
Sur cette invoice, j aimerais qu un numero arrive automatiquement, numero qui suivrait bien sur le combien tieme invoice cest.

Merci

 

[ninanani]

Re : macro

Personne ne sait? Ne me dites pas que ce n est pas possible... Vous etes tellement forts!

 

[ninanani]

Re : macro

Personne ne sait, c est assez important.

 

[noviceAG]

Re : macro

Bonjour ninanani, le Forum,

Peut être un début de piste

Sub IncrementationFactureNumero()
Dim NumberInvoiceNumber As Integer
Dim RangeInvoiceNumber As Range
Dim StringInvoiceNumber As String

Set RangeInvoiceNumber = Sheets("Feuil1").Range("E5") ' A ADAPTER
StringInvoiceNumber = "Facture No:" ' A ADAPTER
With RangeInvoiceNumber 'Si la cellule est vide (Première Facture)
If .Value = "" Then
.Value = StringInvoiceNumber & " " & Format(0, "0000")
End If
End With
NumberInvoiceNumber = Val(Mid(RangeInvoiceNumber, Len(StringInvoiceNumber) + 1))
NumberInvoiceNumber = NumberInvoiceNumber + 1
RangeInvoiceNumber = StringInvoiceNumber & " " & Format(NumberInvoiceNumber, "0000")
End Sub

 

[isol]

Re : macro

Bonjour,
pas sur d'avoir tout compris, mais une idée :

ThisWorkbook.Sheets.Count

 

[Guest]

Re : macro

Bonjour Tous,

Peut-être quelquechose comme ceci?

Sub Save_Sheet()
Static i As Integer
Dim strNom As Variant
i = i + 1
strNom = Application.GetSaveAsFilename("Invoices_" & i & ".xls", "Invoices (*.xls),*.xls")
 
'suite macro
End Sub

Mais d'une session à l'autre la numérotation repartira de Zéro.
A moins de créer une variable publique dont la valeur sera sauvegardée dans une cellule ou un non caché(e) à la fermeture du classeur et reprise à l'ouverture suivante.

A+

 

[ninanani]

Re : macro

Merci a tous, cela fonctionne..

 

[kinel]

Re : macro

bonjour à tous

cette macro m'intéresse je dois sauvegarder une feuille qui contient un bon de commande généré automatiquement depuis une gestion de stock

actuellement le dernier bon de commande est imprimé puis écrasé par le nouveau
je voudrai sauvegarder ce bon de commande (cette feuille) dans un autre classeur afin de pouvoir gérer les entrées lors des livraisons

ninanani, pouvez vous nous laisser ce morceau de code puisqu'il fonctionne chez vous ?

merci

Kinel

 

[ninanani]

Re : macro

Re,

Alors voila mon morceau de code qui fonctionnait avant (il fonctionne toujours), mais je me suis rendu compte que ce n etait pas exactement ce que je cherchais.
Je vous le donne tout de meme:

Sub IncrementationFactureNumero()
Dim NumberInvoiceNumber As Integer
Dim RangeInvoiceNumber As Range
Dim StringInvoiceNumber As String

Set RangeInvoiceNumber = Sheets("Invoices").Range("G14")
StringInvoiceNumber = ""
With RangeInvoiceNumber
If .Value = "" Then
.Value = StringInvoiceNumber & " " & Format(0, "0")
End If
End With
NumberInvoiceNumber = Val(Mid(RangeInvoiceNumber, Len(StringInvoiceNumber) + 1))
NumberInvoiceNumber = NumberInvoiceNumber + 1
RangeInvoiceNumber = StringInvoiceNumber & " " & Format(NumberInvoiceNumber, "0000")

End Sub

Voili voilo,

 

[kinel]

Re : macro

merci merci

je garde ça sous le coude afin de tester sur mon ouvrage

Kinel