bonjour a tous, j'ai déjà posé ce problème il y a quelques jours...
je n'ai pas sans doute assez détaillé mon projet,
en fait il s'agit d'une facture qui génère lors de la validation un fichier que stock dans un dossier "c:\factures\nom_client\"
le dossier de base est "c:\factures" le sous-dossier "nom_client" est généré automatiquement s'il n'existe pas
en vba
Private Sub enregistrement_Click()
Dim Chemin$
Dim client$
Dim jour$
Dim Fichier$
Dim numFacture As String
If Sheets(1).Range("c10") <> 0 Then
Worksheets(1).Copy after:=Sheets(1)
Worksheets(2).Unprotect
Sheets(2).Select
Dim maChaine, maNouvChaine, strTotal As Integer
Dim maDate As Variant
Sheets(1).Select
strNoFact = Sheets(2).Range("c15").Value
maChaine = CInt(strNoFact)
maNouvChaine = maChaine + 1
Sheets(1).Select
Sheets(2).Range("c15").Value = maNouvChaine
Sheets(1).Range("c15").Value = Sheets(2).Range("c15").Value
Sheets(1).Select
Application.DisplayAlerts = False
Sheets(2).Delete
Chemin = "C:\factures\"
client = Range("c10")
jour = Range("c13")
numFacture = Range("c15")
Fichier = client & "-" & "N°" & "-" & Format(numFacture, "00000") & "-" & "du" & "-" & Format(jour, "mm-yyyy") & ".xlsm"
If Dir(Chemin & client, 16) = "" Then MkDir Chemin & client
ActiveWorkbook.SaveCopyAs Chemin & client & "\" & Fichier
'Nettoyage feuille vierge
Range("b19:d30").Select
Selection.ClearContents
Range("f8").Value2 = Hidden
en fin de mois , j'aimerais récupéré la valeur de la cellule E34 de tous les fichiers ainsi générés dans un autre classeur dont la base client se trouve en feuille2 sous la forme de colonne "nom" "adresse" "code postal" , jaimerais créer une listebox qui a partir de la colonne "nom" me permette de selectionner le nom, l'adresse, le code postal, la ville, et de recupérer la valeur de la cellule e34 du ou des fichiers correspondants au nom, sachant que dans le nom de fichier a partir de la droite, le nombre de carractère est constant jusq'au N de N°.
1er fichier en ligne et ainsi de suite.
j'espère que quelqu'un pourras m'aider, je suis débutant, et la je bute grave!!!
D'avance merci a tous ce qui se pencheront sur ce modeste projet
Gc
je n'ai pas sans doute assez détaillé mon projet,
en fait il s'agit d'une facture qui génère lors de la validation un fichier que stock dans un dossier "c:\factures\nom_client\"
le dossier de base est "c:\factures" le sous-dossier "nom_client" est généré automatiquement s'il n'existe pas
en vba
Private Sub enregistrement_Click()
Dim Chemin$
Dim client$
Dim jour$
Dim Fichier$
Dim numFacture As String
If Sheets(1).Range("c10") <> 0 Then
Worksheets(1).Copy after:=Sheets(1)
Worksheets(2).Unprotect
Sheets(2).Select
Dim maChaine, maNouvChaine, strTotal As Integer
Dim maDate As Variant
Sheets(1).Select
strNoFact = Sheets(2).Range("c15").Value
maChaine = CInt(strNoFact)
maNouvChaine = maChaine + 1
Sheets(1).Select
Sheets(2).Range("c15").Value = maNouvChaine
Sheets(1).Range("c15").Value = Sheets(2).Range("c15").Value
Sheets(1).Select
Application.DisplayAlerts = False
Sheets(2).Delete
Chemin = "C:\factures\"
client = Range("c10")
jour = Range("c13")
numFacture = Range("c15")
Fichier = client & "-" & "N°" & "-" & Format(numFacture, "00000") & "-" & "du" & "-" & Format(jour, "mm-yyyy") & ".xlsm"
If Dir(Chemin & client, 16) = "" Then MkDir Chemin & client
ActiveWorkbook.SaveCopyAs Chemin & client & "\" & Fichier
'Nettoyage feuille vierge
Range("b19:d30").Select
Selection.ClearContents
Range("f8").Value2 = Hidden
en fin de mois , j'aimerais récupéré la valeur de la cellule E34 de tous les fichiers ainsi générés dans un autre classeur dont la base client se trouve en feuille2 sous la forme de colonne "nom" "adresse" "code postal" , jaimerais créer une listebox qui a partir de la colonne "nom" me permette de selectionner le nom, l'adresse, le code postal, la ville, et de recupérer la valeur de la cellule e34 du ou des fichiers correspondants au nom, sachant que dans le nom de fichier a partir de la droite, le nombre de carractère est constant jusq'au N de N°.
1er fichier en ligne et ainsi de suite.
j'espère que quelqu'un pourras m'aider, je suis débutant, et la je bute grave!!!
D'avance merci a tous ce qui se pencheront sur ce modeste projet
Gc
