Bonjour à tous voici mon code
Le problème est que lorsque le nom de la colonne est supérieur à 31 caractères. La macro refuse de créer le nouvel onglet. Je voudrais donc savoir comment faire. Je vous remercie par avance pour votre aide.
Code:
Sub creerFeuilles()
Dim curCell As Range
Set curCell = ThisWorkbook.Sheets("Feuil4").Range("F2")
While curCell.Value <> vbNullString
ThisWorkbook.Sheets.Add After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name = curCell.Value, 31
ThisWorkbook.Sheets("Feuil4").Hyperlinks.Add Anchor:=curCell.Offset(0, 11), Address:="", SubAddress:= _
"'" & ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name & "'!A1", TextToDisplay:="Acces Feuille Société"
Set curCell = curCell.Offset(1, 0)
Wend
ThisWorkbook.Sheets("Feuil4").Select
End Sub