bonjour a tous
voila!
j ai un modele qui me sert pour etablir des bons de commande qui s'appelle "icag commande nomduclient.xls"
puis quand je realise une vente je reouvre le fichier, je fais un "ctrl F" je lance une macro que j'ai enregistrer qui me reformate l'apparence du fichier pour en faire une facture, jusque la tout va bien
et je veux donner un numero a ma facture
j'inscrit le numéro de base sur a1 de perso.xls sur b1 j'ecrit =a1+1
puis j'enregistre une macro à partir de "icag commande nomduclient" je vais dans perso.xls je copie b1 je reviens sur icag commande nomduclient je colle special, puis je copie le numero sur "icag commande nomduclient" je reviens dans perso sur a1 je colle (b1 se prepare pour la prochaine facture, j'enregistre perso je reviens dans "icag commande nomduclient", et c'est fini
ca marche bien mais le "nomduclient" change et ca ne marche plus et je galere et je ne trouve pas la solution, je suis nul!!!!
voila la macro
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 22/05/2012 par FLORENTIN
'
' Touche de raccourci du clavier: Ctrl+n
'
Windows("PERSO.XLS").Activate
Range("B1").Select
Selection.Copy
Windows("ICAG COMMANDE nomduclient.xls").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D2").Select
Application.CutCopyMode = False
Selection.Copy
Windows("PERSO.XLS").Activate
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Save
Windows("ICAG COMMANDEnomduclient.xls").Activate
End Sub
quequ'un peut il m'aider?
d'avance merci
voila!
j ai un modele qui me sert pour etablir des bons de commande qui s'appelle "icag commande nomduclient.xls"
puis quand je realise une vente je reouvre le fichier, je fais un "ctrl F" je lance une macro que j'ai enregistrer qui me reformate l'apparence du fichier pour en faire une facture, jusque la tout va bien
et je veux donner un numero a ma facture
j'inscrit le numéro de base sur a1 de perso.xls sur b1 j'ecrit =a1+1
puis j'enregistre une macro à partir de "icag commande nomduclient" je vais dans perso.xls je copie b1 je reviens sur icag commande nomduclient je colle special, puis je copie le numero sur "icag commande nomduclient" je reviens dans perso sur a1 je colle (b1 se prepare pour la prochaine facture, j'enregistre perso je reviens dans "icag commande nomduclient", et c'est fini
ca marche bien mais le "nomduclient" change et ca ne marche plus et je galere et je ne trouve pas la solution, je suis nul!!!!
voila la macro
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 22/05/2012 par FLORENTIN
'
' Touche de raccourci du clavier: Ctrl+n
'
Windows("PERSO.XLS").Activate
Range("B1").Select
Selection.Copy
Windows("ICAG COMMANDE nomduclient.xls").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D2").Select
Application.CutCopyMode = False
Selection.Copy
Windows("PERSO.XLS").Activate
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Save
Windows("ICAG COMMANDEnomduclient.xls").Activate
End Sub
quequ'un peut il m'aider?
d'avance merci
Dernière édition:
