P
PY
Guest
rebonjour,
je voudrais tester l'existence d'un chemin d'acces mais j'avoue que le problème me dépasse un peu.
voici ce que j'ai commencer a faire:
Private Sub CommandButton7_Click()
Dim cheminfacture As String
Dim chemindevis As String
If TextBox12.Text = "" Then
msg = MsgBox("Saisisser un chemin d'accès pour l'enregistrement des factures ", vbOKOnly, "Attention")
If msg = vbOK Then Exit Sub
End If
If TextBox13.Text = "" Then
msg = MsgBox("Saisisser un chemin d'accès pour l'enregistrement des devis ", vbOKOnly, "Attention")
If msg = vbOK Then Exit Sub
End If
cheminfacture = TextBox12.Value
chemindevis = TextBox13.Value
'if cheminfacure existe pas alors msgbox("Ce chemin n'existe pas, voulezvous le créer ?",vbyesno,"Chemin d'accès")
'if chemindevis existe pas alors msgbox("Ce chemin n'existe pas, voulezvous le créer ?",vbyesno,"Chemin d'accès")
End Sub
pouvez-vous m'aider ? merci
je voudrais tester l'existence d'un chemin d'acces mais j'avoue que le problème me dépasse un peu.
voici ce que j'ai commencer a faire:
Private Sub CommandButton7_Click()
Dim cheminfacture As String
Dim chemindevis As String
If TextBox12.Text = "" Then
msg = MsgBox("Saisisser un chemin d'accès pour l'enregistrement des factures ", vbOKOnly, "Attention")
If msg = vbOK Then Exit Sub
End If
If TextBox13.Text = "" Then
msg = MsgBox("Saisisser un chemin d'accès pour l'enregistrement des devis ", vbOKOnly, "Attention")
If msg = vbOK Then Exit Sub
End If
cheminfacture = TextBox12.Value
chemindevis = TextBox13.Value
'if cheminfacure existe pas alors msgbox("Ce chemin n'existe pas, voulezvous le créer ?",vbyesno,"Chemin d'accès")
'if chemindevis existe pas alors msgbox("Ce chemin n'existe pas, voulezvous le créer ?",vbyesno,"Chemin d'accès")
End Sub
pouvez-vous m'aider ? merci