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
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
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
Partager