enregistrement de facture

[chrisdu58]

bonjour
j'ai cree une facture et j'ai regarder bien sur avant sur le forum. J'ai trouvé des choses qui fonctionnent mais avec excel 2007 ca me fait planter.
J'aimerai que ma facture s'enregistre avec un bouton et qu'elle prenne le n° de facture qui se trouve dans une cellule (dans mon cas E4) comme nom pour l'enregistrement. merci du coup de pouce

 

[chrisdu58]

Re : enregistrement de facture

j'obtiens un message d'erreur de syntaxe et la ligne " Dim extension as string, chemin as string, nom fichier as string" est ecrite en rouge dans le code de la macro

 

[Dan]

Re : enregistrement de facture

Re,

excuse moi, enlève l'espace entre nom et fichier. Donc tu dois avoir -->

Dim extension as string, chemin as string, nomfichier as string

A te lire

Dan

 

[chrisdu58]

Re : enregistrement de facture

on progresse mais cette fois c'est la ligne "ActiveWorkbook.SaveAs Filename:=chemin & nomfichier" qui semble renvoyer une erreur. Que dois je faire? en tout cas c'est tres sympa de ta part de m'aider.

 

[chrisdu58]

Re : enregistrement de facture

j'ai fait des modifs, j'ai changé le chemin du fichier d'enregistrement, le nom du fichier sauvegardé sera juste le nom dans la cellule E4. Maintenant ca fonctionne mais ca enregistre tous le classeur et je voudrais que ca soit juste la feuille contenant la facture. comment faire?

 

[ERIC S]

Re : enregistrement de facture

Bonjour
essaie (non testé)

sheets("mafeuille").select
selection.saveas.....

 

[chrisdu58]

Re : enregistrement de facture

voici mon code et j'ai encore une erreur sur la derniere ligne :
Sub SauvegardeFacture()
'
' SauvegardeFacture Macro
'

'
Dim extension As String, chemin As String, nomfichier As String
extension = ".xls"
chemin = "C:\Documents and Settings\proprietaire\Mes documents\eva\Gestion des stocks\Sauvegarde des factures\"
nomfichier = ActiveSheet.Range("E4") & extension
Sheets("Factures").Select
Selection.SaveAs Filename:=nomfichier
End Sub

 

[ERIC S]

Re : enregistrement de facture

re

après vérif, cela devrait marcher, j'ai supposé que le nom était sur feuil1 et non factures, à toi d'adapter.
Mon exemple récupère le chemin du fichier ouvert par thisworkbook.path et non le chemin absolu

Sub SauvegardeFacture()
'
' SauvegardeFacture Macro
Dim extension As String, chemin As String, nomfichier As String
extension = ".xls"
chemin = ThisWorkbook.Path & "\"
nomfichier = Sheets("feuil1").Range("E4") & extension
Sheets("factures").Copy
ActiveWorkbook.SaveAs Filename:=chemin & nomfichier
End Sub