Séparateur de liste sous VBA

Version imprimable

08/01/2008, 23h06
riridu04

Séparateur de liste sous VBA
Bonjour,

J'essaye d'utiliser la condition suivante :
Code:

1 2 If not fso.folderexists (path) then
Le problème est que je ne peux pas faire goto .....

Message d'erreur : "attendu : séparateur de liste"

Comment règler ce problème ?

Deuxième question : lorsque j'ouvre mon fichier excel j'aimerais que ma "userform" s'ouvre automatiquement pour que je puisse rentrer mes données. Comment fait-on ?

Merci beaucoup, d'avance.
08/01/2008, 23h15
Singular

Je ne connais pas la fonction FolderExists donc je ne peux pas t'aider là-dessus. Au fait, quelle version d'Excel utilises-tu?

Pour ce qui est d'afficher le UserForm, il faut que tu mettes cette ligne de code dans l'évenement Workbook_Open du module ThisWorkbook:

Code:

UserForm.Show

UserForm doit être remplacé par le nom de code de ton UserForm.
08/01/2008, 23h19
alsimbad
difficile de répondre, il y a plein de possibilite
peut etre que ta fonction demande plusieurs arguments, quoique a mon avis on aurais un "argument non facultatif"
essaye plutot un thisworbook.path (ou bien le chemin qui t'interresse)
et quand a l'ouverture auto, regarde du coté des macro evenementielle.
Code:

1 2 3 Private Sub Workbook_Open End Sub

Bonsoir,

Citation:

Envoyé par riridu04

Code:

1
2
 
If not fso.folderexists (path) then

Le problème est que je ne peux pas faire goto ...

fso, c’est du VBScript, non ?

Personnellement, je ne connais pas du tout VbScript. Est-il possible de l’articuler avec VBA ? Je l’ignore, mais tu peux tout faire en VBA :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Function DossierExiste(NomDossier As String) As Boolean
Dim Dossier$
    Sep = Application.PathSeparator
    Chemin = ThisWorkbook.Path & Sep
    Dossier = Dir(Chemin, vbDirectory)
        Do While Dossier <> ""
            ' Ignore le dossier courant et le dossier contenant le dossier courant.
                If Dossier <> "." And Dossier <> ".." Then
                        If (GetAttr(Chemin & Dossier) And vbDirectory) = vbDirectory Then
                            If Dossier = NomDossier Then
                                DossierExiste = True
                                Exit Do
                            End If
                        End If
                End If
            Dossier = Dir
        Loop
End Function
 
Sub Test()
    MsgBox DossierExiste("DossierTest")
End Sub

Quant au GoTo, c’est à éviter autant que possible : cela donne du code peu lisible, et difficile à débugger :(

Cordialement,

Bonsoir

Créer un répertoire s'il n'éxisite pas
Code:

1 2 3 4 5 6 7 8 9 Sub CréerFolder() Dim Fs As Object Set Fs = CreateObject("Scripting.FileSystemObject") If Not Fs.FolderExists("C:\Rep") Then Fs.CreateFolder ("C:\Rep") Else: MsgBox _ "Répertoire existe déja...!" End If End Sub
pour la 2ème Question

dans un module standard insert ce code
Code:

1 2 3 Sub Auto_Open() UserForm1.Show end sub
ferme le fichier bien sur tu le sauvegarde et réouvre le à nouveau tu constatrai ton UserForm affichée.

Abed_H:D

09/01/2008, 04h33
Invité

Bonjour

As-tu lu cet article ?
http://warin.developpez.com/access/fichiers/

Starec
12/01/2008, 22h54
riridu04

Remerciement

Merci à tous pour votre aide.

Si besoin est, je ne manquerais pas de revenir.

riridu04