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

Microsoft 365 recherche fichier sans un dossier

pelerin65

XLDnaute Occasionnel
Bonjour le forum,

voila j'avais un fichier excel avec le code suivant

VB:
nomF = Sheets("Tableau de Bord").Range("Q2") '<- adapter éventuellement le nom de la feuille
If nomF <> "" Then
    fichier = Dir(CHEMIN_TR & nomF & ".xls*")
    If Left(fichier, Len(nomF)) = nomF Then
        VREP = MsgBox("Le Fichier" & " " & [Q2] & " " & "existe, l'ouvrir?", vbYesNo)
       If VREP = 6 Then
            Set wb = Workbooks.Open(CHEMIN_TR & fichier)
        End If
     Else
        VREP = MsgBox(fichier & "La tournée" & " " & [Q2] & " " & "n'existe pas, création d'un nouveau fichier ?", vbYesNo)
        If VREP = 6 Then
            Set wb = Workbooks.Open(CHEMIN_FICHIER_TR_BASE)
            wb.SaveAs (CHEMIN_TR & nomF & ".xlsb")
        End If
    End If
End If


J'aimerai pouvoir l'adapter à ce nouveau ficher qui est 100% avec des userform
ca me permets de pouvoir avoir un historique par N° de Tournée

je joins le fichier
 

Pièces jointes

  • Notes.xlsb
    302.1 KB · Affichages: 8

pelerin65

XLDnaute Occasionnel
Re
c est que je voudrait qu'il se nomme au début car il y a des collègues qui ont déjà du mal avec l'informatique comme a la fermeture Excel demande de l enregistre
Cordialement
JL
 

pelerin65

XLDnaute Occasionnel
Bonjour le forum, ChTi160, Fanch55,

Ce code fonctionne en fin de journée, il enregistre bien le fichier en le renommant avec le N° de Tournée
j'utilise le bouton Valider de l 'userform "PREPARATION"
Le problème reste le même, la recherche en début de journée, savoir s'il existe le fichier afin de pourvoir utiliser l'archive.
Le souci, c'est de pourvoir faire une recherche dans le dossier "Tournées"

Est-il possible de faire une prérecherche du N° Tournée à l'ouverture du fichier avec ESV et date et afficher une Msgbox avec le N° de Tournée afin de pourvoir l'ouvrir le fichier existant s'il existe sinon de créer un nouveau fichier en le renommant avec le N° de tournée trouvé

Cordialement
JL
 

Pièces jointes

  • Loc Ng.xlsb
    330.2 KB · Affichages: 2

pelerin65

XLDnaute Occasionnel
Bonjour ChTi160,
ce code permettais de garder le fichier de base vierge tout en renommant ou en vérifiant si le fichier existe ou pas ou de le créer s'il n existe pas.

