Discussion :

[john_mtp]

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

[pgz]

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

[john_mtp]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Le problème vient je pense de ma variable Dat

à la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Serait correct.

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