1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43
| Option Compare Database
Private Sub txt_click()
Public Sub boutoncommande_click()
DoCmd.OutputTo acOutputReport, Me.Name, acFormatTXT, "F:" & Me.Name & "Bizerba.txt" '--- chemin et nom fichier à adapter
End Sub
Public Sub BoutonCommande2_Click()
Dim Msg As String, NomRepertBD As String
NomRepertBD = CurrentProject.Path & "\" 'ParentDir(Application.CurrentDb.Name) ' récupération du chemin de l'application
DoCmd.OutputTo acOutputReport, "Atelier", "MS-DOSText(*.txt)", NomRepertBD & "Backup.txt", False, "", , acExportQualityPrint ' ceci est ce que faisait la macro
Dim sEmplacementInitial As String, sTraitement As String, sEmplacementFinal As String ' déclaration des variables contenant les emplacements des fichiers texte original, traité et enregistré en final
sEmplacementInitial = NomRepertBD & "Backup.txt"
sTraitement = NomRepertBD & "Data.txt"
Dim Enrgt As String
' ce qui suit supprime toutes les lignes vides du fichier original
Open sEmplacementInitial For Input As #1
Open sTraitement For Output As #2
While Not EOF(1)
Input #1, Enrgt
If Not Left(Enrgt, 1) = "" Then
Print #2, Enrgt
End If
Wend
Close #1
Close #2
Msg = "Voulez-vous sauvegarder le fichier sous un autre nom ou à un autre emplacement? " & vbCr & "Si c'est le cas, cliquez sur Oui. " _
& vbCr & vbCr & "Si vous cliquez sur Non le fichier sera sauvegardé à l'emplacement " & sTraitement ' Définit le message.
Style = vbYesNo + vbCritical + vbDefaultButton2 ' Définit les boutons.
Response = MsgBox(Msg, Style)
If Response = vbYes Then ' L'utilisateur a choisi Oui.
sEmplacementFinal = EnregistrerUnFichier(Me.Hwnd, "", "Data.txt", NomRepertBD)
If sEmplacementFinal = sTraitement Then 'cas où l'utilisateur ne choisit pas d'autre nom ou emplacement
Exit Sub
Else
FileCopy sTraitement, sEmplacementFinal
End If
Else
Exit Sub
End If
End Sub
Private Sub EntêteÉtat_Print(Cancel As Integer, PrintCount As Integer)
'--- pour qu'à l'impression le bouton soit masqué
Me.BoutonCOmmande.Visible = False
End Sub |
Partager