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 70,6% France
Chine 5,5% Chine
Canada 5,0% Canada

Total:

163

Pays
018500418
Aujourd'hui: 186
Hier: 463
Cette semaine: 1.061
Semaine dernière: 2.372
Ce mois: 3.433