A voir également:
- Macro pour changer le nom de la feuille active exel en date du jour
- Macro exel ✓ - Forum Visual Basic 6
- Vba récupérer valeur cellule d'une autre feuille ✓ - Forum Visual Basic
- Convertir jours en années mois jours ✓ - Forum VB.NET
- Date en lettre en ligne ✓ - Forum Visual Basic 6
- Calcul date a date - Forum Javascript / DHTML
2 réponses
Salut
voila un exemple
Sub Macro1()
Dim a As String
a = InputBox("Nom de la feuille à modifier", "Feuille à modifier", "Feuil1", 100, 100)
On Error GoTo err
Sheets(a).Name = Format(Date, "dd-mm-yyyy")
Exit Sub
err:
If err.Number = 1004 Then
MsgBox "Vous ne pouvez pas renommez cette feuille aujourd'hui.", vbInformation + vbOKOnly, "Attention"
End If
End Sub
a+ ;)
voila un exemple
Sub Macro1()
Dim a As String
a = InputBox("Nom de la feuille à modifier", "Feuille à modifier", "Feuil1", 100, 100)
On Error GoTo err
Sheets(a).Name = Format(Date, "dd-mm-yyyy")
Exit Sub
err:
If err.Number = 1004 Then
MsgBox "Vous ne pouvez pas renommez cette feuille aujourd'hui.", vbInformation + vbOKOnly, "Attention"
End If
End Sub
a+ ;)
Salut
voila un exemple
Sub Macro1()
Dim a As String
a = InputBox("Nom de la feuille à modifier", "Feuille à modifier", "Feuil1", 100, 100)
On Error GoTo err
Sheets(a).Name = Format(Date, "dd-mm-yyyy")
Exit Sub
err:
If err.Number = 1004 Then
MsgBox "Vous ne pouvez pas renommez cette feuille aujourd'hui.", vbInformation + vbOKOnly, "Attention"
End If
End Sub
a+ ;)
voila un exemple
Sub Macro1()
Dim a As String
a = InputBox("Nom de la feuille à modifier", "Feuille à modifier", "Feuil1", 100, 100)
On Error GoTo err
Sheets(a).Name = Format(Date, "dd-mm-yyyy")
Exit Sub
err:
If err.Number = 1004 Then
MsgBox "Vous ne pouvez pas renommez cette feuille aujourd'hui.", vbInformation + vbOKOnly, "Attention"
End If
End Sub
a+ ;)
