Récupérer numéro depuis fichier excel situé dans un dossier

[RONIBO]

Bonsoir le forum,

J'aurais besoin de vos expériences.

J'aimerais intégrer dans mon fichier modèle un code qui va me permettre de numéroter les factures ou devis

J'ai un dossier facture avec plusieurs facture à l'intérieur.

Je souhaite avoir un code qui va me permettre de récupérer le dernier numéro utilisé dans le dossier facture et le reporter dans le fichier modèle en y ajoutant +1

Ex : si dernière facture = Facture Nº004 - SOS BAT (Darty), prochaine facture compotera le numéro 005

Je vous met un fichier exemple assez simple (à extraire dans c: svp)

Merci d'avance

Bonne nuit

 

[JCGL]

Re : Récupérer numéro depuis fichier excel situé dans un dossier

Bonjour à tous,

Ce n'est pas ce bout de code qui gère la sauvegarde : voir dans le tien dans le BeforeSave...

Ajout de : .Range("G10").Text

MyFile = Chemin & .Range("F10") & .Range("G10").Text & Chr(160) & "-" & Chr(160) & .Range("A12") & Chr(160) & "(" & .Range("F14") & ")" & ".xlsm"

A+ à tous

 

[RONIBO]

Re : Récupérer numéro depuis fichier excel situé dans un dossier

Bonsoir,

J'ai fais énormément de teste, j'en conclu que ton code fonctionne très très bien, j'ai oublié les devis avec mon modèle je peux également créer des devis grâce à une liste déroulante située dans la cellule F1,

Une question comment on peut le faire fonctionner pour les devis?

 

[RONIBO]

Re : Récupérer numéro depuis fichier excel situé dans un dossier

Bonjour,

J'ai pu résoudre mon problème en créant un modèle pour les devis et un pour les factures, j'ai intégré le tout dans un usf avec des bouton Devis et Facture



Si je supprime le dossier facture par exemple, j'ai une erreur si cette ligne, se qui est normal car chemin non trouvé

Set DossierRacine = FS.getfolder(Racine)

Je voulais demander si l'on pouvais afficher un msgbox lorsque le dossier facture est pas accessible (supprimer)
ex : le dossier facture est introuvable

Est possible à réaliser ce genre de projet?

a+

 

[RONIBO]

Re : Récupérer numéro depuis fichier excel situé dans un dossier

Bonsoir JCGL, Le forum

JCGL : Je te dérange pour savoir si tu as une solution à se petit problème?

A+

 

[JCGL]

Re : Récupérer numéro depuis fichier excel situé dans un dossier

Bonjour à tous,

Peux-tu essayer le fichier joint ?

A+ à tous

 

[RONIBO]

Re : Récupérer numéro depuis fichier excel situé dans un dossier

Bonjour à tous,

Tu as eu une idée est bonne et elle marche plutôt bien, par contre ça m'oblige de sélectionné "FACTURE" ou "DEVIS" manuellement pour obtenir le numéro du document choisi, des l'ouverture du fichier "MODELE", on peut numéroter automatiquement que les factures et une fois le devis sélectionné ré exécuter la macro?

A+

 

[JCGL]

Re : Récupérer numéro depuis fichier excel situé dans un dossier

Bonjour à tous,

Je ne peux déduire si tu souhaites établir un Devis ou une facture au démarrage.

En modifiant ton choix par la liste de validation, le numérotage s'adapte...

A+ à tous

 

[RONIBO]

Re : Récupérer numéro depuis fichier excel situé dans un dossier

Bonjour le forum,

Merci pour ton fichier exemple JCGL, désolé du retard car j'avais pas trop le temps à consacrer pour le vb.

Bonne journée.

 

[RONIBO]

Re : Récupérer numéro depuis fichier excel situé dans un dossier

Bonjour à tous,

JCGL je reviens vers toi pour savoir si l'on pouvait ignoré de compter les fichiers masqués ?

 

[RONIBO]

Re : Récupérer numéro depuis fichier excel situé dans un dossier

Bonsoir à tous,

Si je comprends bien il n'y a pas de solution, c'est ca JCGL ?

A+

 

[JCGL]

Re : Récupérer numéro depuis fichier excel situé dans un dossier

Bonjour à tous,

Je n'ai pas trouvé de solution car je n'ai pas encore cherché...

A+ à tous

 

[RONIBO]

Re : Récupérer numéro depuis fichier excel situé dans un dossier

Re,

ah d'accord, j'espère qu'il y en a une

A+

 

[JCGL]

Re : Récupérer numéro depuis fichier excel situé dans un dossier

Bonjour à tous,

Peux-tu essayer ceci dans le Module1 (annule et remplace le précédent bout de code...) :

Sub LitDossier(ByRef Dossier, ByVal Niveau)
    Cells(Ligne, 27) = Dossier.Name
    Cells(Ligne, 27).Font.ColorIndex = 0
    Ligne = Ligne + 1
    For Each Fichier In Dossier.Files
        If Fichier.Attributes = 32 Then
            Cells(Ligne, 27) = Fichier.Name
        Else
            Cells(Ligne, 27) = ""
        End If
        Ligne = Ligne + 1
    Next
End Sub

A+ à tous

 

[RONIBO]

Re : Récupérer numéro depuis fichier excel situé dans un dossier

Bonsoir,

Je pourrais tester ce code que demain matin car le fichier est pas sur cet ordinateur

Je te tiens au courant demain JCGL

Bonne soirée

 

[RONIBO]

Re : Récupérer numéro depuis fichier excel situé dans un dossier

Bonjour,

Je viens de tester et ca fonctionne parfaitement, merci JCGL

Bonne journée