Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Enregistrer une feuil à partir d'une cellule donnée, sous VBA

N

Nanard

Guest
Bonjour le forum,

Voici mon problème:

à l'aide de la fonction recherchev, j'entre un N° dans une cellule et des données clients facture s'affichent sur une feuil Facture.

A partir du n° attribué au client j'aimerais enregistrer cette facture avec son N° correspondant

Sachant que le N° change à chaque client,

c'est ce qui bloque actuellement dans ma macro

Voici le code:

Sub enregistrer_Facture()
'
'
' Macro Créée le 08/08/2004 par BP
'

Sheets("Facture").Select
ChDir "C:\Mes documents\facturation"
ActiveWorkbook.SaveAs Filename:= _
"C:\mes Documents\Facturation\", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Sheets("Facture").Select
Range("A2146").Select
Selection.ClearContents
Sheets("Facture").Select
Range("F7").Value = "1"

End Sub

merci à tous ceux qui m'aideront à comprendre, l'apprentissage est dur et long sous VBA

Nanard
 
M

Michel_M

Guest
Re Nanard

si F7 est la cellule qui donne le N° de facture

Range("F7").Value = Range("F7")+1

nota: lorsque tu écris "1" acec les guillemets , tu transformes ce qui est écrit à l'intérieur en texte (string en langage VBA) donc tu ne pourras pas incrémentezr tes numéros

Bon courage !

Michel
 
N

Nanard

Guest
Bonjour michel,

merci pour l'info

je souhaiterai enregistrer les factures par par N° de client

après cette partie de code de ma macro ci-dessus, il manque....!!!

"C:\mes Documents\Facturation.... ICI ,FileFormat:=xlNormal ...

merci de l'aide, chaque fois j'avance, encore merci...

pour ce soir un pt'i dodo s'impose

@+
Nanard
 
N

Nanard

Guest
Bonjour le forum,

Malgrés une réflexion poussée, je n'arrive pas à trouver la partie de code qui me manque pour enregistrer une facture en fonction du N° de client.

Lorsque je recherche un client en entrant son N° dans une cellule, j'aimerai pouvoir l'enregistrer sous ce N°

Merci de m'aide je suis bloqué depuis 2 jours sur le sujet

j'avance pas à pas , tout n'est pas simple...

Merci à tous pour l'aide que vous pouvez nous apporter

Nnnard
 
M

Michel_M

Guest
salut Nanard,

si j'ai bien compris ce que tu demandes
cette macro t'enregistre le classeursous le code client + numero de facture
dans le dossier facuration

Sub facturer()
Dim Client As Variant
Dim Fact As Long
Dim Chemin As String

'num_cli et num_fact sont le nom des cellules pour le code client et le niuméro de facture
Client = Range("num_cli")
Fact = Range("num_fact")
Chemin = "c:\mes documents\facturation\"
ActiveWorkbook.SaveAs Filename:=Chemin & Client & "_" & Fact & ".xls"

End Sub

A+
Michel
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…