AIDE AVEC VBA
Résolu
jbg85
Messages postés
6
Statut
Membre
-
Polux31 Messages postés 7219 Statut Membre -
Polux31 Messages postés 7219 Statut Membre -
Bonjour,
J'ai posté un message il y a 40 min sur le fonctionnement de VBA.
Est ce qu'il y a quelqu'un qui peut me répondre car c'est urgent.
Merci par avance,
J-baptiste
J'ai posté un message il y a 40 min sur le fonctionnement de VBA.
Est ce qu'il y a quelqu'un qui peut me répondre car c'est urgent.
Merci par avance,
J-baptiste
2 réponses
bonjour,
tu ouvres l'éditeur VB (alt+F11), tu doubles cliques sur thisWorkbook. Ensuite tu fais un copier/coller du code que tu as mis. Tu sauvegardes ton fichier, tu le fermes et ensuite tu le relances.
La date se mettra automatiquement dans la première cellule de la première feuille Excel de ton classeur après chaque modif, sans que tu fasses autre chose.
;o)
polux
tu ouvres l'éditeur VB (alt+F11), tu doubles cliques sur thisWorkbook. Ensuite tu fais un copier/coller du code que tu as mis. Tu sauvegardes ton fichier, tu le fermes et ensuite tu le relances.
La date se mettra automatiquement dans la première cellule de la première feuille Excel de ton classeur après chaque modif, sans que tu fasses autre chose.
;o)
polux
Comment fait-on pour que dans une cellule d'excel s'affiche la date de modification du classeur. J'ai vu qu'il fallait mettre ce programme dans this workbook:
Dim modif As Boolean
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If modif = True Then
Sheets("Feuil1").Range("A1").Value = "Dernière Révision le " & Format(Date, "dd/mm/yyyy")
End If
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
modif = True
End Sub
Mais comment on fait dans VBA et comment ensuite on fait pour que ça marche dans le classeur.
Merci par avance
Configuration: Windows XP
Firefox 2.0.0.14
Bonjour,
Comment fait-on pour que dans une cellule d'excel s'affiche la date de modification du classeur. J'ai vu qu'il fallait mettre ce programme dans this workbook:
Dim modif As Boolean
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If modif = True Then
Sheets("Feuil1").Range("A1").Value = "Dernière Révision le " & Format(Date, "dd/mm/yyyy")
End If
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
modif = True
End Sub
Mais comment on fait dans VBA et comment ensuite on fait pour que ça marche dans le classeur.
Merci par avance
Configuration: Windows XP
Firefox 2.0.0.14