Macro (enregistrer sous) excel2007
Fermé
kadeh
Messages postés
334
Date d'inscription
vendredi 21 décembre 2007
Statut
Membre
Dernière intervention
15 novembre 2012
-
5 févr. 2008 à 11:56
Ivanhoe - 14 févr. 2008 à 00:05
Ivanhoe - 14 févr. 2008 à 00:05
Bonjour,
mes salutation à tout et toute membre du forum,
j'ai crée un modèle de facture sous excel2007, toutes les étape de calculs sont automatique.
je veux créer une mocro (qui sera afféctée à un bouton), qui me permet, en cliquant sur ce bouton, d'enregistrer ma facture dans un dossier nommé factures clients , et son nom sera le contenue d'une cellule (n°facture).
je demande si quelqu'un parmi vous savais comment se fait ce truc.
meci d'avance pour votre aide.
mes salutation à tout et toute membre du forum,
j'ai crée un modèle de facture sous excel2007, toutes les étape de calculs sont automatique.
je veux créer une mocro (qui sera afféctée à un bouton), qui me permet, en cliquant sur ce bouton, d'enregistrer ma facture dans un dossier nommé factures clients , et son nom sera le contenue d'une cellule (n°facture).
je demande si quelqu'un parmi vous savais comment se fait ce truc.
meci d'avance pour votre aide.
A voir également:
- Macro (enregistrer sous) excel2007
- Audacity enregistrer son pc - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Enregistrer en pdf - Guide
- Comment enregistrer une video youtube - Guide
- Comment enregistrer une musique sur youtube en mp3 - Guide
1 réponse
Bonjour Kadeh,
voici quelques idées de ce que ta macro pourrait contenir :
Sub EnregisterFacture()
Dim DOSSIER as string
DOSSIER = "D:\...\FacturesClients\" ' (c'est le chemin d'accès)
Dim NOMFACTURE as string
NOMFACTURE = Sheets("Nomdelafeuille").range("A1") ' (par ex., si le n° de facture est en A1)
ActiveWorkook.SaveAs DOSSIER & NOMFACTURE
End Sub
Bien sûr, le contenu de la cellule qui sert à nommer le fichier ne doit pas comporter de * / \ etc.
A suivre...
voici quelques idées de ce que ta macro pourrait contenir :
Sub EnregisterFacture()
Dim DOSSIER as string
DOSSIER = "D:\...\FacturesClients\" ' (c'est le chemin d'accès)
Dim NOMFACTURE as string
NOMFACTURE = Sheets("Nomdelafeuille").range("A1") ' (par ex., si le n° de facture est en A1)
ActiveWorkook.SaveAs DOSSIER & NOMFACTURE
End Sub
Bien sûr, le contenu de la cellule qui sert à nommer le fichier ne doit pas comporter de * / \ etc.
A suivre...