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

JCGL

XLDnaute Barbatruc

• 23 Novembre 2013

• #31

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"

Cliquez pour agrandir...

A+ à tous

 

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 23 Novembre 2013

• #32

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?

 

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 24 Novembre 2013

• #33

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)

Cliquez pour agrandir...

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+

 

Dernière édition: 24 Novembre 2013

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 27 Novembre 2013

• #34

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+

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 27 Novembre 2013

• #35

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

Bonjour à tous,

Peux-tu essayer le fichier joint ?

A+ à tous

 

Pièces jointes

• JC Ronibo.zip

  449.9 KB · Affichages: 38
• JC Ronibo.zip

  449.9 KB · Affichages: 42
• JC Ronibo.zip

  449.9 KB · Affichages: 62

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 28 Novembre 2013

• #36

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+

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 28 Novembre 2013

• #37

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

 

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 30 Novembre 2013

• #38

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.

 

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 2 Décembre 2013

• #39

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 ?

 

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 4 Décembre 2013

• #40

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+

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 4 Décembre 2013

• #41

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

 

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 4 Décembre 2013

• #42

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+

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 4 Décembre 2013

• #43

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...) :

VB:

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

 

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 4 Décembre 2013

• #44

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

 

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 5 Décembre 2013

• #45

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

 

Vote positif 0 Vote négatif