Microsoft 365 recherche fichier sans un dossier

ChTi160 à dit:

Re
Le bouton "AFFICHER" sert a afficher le userform "Préparation"
Si le Fichier (Fiche) doit avoir dans son nom le numéro de la journée, c'est après l'affichage de "Préparation"qu'il faudrait lancer la création de la fiche.. pourquoi le créer a l'ouverture alors qu'il va , d'après ce que j'ai compris , contenir les données de la feuille "journal" ( question que j'ai posé , sans réponse , à préciser donc !) et donc complète en fin de journée.
Explique moi lol
Jean marie

Cliquez pour agrandir...

Private Sub CmbValider_Click()
'Private Sub LblTournee_Click()
Dim Fichier As String
Dim Wb As Workbook
Dim Chemin_Tr As String: Chemin_Tr = "C:\Loc Ng 25\01-Tounées\"
Dim Chemin_Fichier_Tr_Base As String: Chemin_Fichier_Tr_Base = "C:\Loc Ng 25\Loc Ng.xlsb"
Dim nomF As String: nomF = Chemin_Tr & Me.LblTournee & ".xlsb"
If nomF <> "" Then
Err.Clear: On Error Resume Next
' on vérifie qu'il ne soit pas déjà ouvert
Set Wb = Application.Workbooks(Me.LblTournee & ".xlsb")
If Wb Is Nothing Then
Fichier = Dir(nomF)
If Fichier <> "" Then
' le fichier existe
If MsgBox("Le Fichier " & Me.LblTournee & " existe" & vbLf _
& "l'ouvrir ?", vbQuestion + vbYesNo) = vbYes Then
Set Wb = Workbooks.Open(Chemin_Tr & Fichier)
End If
Else
If MsgBox("La tournée " & nomF & "n'existe pas" & vbLf _
& "voulez-vous la créer ?", vbQuestion + vbYesNo) = vbYes Then
Set Wb = Workbooks.Open(Chemin_Fichier_Tr_Base)
Wb.SaveAs (nomF)
End If
End If
Else
Wb.Activate
End If

Cliquez pour agrandir...

ChTi160 à dit:

Bonsoir Jean luc
pas de réponse à mes questions Lol
mais j'en ai encore mdr !

j'ai vu que tu as ajouté des OptionButton , pour les premiers , je pense qu'il doivent servir a Filtrer les Lignes du Journal , et celui Intitulé "LOC NG" sert à quoi ?
Pourquoi n'as tu pas mis un Combobox pour trie les lignes sur les "Catégories" ?
bon j'essaye de Comprendre
tu as un Dossier "Tournées" et au fur et a mesure tu y archives les données (de la feuille "Journal" c'est ça ?) soit dans le Fichier , exemple "SE08.xlsb " si il existe ou alors tu Crées et tu le renommes ce fichier par exemple "SE08.xlsb" avec l'intitulé de la Tournées en cours de traitement et tu y mets les données de la feuille "Journal" de la Journée en cours ? c'est ça ?

Bonne continuation

jean marie

Cliquez pour agrandir...

Dim nomF As String
Dim fichier As String
Dim wb As Workbook
Dim wb2 As Workbook
Dim VREP As String
Dim Workbook As String

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

Cliquez pour agrandir...

ChTi160 à dit:

Bonjour Jean Luc
Tu dis :

J'ai déjà du le demander,mais bon !
Qu'appelles tu "fichier" de Base"
Pourrais tu par exemple mettre une explication du genre a partir du Fichier "Notes.xlsb" je remplie la feuille "Journal"
Puis en fin de journée de la Tournée SE08.xlsb
Je vérifie que la tournée SE08.xlsb se trouve ou pas dans le dossier "Tournées"
A partir de quoi créés tu ce fichier ,un fichier vierge sans rien (entêtes) , à partir de la feuille "Journal" en y récupérant tout (avec entêtes)ou seulement les données.
Dans l'attente
Bonne journée
Jean marie

Cliquez pour agrandir...

ChTi160 à dit:

Re
ca non plus je ne comprends pas Lol

que vient faire la date dans la recherche du Fichier qui s'appelle du Numéro de la Tournée ? (SE08.xlsb)
et ça ?

tu dis "créer un nouveau fichier " à partir de quoi Lol
et on en fait quoi de ce Fichier trouvé ou Créée ? Lol
Tu vois il faut être Clair et Précis car toi tu connais très bien la Marche à suivre ,mais pas nous Lol
d'ou toutes mes questions et demandes .......
Jean marie

Cliquez pour agrandir...

Dim nomF As String
Dim fichier As String
Dim wb As Workbook
Dim wb2 As Workbook
Dim VREP As String
Dim Workbook As String

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

Cliquez pour agrandir...

ChTi160 à dit:

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

Cliquez pour agrandir...

ChTi160 à dit:

Tu déclaré 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

Cliquez pour agrandir...

ChTi160 à dit:

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

Cliquez pour agrandir...

c'est pas une obligation de pouvoir changer de date

Cliquez pour agrandir...

ChTi160 à dit:

Bonjour Jean Luc
Donc quand tu dis :

Si on ne parle pas de recherche ou autre tu travailles sur la date du jour ?
Jean marie

Cliquez pour agrandir...