S
sylvain
Guest
bonjour à tous,
je souhaiterais mettre un petit message lorsque que l'on oublie de sélectionner le fichier dans une listbox. J'ai beau essayer de tourner le code vba dans tous les sens pas moyen. merci du conseil
sylvain
voici le code que j'ai essayé d'adapter :
Private Sub CommandButton1_Click()
Dim f As String
Dim i As Integer
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
Else: MsgBox ('Veuillez choisir un éleveur avant de valider!')
End If
Next i
f = ListBox1.List(i)
p = 'c:\\simoporc\\sauvegarde\\'
'f = 'sauvegarde.xls'
s = 'bdd'
u = 'bdd2'
With UserForm1.ProgressBar1
.Visible = True
.Min = 0
.Max = 8
Application.ScreenUpdating = False
Sheets('bdd').Activate
For r = 5 To 11
For c = 3 To 256
a = Cells(r, c).Address
Cells(r, c) = RecupValeur(p, f, s, a)
Next c
Next r
Application.ScreenUpdating = True
Sheets('menu').Activate
.Value = 4
DoEvents
End With
With UserForm1.ProgressBar1
.Visible = True
.Min = 0
.Max = 8
Application.ScreenUpdating = False
Sheets('bdd2').Activate
For r = 5 To 11
For c = 3 To 256
a = Cells(r, c).Address
Cells(r, c) = RecupValeur(p, f, u, a)
Next c
Next r
Application.ScreenUpdating = True
Sheets('menu').Activate
.Value = 8
DoEvents
End With
Unload Me
MsgBox ('L'opération s'est terminée avec succès')
End Sub
je souhaiterais mettre un petit message lorsque que l'on oublie de sélectionner le fichier dans une listbox. J'ai beau essayer de tourner le code vba dans tous les sens pas moyen. merci du conseil
sylvain
voici le code que j'ai essayé d'adapter :
Private Sub CommandButton1_Click()
Dim f As String
Dim i As Integer
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
Else: MsgBox ('Veuillez choisir un éleveur avant de valider!')
End If
Next i
f = ListBox1.List(i)
p = 'c:\\simoporc\\sauvegarde\\'
'f = 'sauvegarde.xls'
s = 'bdd'
u = 'bdd2'
With UserForm1.ProgressBar1
.Visible = True
.Min = 0
.Max = 8
Application.ScreenUpdating = False
Sheets('bdd').Activate
For r = 5 To 11
For c = 3 To 256
a = Cells(r, c).Address
Cells(r, c) = RecupValeur(p, f, s, a)
Next c
Next r
Application.ScreenUpdating = True
Sheets('menu').Activate
.Value = 4
DoEvents
End With
With UserForm1.ProgressBar1
.Visible = True
.Min = 0
.Max = 8
Application.ScreenUpdating = False
Sheets('bdd2').Activate
For r = 5 To 11
For c = 3 To 256
a = Cells(r, c).Address
Cells(r, c) = RecupValeur(p, f, u, a)
Next c
Next r
Application.ScreenUpdating = True
Sheets('menu').Activate
.Value = 8
DoEvents
End With
Unload Me
MsgBox ('L'opération s'est terminée avec succès')
End Sub