Bien pour la feuille journal et se remplir uniquement avec la tournée du jour (par exemple si le 14 mai le N° de tournée est SE08 dans le journal, ca sera la journée du 14 mai et les prochaines de la même tournée, le 15 mai, la tournée n'auras pas le même N° de tournée donc pas le même journal d'où l'importance de pouvoir le renomme au début de de pourvoir afin de garder le fichier de base vierge
après les option buttons, il est vrai que c'est pour la fin de journée pour créer le rapport finale avec le responsable de mesure c'est pourvoir trier par catégories les données brutes avec le système d enregistrement car on a très très souvent des différence de points kilométriques, c'est une idée
cordialement
JL
 

pelerin65

XLDnaute Occasionnel
Re ChTi160
Ce fichier ci-dessous
fichier de Base = Loc Ng
 

Pièces jointes

  • Loc Ng.xlsb
    330.2 KB · Affichages: 1

pelerin65

XLDnaute Occasionnel
Re ChTi160
j'ouvre le fichier Loc Ng,
il n'ouvre la fenêtre ACCUEIL

I
Avec mon ancien fichier, après avoir rempli la combo et la date avec le code suivant
c'est là que qu'il ouvrait le deuxième fichier et qu'il renomme le fichier avec son numéro de tournée. car il y avait une recherche
aujourd'hui, avec un seul fichier Excel avec des userform, ça l'air impossible de faire le même processus.

ce processus me permettais de garder un fichier de base 'Loc Ng"
et de créer des fichiers nommé par le numéro de tournée.

voila je parlais de faire une prerecheche lol
cordialement
 

pelerin65

XLDnaute Occasionnel
Re ChTi160

ok, tu dis beaucoup de possibilités, mais c est quoi une fichier x, je vois pas ce que c'est en plus, je n'arrive pas à retenir le vba; je vais au moins essayer de corriger les problèmes sur les boutons "supprimer" et "ajouter" dans l'autre fil,
j'ai beaucoup travaillé passer du temps avec l ancien pour ce fichier.
je vais réfléchir à ces possibilités de ton post pour comprendre et voir une fichier d'exemples

Merci de ton aide
cordialement
JL
 

ChTi160

XLDnaute Barbatruc
Re
Ok je comprends mieux
X c'est comme quand on dit porter plainte contre X
Par exemple j'ai un fichier nommé "Modèle.xlsb" plutôt que X
C'est ce fichier Modèle que je renommerais "SE08.xlsb"
Encore faudrait il savoir ce qui doit te servir dans ces Fichiers archivés. Mais bon !
Je vais te laisser finir comme tu l'entends .
Tu devrais y arriver !
Je ne t'embête plus lol
Je vais supprimer tout ce qui ne correspond pas. A ta demande .
Bonne fin de journée
Jean marie
 
Dernière édition:

pelerin65

XLDnaute Occasionnel
Bonjour ChTi160

comment on fait pour récupère la valeur de lbltournée de l'userform PREPARATION
en cliquant sur le Bouton "Journal"
j aimerai à l ouverture de l'userform JOURNAL" avoir la valeur du label "lbltournée" dans une textbox
c'est possible de le faire en vba
cordialement
JL
 

ChTi160

XLDnaute Barbatruc
Tu déclares une variable Public
Exemple : StrTounee as String
Puis lors de l'appui sur le bouton journal
Dans l'initialize du userform "JOURNAL" tu mets (Si ton Texbox s'appelle TxBoxTournee)
TxtBoxTournee.Text=StrTournee
Depuis mon téléphone
Jean marie
 
Dernière édition:

ChTi160

XLDnaute Barbatruc
Bonsoir Jean Luc
petite question :
Dans ton Userform "ACCUEIL" la date peut elle être Une autre date que le Jour ou il est utilisé ?
si Oui pourquoi ?
merci par avance !
Jean marie
 

pelerin65

XLDnaute Occasionnel
Bonsoir Jean Luc
petite question :
Dans ton Userform "ACCUEIL" la date peut elle être Une autre date que le Jour ou il est utilisé ?
si Oui pourquoi ?
merci par avance !
Jean marie
Re jean marie

Bien, c'est pas une obligation de pouvoir changer de date, c'etait l'idée d'un collègue pour rechercher et préparer des tournées futures.
Aujourd'hui je cherche à pourvoir changer automatiquement la date a l'ouverture et de pourvoir l'afficher dans une textbox dans l'userform accueil afin d avoir aussi le N° de tournée.
Aujourd'hui la recherche se fait avec combo "esv" et textbox "date".

Idéal, c'est de pourvoir créer un bouton de mise a jour afin de faire une recherche du numéro de tournée qui s'afficheras dans une textbox et après créer la journée de pourvoir créer la tournée avec la date et le N° de tournée

C'est compliqué pour moi
J'ai beaucoup de mal avec le vba
Cordialement
JL
 

ChTi160

XLDnaute Barbatruc
Re
après il faudrait savoir ce que tu voudrais pouvoir rechercher , A partir de quoi . Un nom de tournée une date l
,les deux etc a toi d'y réfléchir .
Bonne journée
Jean marie
 

Discussions similaires

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