Discussion :

[riridu04]

Bonjour,

J'essaye d'utiliser la condition suivante :

Code :

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

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.

[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 :

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

UserForm.Show

UserForm doit être remplacé par le nom de code de ton UserForm.

[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 :

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

1
2
3
 
Private Sub Workbook_Open
End Sub

[Bigalo]

Bonsoir,

Code :

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

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 :

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

[Abed_H]

Bonsoir

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

Code :

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

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 :

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

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

[Invité]

Bonjour

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

Starec

[riridu04]

Merci à tous pour votre aide.

Si besoin est, je ne manquerais pas de revenir.

riridu04