Bonjour,
Je travaille sur un classeur qui contient plusieurs feuilles.
Dans ma première feuille je voudrais automatiser l'insertion de cellules (1 par onglet) en bouclant sur les onglets dont la formule serait ='Nom de l'onglet'!A$1.
Pour arriver à mes fins je suis passé par la fonction Replace
.Range("A" & i).Formula = Replace("='¤'!A$1", "¤", Ws.Name)
Problème : Mon code fonctionne très bien sauf si un onglet possède une apostrophe dans le nom...
Dans ce cas, j'ai une erreur 1004.
J'ai cru comprendre que l'apostrophe posait des problèmes mais je ne trouve pas de solution.
Comment contourner ce problème ?
Ci-dessous mon code simplifié.
Merci beaucoup,
Waxscud
Sub Insert_Stats()
Application.ScreenUpdating = False
Dim Ws As Worksheet
Dim i As Integer
i = 1
For Each Ws In Worksheets
With Worksheets("DATA")
.Rows(i).Insert Shift:=xlDown
.Range("A" & i).Formula = Replace("='¤'!A$1", "¤", Ws.Name)
i = i + 1
End With
Next Ws
End Sub