Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Word Variable de bloc with non définie

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
R

risch_cyril

XLDnaute Nouveau
Bonjour,

J'ai un code placé dans normal qui me dit variable de bloc with non définie à l'execution et voici le code quelqu'un aurait t-il une solution svp ?
VB: 
Sub rapport_provisoire_entete2()

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader


    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "RAPPORT N°: (<*>)"
        .Replacement.Text = "RAPPORT N°: PROVISOIRE"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
    
    
End Sub
 
Trier par date Trier par votes
Bonsoir

Cela me rappelle quelque chose...🙄
(Tu as changé de pseudo ?)

Word - Erreur d'exécution

Bonjour à tous j'ai une erreur lors de l'exécution de ce code quelqu'un sais til pourquoi ? Voir code et capture ci contre Sub rapport_provisoire_entete() Dim Prgrf As Paragraph Dim reg As New VBScript_RegExp_55.RegExp, Match As VBScript_RegExp_55.Match Dim Matches As...
www.excel-downloads.com
Dois-je t'appeler Marine ou Cyril ?
 
Vote positif 0 Vote négatif
Re

Test OK sur Word 2013 (code à peine modifié issu de l'enregistreur de macros)
Code: 
Sub Test_OK()
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "([0-9]{3})"
        .Replacement.Text = "PROVISOIRE"
        .Forward = True
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Ici dans mon exemple, les numéros de rapport sont des nombres de 3 chiffres.
 
Vote positif 0 Vote négatif
Bonjour,

Du coup ça pourrait peut-être devenir :
VB: 
Sub Test_OK()
    With Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = "([0-9]{3})"
        .Replacement.Text = "PROVISOIRE"
        .Forward = True
        .MatchWildcards = True
        .Execute Replace:=wdReplaceAll
    End With
End Sub
 
Vote positif 0 Vote négatif
Bonsoir Obiwan

Oui, c'est vrai, il faut toujours éviter les Select
Mais je ne suis qu'un petit padawan 😉

Mais padawan ou pas, je me méfie des demandeurs à double-pseudo
(surtout quand ils font pas de feedback aux propositions faites dans leur discussions)
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Résolu(e)
Microsoft 365 Variable objet ou variable de bloc with non définie
2
Réponses
25
Affichages
2 K
patricktoulon
W
  • Question Question
Microsoft 365 erreur 91 variable objet ou bloc with non définie
Réponses
0
Affichages
814
wasaru
W
  • Résolu(e)
XL 2010 Erreur avec une variable non ou mal définie
Réponses
10
Affichages
905
Eric C
A
  • Question Question
Word [VB Word] Remplacer une chaîne dans une chaîne recherchée sans changer la mise en forme
Réponses
1
Affichages
759
fanch55
M
  • Résolu(e)
XL 2019 Erreur d'exécution 91, Variable Objet ou variable de bloc With non définie
Réponses
5
Affichages
3 K
MilkaQuercy
M
A
  • Résolu(e)
XL 2016 Macro Word pour remplacer une chaîne dans une chaîne recherchée sans changer la mise en forme
Réponses
2
Affichages
1 K
Axelair
A
A
  • Question Question
Autres Macro Excel pour modifier une valeur dans une recherche
Réponses
1
Affichages
869
Bernard_XLD
Z
  • Résolu(e)
XL 2013 erreur d’exécution 91 "variable de bloc With non définie"
2
Réponses
22
Affichages
3 K
xUpsilon
M
  • Question Question
XL 2010 Variable objet ou variable de bloc with non définie
Réponses
1
Affichages
3 K
Hasco
M
  • Question Question
XL 2016 erreur 424
2
Réponses
22
Affichages
3 K
MURET31
M
S
  • Question Question
variable bloc with non definie
Réponses
4
Affichages
1 K
sasha
S
  • Question Question
XL 2013 Bizarre Erreur de compilation: variable non définie RESOLU
Réponses
11
Affichages
2 K
tactic6
B
  • Question Question
Variable de bloc With non définie
Réponses
7
Affichages
1 K
Dranreb
B
  • Question Question
Mise à jour des liens Hypertexte de documents Word transformés en PDF
Réponses
1
Affichages
1 K
Hasco
S
  • Question Question
Word formattage italique et insertion lien hypertexte dans W2007
Réponses
0
Affichages
1 K
stephsteph
S
R
  • Question Question
erreur d'exécution 91 variable objet ou variable de bloc with non définie
Réponses
4
Affichages
2 K
CPk
C
B
  • Question Question
Export excel to word - VBA
Réponses
6
Affichages
4 K
Rep
R
P
  • Question Question
Erreur 91 Variable objet ou variable de bloc with non définie.
Réponses
8
Affichages
12 K
PSCLDEV
P
M
  • Question Question
Variable objet non définie
Réponses
4
Affichages
540
mfb
M
  • Question Question
Excel / Outlook / Création de tâches / Variable non définie
Réponses
9
Affichages
2 K
MJ13
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…