Macro (enregistrer sous) excel2007
kadeh
Messages postés
341
Statut
Membre
-
Ivanhoe -
Ivanhoe -
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
- Comment enregistrer une conversation - Guide
- Enregistrer son ecran - Guide
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
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...
