enregistrer une facture

[exelan]

salut
comment en cliquant sur le bouton enregistrer
sauvegarder mon classeur dans un dossier (D:\documents\mes fichiers recus\factures)
avec le libeller de A18 a D18 ( facture n°1006 du 30 aout 2014)
merci

 

[camarchepas]

Re : enregistrer une facture

Bonjour Exelan,

Voici une demande bien rédigée, claire accompagnée d'un fichier de travail, C'est Exelan,

Juste un détail, j'ai considéré que le fichier facturier lui même ne changeait pas de nom et que c'est bien un nouveau fichier sauvegardé selon l'appelation de tes souhaits contenant la facture.

Voici ma proposition et le fichier facture:

 

[grisan29]

Re : enregistrer une facture

bonjour camarchepas, exelan et le forum

camarchepas : j'ai répondu hier a exelan ici pour la même question
très bien ton code dans enregistrer mais je ne peux pas ouvrir la facture cause extension
l'enregistrement se fait bien chez moi

Pascal

 

[camarchepas]

Re : enregistrer une facture

Bonjour Grisan, Excelan ,
Le code

Option Explicit

Sub Sauvegarde()
Dim Chemin As String
Dim Fichier As String

Chemin = "D:\documents\mes fichiers recus\factures\"
Fichier = Range("A18") & " " & Range("B18") & " " & Range("C18") & " " & Range("D18") & ".xlsx"
ThisWorkbook.SaveCopyAs Chemin & Fichier
End Sub

et le fichier xls

 

[exelan]

Re : enregistrer une facture

salut marchepas
ton fichier enregistrer.xls‎ souvre mais ne s enregistre pas chez moi erreur 1004
ton fichier facture n° 1006 du 30 aout 2014.xlsx‎ ne s ouvre pas ( erreur extention apparament )

 

[exelan]

Re : enregistrer une facture

je reposte mon fichier xlsm vierge

merci de mettre la macro dedans

 

[camarchepas]

Re : enregistrer une facture

Rien de spécial , pourtant , il suffit de mettre le code dans un module standard , d'asservir le bouton à la macro , au pire de changer l'extention par celle qui va bien .

Avec vous au moins validé les macros ?

 

[exelan]

Re : enregistrer une facture

deboguage :ThisWorkbook.SaveCopyAs Chemin & Fichier

 

[grisan29]

Re : enregistrer une facture

bonjour camarchepas

chez moi ton fichier s'enregistre bien en changeant le chemin donc exelan devrai arrivé a le faire d'autant plus qu'en ouvrant l'explorateur il n'y a plus qu'a recopier la ligne et la coller dans vba

exelan on s'est télescoper

pascal

 

[camarchepas]

Re : enregistrer une facture

Le pire c'est que le chemin est celui qu'il demande à la base .

Là , y'a un truc qu'en même

 

[camarchepas]

Re : enregistrer une facture

A oui , si documents est en fait mes documents , c'est un répertoire spécial , il faut l'attaquer autrement ,
pour le test il faudrait créer ce chemin

 

[grisan29]

Re : enregistrer une facture

re camarchepas, exelan et le forum

je pense que exelan n'a pas suivi ce que j' ai dit tout a l'heure de suivre l'explorateur et aurais trouvé ceci

Sub Sauvegarde()
Dim Chemin As String
Dim Fichier As String

Chemin = "D:\documents\mes fichiers recus\factures"
Fichier = Range("A18") & " " & Range("B18") & " " & Range("C18") & " " & Range("D18") & ".xlsx"
ThisWorkbook.SaveCopyAs Chemin & Fichier
End Sub

qui fonctionne chez moi, mais comme il faut lui mâcher le travail voila le code

Pascal

 

[exelan]

(Resolu) : enregistrer une facture

en fait ca vient de
D:\mes documents\Mes fichiers recus\factures
et non pas
D:\ documents\Mes fichiers recus\factures

pourtant mon chemin c bien D:\ documents\Mes fichiers recus\factures (voir fichier joint)
le principal c que ca marche !!

donc resolu vous remercies du temp passez

 

[grisan29]

Re : enregistrer une facture

re exelan
si c'est bon maintenant pense a mettre résolu dans les 2 forums

Pascal