Bonjour à tous et à toutes

J'ai un soucis dans mon code vb sur la fonction replace

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
If InStr(1, PPTDoc.Slides(i).Shapes(j).TextFrame.TextRange.Text, Text_search, vbTextCompare) <> 0 Then
                MsgBox "C'est bon j'ai trouvé!!!"
                Replace(PPTDoc.Slides(i).Shapes(j).TextFrame.TextRange.Text, Dlast_old_month, Dlast_last_month)
            End If
Excel me met en rouge la fonction Replace et j'ai un message d'erreur qui me dit "erreur de compilation attendu : ="

Alors j'ai testé ça
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Replace(PPTDoc.Slides(i).Shapes(j).TextFrame.TextRange.Text, Dlast_old_month, Dlast_last_month) = X
Et là plus de rouge mais impossible de lancer ma macro car un autre message d'erreur apparait...

Pour moi je pense qu'il y a un soucis au niveau de la fonction replace qui pour moi est justement une fonction prédéfinie de VB...

Je ne sais pas quoi faire... help me please