Imprimer-sauvegarder

salut

1er comment imprimer la page en cliquant le bouton imprimer

2eme comment en cliquant sur le bouton enregistrer

sauvegarder mon classeur dans un dossier (mes docs >clients> factures)

avec le libeller de A18 a D18 ( facture n°1006 du 30 aout 2014)

merci

19enregistrer.xlsm (10.62 Ko)

Bonjour,

Ci joint un test.

Attention chemin d’accès à modifier .

Menu => développeur => module 1

@ plus

29exelan-v1.xlsm (21.59 Ko)

mis ca mais ca doit pas etre bon marche pas

Rep = "D:\documents\mes fichiers recus\factures"

merci de modifier

bonjour exelan et coco6728

exelan dans ceci

 "D:\documents\mes fichiers recus\factures"

tu as peut etre une faute essai comme ci dessous mais sans garantie

 "D:\documents\mes fichiers recus\factures\"

j'ai juste rajouter "\" derrière factures

Pascal

marche pas deboguage

Facture = Facture.Range("B18").Value

bonsoir exelan

chez moi non plus ca ne fonctionne pas car il y a un conflit dans cette ligne

ActiveWorkbook.SaveAs Filename:=Rep & "Facture n°  " & Facture & "  Du  " & Du & ".xlsm"

car il y a 2 fois "du"

et si je mets

ActiveWorkbook.SaveAs Filename:=Rep & "Facture n°  " & Facture & "  Du  " & Dus & ".xlsm"

cela fonctionne bien en modifiant également la variable

Sub Enregister()

Dim Rep, Facture, Dus   As String

    Rep = "D:\documents\mes fichiers recus\factures"  ' Ecrire le chemin d'accé au répértoire voulu

    Facture = Feuil1.Range("B18").Value
    Dus = Feuil1.Range("D18").Value

ChDir (Rep)

                ActiveWorkbook.SaveAs Filename:=Rep & "Facture n°  " & Facture & "  Du  " & Dus & ".xlsm"

            MsgBox "Le dossier est sauvegardé !"

End Sub

et aussi pourquoi mettre 2 fois "facture" car ca j'enregistre comme ca

factureFacture n° 1006 du 30 aout 2014

et le classeur prends le nom de la sauvegarde

essai et dit comment c'est

Pascal

salut grisan29

g remplacer mon code par le tien et ca debogue sur : ChDir (Rep)

si tu peux m arranger ca avec une seule facture dans (factureFacture n° 1006 du 30 aout 2014)

Sub Enregister()

Dim Rep, Facture, Dus As String

Rep = "D:\documents\mes fichiers recus\factures" ' Ecrire le chemin d'accé au répértoire voulu

Facture = Feuil1.Range("B18").Value

Dus = Feuil1.Range("D18").Value

ChDir (Rep)

ActiveWorkbook.SaveAs Filename:=Rep & "Facture n° " & Facture & " Du " & Dus & ".xlsm"

MsgBox "Le dossier est sauvegardé !"

End Sub

bonsoir exelan

remplace l'appellation de tes variables car comme cela

Dim Rep, Facture, Dus As String

il n'y a que "dus" qui est string

ceci

Dim Rep as string, Facture as string, Dus As String

devrai etre mieux

Pascal

ben non meme deboguage chdir

bonjour exelan

faut en dire plus sur le débogage car chez moi ca fonctionne, tu ne dit pas quel est l'erreur, a quelle ligne c'est maintenant

remets ton fichier avec le changements de code fait tel que sans dépersonnaliser

peut être est ce du au différente version d'excel moi je suis sous 2013 pro

Pascal

salut

je reposte mon fichier vierge xlsm

merci de renvoyer avec la macro dedans merci


7enregistrer.xlsm (11.35 Ko)

salut

je reposte mon fichier xlsm vierge

merci de mettre la macro dedans

7enregistrer.xlsm (11.35 Ko)

Bonsoir,

Je viens de ressayer ma procédure, qui fonctionne très bien sous excel 2010.

Sans rien transformer

A la fin de ton lien toujours mettre un "\" pour finir ton chemin d’accès.

A te relire coco.

oupss désole oublier de répondre pour vous remercier et clôturer

vaut mieux tard que jamais

Rechercher des sujets similaires à "imprimer sauvegarder"