Recherche

 

Public Sub ChercheEtStockeLeSignetToto()
Dim MaVariable As String, MonSignet As String
MonSignet = "toto"
If ActiveDocument.Bookmarks.Exists(MonSignet) Then
MaVariable = ActiveDocument.Bookmarks(MonSignet).Range.Text
End If
End Sub

Statistiques

France 68,0% France
Chine 7,8% Chine
États-Unis d'Amérique 4,7% États-Unis d'Amérique

Total:

178

Pays
018531160
Aujourd'hui: 104
Hier: 1.060
Cette semaine: 1.164
Semaine dernière: 2.729
Ce mois: 104