Macro d'incrementation du numero et sauvegarde mise en page.

ngom

XLDnaute Occasionnel
Bonjour tout le monde.
je viens d'arriver sur votre forum que je trouve interessant. ma curiosité me pousse à toucher aux macros d'excel afin de creer des fichiers pour mon propre experience. en ce moment j'ai besoin de vos lumiéres pour ce fichier de facturation.
en fait je coince beaucoup au niveau de la macro de sauvegarde qui duplique les numeros.
j'ai du mal aussi à creer la macro pour la sauvegarde de la facture et celle de l'impression.
votre aide me serais d'un secours inestimable et je vous remerci d'avance.
ci joint le fichier objet
 

Pièces jointes

  • gestion des bon.xlsm
    98.9 KB · Affichages: 28

vgendron

XLDnaute Barbatruc
Hello

comme tu ne précises pas vraiment ton problème..
un essai avec ce code
VB:
Sub sauvegarderbon()
'
' sauvegarderbon Macro

Set WDest = Sheets("HISTORIQUE DES BONS")
With WDest
    .Rows("2:2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
End With

With Sheets("BON DE LIVRAISON")
    .Range("D3").Copy Destination:=WDest.Range("A2")
    .Range("F1").Copy Destination:=WDest.Range("B2")
    .Range("B5").Copy Destination:=WDest.Range("C2")
    .Range("B8").Copy Destination:=WDest.Range("D2")
    .Range("D8").Copy
    WDest.Range("E2").PasteSpecial Paste:=xlPasteValues
End With
   
BONsuivant
   
End Sub

Sub BONsuivant()
With Sheets("BON DE LIVRAISON")
    .Range("D3") = .Range("D3") + 1
    .Range("F1").ClearContents
    .Range("B5").ClearContents
    .Range("A8").ClearContents
    .Range("B8").ClearContents
   
End With

End Sub
 

ngom

XLDnaute Occasionnel
Merci beaucoup pour votre réponse rapide et pour ton aide. je m'excuse de ne pas avoir etait trés précis.
avant de tester le code je veux etre plus précis. Dans l'ensemble le fichier tourne bien. mon souci est que ma macro de sauvegarde des infos dans la feuille "historique des bons" est automatique.
1/je veux que quelque soit la manipulation du fichier le numero deja sauvegarder ne revienne pas.
2/je veux une macro pour cibler une imprimante bien precis
3/je veux une macro pour sauvegarder la facture entiere et l'envoyer via email.
excusez moi pour la longueur mais est ce ce code est pour une macro unique ou pour chaque operation il y une macro dédiée.?
merci d'avance pour vos lumieres
 

Statistiques des forums

Discussions
312 069
Messages
2 085 042
Membres
102 765
dernier inscrit
richdi