Discussion :

[nanie13]

Bonjour,

J'ai crée un classeur pour mes factures et un autre pour mes devis.
Tout fonctionne normalement.

Je souhaiterais transformer un devis en facture, mais je bloque, quelqu'un pourrait il m'aider s'il vous plait ?

Je souhaiterais que mon devis se copie à la fin du classeur "Mes Factures" et que cette dernière se renomme du dernier numéro du classeur.

Etant débutante, je peine pas mal... j'ai essayé de taper à la place du numéro de feuille "Sheets.count", mais cela ne fonctionne pas.

Sub Macro1_Transformer_Devis_en_Facture()
Dim MaFeuilleDevis
Dim MaFeuilleFacture
MaFeuilleDevis = InputBox("entrez le numéro le numéro du Devis à transformer :")
Windows("Mes Devis.xls").Activate
ChDir "C:\Documents and Settings\Anne Marie\Bureau"
Workbooks.Open Filename:= _
"C:\Documents and Settings\Anne Marie\Mes documents\Belmas Eric\Ebénisterie\2007\Mes Factures.xls"
Windows("Mes Devis.xls").Activate
Sheets(MaFeuilleDevis).Copy After:=Workbooks("Mes Factures.xls").Sheets(16)
End Sub

Merci de votre aide

[jfontaine]

Tu peux t'inspirer de ce post qui devrait t'aider

http://www.developpez.net/forums/sho...=copie+feuille

[Daranc]

tu veux copier ta feuille "devis" en dernière feuille du classeur "facture"
essayes ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
  Windows("facture.xls").Activate
    t = Sheets.Count
    Windows("devis").Activate
    Sheets("Martin").Select
    Sheets("Martin").Copy after:=Workbooks("Classeur2.xls").Sheets(t)

Daranc