Bonjour à tous,

Je débute en VBA Excel et j'ai un problème pour récupérer la valeur d'une feuille à créer .

Voici le bout de code que j'ai pu faire

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Function Feuill_Pt (ByVal NameSheet As String) As Boolean
Dim n As Integer
 
Sheets.Add: ActiveSheet.Name = NameSheet
 
n = 1 'Affecter valeur 1 à n
Sheets(NameSheet).Select  'X=Le nom de ta feuille
Sheets(NameSheet).Move Before:=Sheets(n)   'Déplace la feuille X avant la dernière feuille comptée.
 
Worksheets(NameSheet).Activate
 
End Function
 
 
Function IsExist(ByVal NameSheet As String) As Boolean
Dim oSheet As Worksheet
 
For Each oSheet In ThisWorkbook.Sheets
    If oSheet.Name = NameSheet Then IsExist = True: Exit For
Next oSheet
 
End Function
 
Private Sub BUT3_Click()
Filename = Application.GetOpenFilename("Fichier texte (*.txt),*.txt")
FORM_DAT.Show
If Not IsExist(Dat) Then Feuill_Pt (Dat)
 
End Sub
 
Private Sub FBUT1_Click()
Dat = TBOX1.Value
FORM_DAT.Hide
Unload Me
End Sub
Le but étant de sélectionner un fichier texte à traiter puis d'importer les résultats dans une nouvelle feuille sous Excel que je nommerai avec la variable dat. La variable correspond à la valeur d'un textbox que je récupère à partir d'une form. Mais j'ai chaque l'erreur 1004 et le code plante sur la ligne

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Sheets.Add: ActiveSheet.Name = NameSheet
Dans la fonction Feuill_Pt en début de mon code.

Pourquoi ?
Je ne comprends pas d'ou vient l'erreur.

Merci par avance de votre aide.
John