Problème Récupérer Valeur d'un TextBox

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:

---

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:

---

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

Bonjour.

La ligne correspond à 2 instructions. Laquelle lève l'erreur?

Si c'est la deuxième, c'est probablement qu'il existe déjà une feuille du même nom.

Cordialement,

PGZ

Le problème ne vient pas de là je pense car j'utilise cette fonction autrepart et je n'ai pas de problème mais avec un code du type

Code:

---

If Not IsExist("Stations") Then Feuill_Pt ("Stations")

---

Le problème vient je pense de ma variable Dat

à la ligne

Code:

---

1 2	FORM_DAT.Show If Not IsExist(Dat) Then Feuill_Pt (Dat)

---

Je crois qu'il affecte la valeur "" à Dat mais pourquoi ???

Merci encore de ton aide.

Bonjour,
Effectivement, l'erreur doit venir de là If Not IsExist(Dat) Then Feuill_Pt (Dat).
Dans ton code, Feuill_Pt est une fonction booléenne que tu traites sur cette ligne comme une méthode.

Code:

---

If Not IsExist(Dat) Then MsgBox Feuill_Pt(Dat)

---

ou

Code:

---

If Not IsExist(Dat) Then maVariable = Feuill_Pt(Dat)

---

Serait correct.

Cela suppose évidemment que ta variable Dat contienne bien un string.