Bonjour,
Je rencontre des erreurs dans mes macros, je vous mets une capture avec l'erreur
Pense qu'il y a plusieurs fois le mot "chemin" dans différent code, c'est peut être pour ça que sa bloque, je me trompe?
Merci et à bientôt
Je rencontre des erreurs dans mes macros, je vous mets une capture avec l'erreur
Pense qu'il y a plusieurs fois le mot "chemin" dans différent code, c'est peut être pour ça que sa bloque, je me trompe?
VB:
Private Sub CDevis_Click()
chemin= "C:\Akisti Bat\Devis\"
ListeFacturesDevis.Caption = "Devis"
ListeFacturesDevis.Titre = "Liste des devis"
ListeFacturesDevis.Show
Me.Hide
End Sub
Private Sub CFactures_Click()
chemin= "C:\Akisti Bat\Facture\"
ListeFacturesDevis.Caption = "Factures"
ListeFacturesDevis.Titre = "Liste des factures"
ListeFacturesDevis.Show
Me.Hide
End Sub
VB:
Private Sub TMiseAJour_Click()
Dim Ctrl As Control
Dim Ligne As Long
If Me.ComboBox1.ListIndex = -1 Then
MsgBox "Veuillez sélectionner un nom à modifier !", vbInformation, "Attention"
Exit Sub
End If
If Trim(Me.TNom) = "" Then
Me.TNom.BackColor = vbRed
MsgBox "Veuilez renseigner au moins le nom de la société !", vbInformation, "Attention"
Exit Sub
End If
Application.ScreenUpdating = False
With Sheets("Clients")
Ligne = Me.ComboBox1.ListIndex + 4
For Each Ctrl In Me.Controls
If TypeName(Ctrl) = "TextBox" Then
If Val(Ctrl.Tag) > 0 Then
.Cells(Ligne, Val(Ctrl.Tag)) = Ctrl
If Val(Ctrl.Tag) = 3 Then
.Cells(Ligne, Val(Ctrl.Tag)) = Ctrl & " " & CVille
Else
.Cells(Ligne, Val(Ctrl.Tag)) = Ctrl
End If
End If
End If
Next
Trier
.Visible = xlSheetVisible
.Copy
.Visible = xlSheetVeryHidden
End With
With ActiveWorkbook
Application.DisplayAlerts = False
.SaveAs Filename:=chemin& Fichier, _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
.Close
End With
MsgBox "La modification a bien été faite !", vbInformation, "Confirmation"
Me.Hide
End Sub
VB:
Private Sub TSuppressionClient_Click()
Dim DerLigne As Long
If Me.ComboBox1.ListIndex = -1 Then
MsgBox "Veuillez sélectionner un nom à supprimer !", vbInformation, "Attention"
Exit Sub
End If
If MsgBox("Voulez-vous supprimer ce client : " & Me.ComboBox1 & " ?", vbQuestion + vbYesNo + vbDefaultButton2, _
"Opération irréversible") <> vbYes Then Exit Sub
Application.ScreenUpdating = False
With Sheets("Clients")
.Rows(Me.ComboBox1.ListIndex + 4).ClearContents
DerLigne = .Range("A" & Rows.Count).End(xlUp).Row
Trier
.Visible = xlSheetVisible
.Copy
.Visible = xlSheetVeryHidden
End With
With ActiveWorkbook
Application.DisplayAlerts = False
.SaveAs Filename:=chemin& Fichier, _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
.Close
End With
MsgBox "Le client sélectionné à bien été supprimée !", vbInformation, "Confirmation"
Me.Hide
End Sub
VB:
Private Sub BAjouter_Click()
Dim Ctrl As Control
Dim DerLigne As Long
If Trim(Me.TNom) = "" Then
Me.TNom.BackColor = vbRed
MsgBox "Veuilez renseigner au moins le nom de la société", vbInformation, "Attention"
Exit Sub
End If
Application.ScreenUpdating = False
With Sheets("Clients")
DerLigne = .Range("A" & Rows.Count).End(xlUp).Row + 1
For Each Ctrl In Me.Controls
If TypeName(Ctrl) = "TextBox" Then
If Val(Ctrl.Tag) > 0 Then
If Val(Ctrl.Tag) = 3 Then
.Cells(DerLigne, Val(Ctrl.Tag)) = Ctrl & " " & CVille
Else
.Cells(DerLigne, Val(Ctrl.Tag)) = Ctrl
End If
End If
End If
Next
Trier
.Visible = xlSheetVisible
.Copy
.Visible = xlSheetVeryHidden
End With
With ActiveWorkbook
Application.DisplayAlerts = False
.SaveAs Filename:=chemin& Fichier, _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
.Close
End With
Me.TNom.BackColor = vbWhite
Me.Hide
End Sub
VB:
Private Sub Liste_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Workbooks.Open (chemin & Liste.Text)
Me.Hide
End Sub
Private Sub UserForm_Initialize()
On Error Resume Next
new_chemin (chemin)
End Sub
Function new_chemin(Chemin_a_ouvrir As String) As String
Fichier = Dir(Chemin_a_ouvrir & "\*.*")
Do While Len(Fichier) > 0
Liste.AddItem Fichier
Fichier = Dir()
Loop
End Function
Merci et à bientôt
Dernière édition: