enregistrement de facture

C

chrisdu58

Guest

• 20 Mai 2007

• #16

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

 

Vote positif 0 Vote négatif

Dan

XLDnaute Barbatruc

Membre du Staff

Modérateur

• 20 Mai 2007

• #17

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

 

Vote positif 0 Vote négatif

C

chrisdu58

Guest

• 20 Mai 2007

• #18

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.

 

Vote positif 0 Vote négatif

C

chrisdu58

Guest

• 20 Mai 2007

• #19

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?

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 21 Mai 2007

• #20

Re : enregistrement de facture

Bonjour
essaie (non testé)

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

 

Vote positif 0 Vote négatif

C

chrisdu58

Guest

• 21 Mai 2007

• #21

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

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 21 Mai 2007

• #22

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

 

Dernière édition: 21 Mai 2007

Vote positif 0 Vote négatif