Bonjour
Je m’excuse mes pour moi qui le projet c était simple de le comprendre
Donc je vais vous expliquer le fonctionnement de a a z
En 1) le fichier s’ouvre nome fichier1 aussi tot l ouverture un userform s ouvre
2)il faut remplir un textbox d une référence et des optionbutton pour dire d aller mettre cette référence dans les formulaire choisi ensuite ont valide par un bouton
3)la référence e doit aussi se mettre dans la cellule B1 de ma feuille MENU
4) j ais oublie que des l ouverture du fichier en A1 Feuille Menu la date du jour se mes automatiquement
5) ont remplie les formulaire choisi
6) une fois remplis ont reviens sur la feuille menu
7 ) ont click sur un bouton enregistrement et c est la que le code suivant doit enregistrer dans un premier temps le fichier avec un nouveau nom qui se trouve en A1 c est la date du jour et
B1 qui est la référence voici un exemple : 20-12-2014-IS 15425 MA
8) Je veux quand premier il se renommé comme l exemple
9 )Et en deuxieme qu il mon premier chemin que j ais choisi et ensuite celons l année dans la date il ouvrent un des sous dossier qu’ ils comporte comme nom 2014 2015 2016 2017 2018 2019 2020 etc.…
Et dans chaque sous dossier ils y a des sous sous dossier avec comme reference 0 a 10000, 10001 a 15000, 15001 a 20000 , 20001 a 25000 , 25001 a 30000 etc….
10) Donc la il devrait choisire le sous dossier 2014 et ensuite celon les 5 chiffres de la reference dans le nom 15425 qu il ouvre le sous sous dossier dont la reference est comprise donc le 15001 a 20000
11) Et ensuite fermer le fichier
Donc voici mon premer probleme
Quand je click sur enregistrement il va bien s enregistrer dans mon premier chemin "C:\Users\A03GEN-10097\fiches de contrôle
Donc c etais ma premiere etape mais déjà la il m enregistre 3 fichiers le premier renome 20-12-2014 Filename , le deuxieme Filename et le troixieme IS 15425 MA
Mais mois je veux 1 seule fichier renome 20-12-2014-IS 15425 MA.xlsm e en suite qu il suive les instruction 9) et 10) et 11)
J espere etre un peut plus claire
Revoici le code pour déjà regler le probleme des 3 fichier en 1 seule
Sub trouverlechemindufichier()
On Error Resume Next
' trouverlechemindufichier Macro
Dim Chemin As String, Fichier As String
Dim Nom As String
'Dim Filename As String
Nom = Day(Date) & "-" & Month(Date) & "-" & Year(Date) & "_" & ActiveWorkbook.Name 'Cet exemple montre comment afficher le nom du classeur actif.
''Nom = "NomClasseur_" & Format(Date, "yyyymmdd" ) & "_" & Format(Time, "hhmmss" ) & ".xls"
Chemin = ThisWorkbook.Path 'code pour enregister fichier avec B1
Fichier = Chemin & "\" & Range("B1" ) & ".xltm" 'code pour enregister fichier avec B1
ActiveWorkbook.SaveAs Filename:=Fichier 'code pour enregister fichier avec B1
'ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\" & Nom
' rep = MsgBox("Votre base de données est sauvegardée sous le nom : " & Nom, vbYes + vbInformation, "Copie sauvegarde classeur" )
Filename = Fichier
'code pour envoyer le fichier filename en C:\Users\etc
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\A03GEN-10097\fiches de controle\Filename.xltm", FileFormat:= _
xlOpenXMLTemplateMacroEnabled, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False ' createBackup pour enregistrer une copie du classeur actif si true
End Sub
Merci de votre aide