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
Partager