Bonjour le forum,
voila j'avais un fichier excel avec le code suivant
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
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 IfJ'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