Publicité
+ Répondre à la discussion
Affichage des résultats 1 à 7 sur 7
  1. #1
    Invité de passage
    Inscrit en
    janvier 2008
    Messages
    2
    Détails du profil
    Informations forums :
    Inscription : janvier 2008
    Messages : 2
    Points : 1
    Points
    1

    Par défaut 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.

  2. #2
    Membre éprouvé
    Inscrit en
    octobre 2004
    Messages
    453
    Détails du profil
    Informations forums :
    Inscription : octobre 2004
    Messages : 453
    Points : 454
    Points
    454

    Par défaut

    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:

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

  3. #3
    Membre Expert
    Inscrit en
    novembre 2006
    Messages
    1 530
    Détails du profil
    Informations personnelles :
    Âge : 51

    Informations forums :
    Inscription : novembre 2006
    Messages : 1 530
    Points : 1 494
    Points
    1 494

    Par défaut

    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

  4. #4
    Membre expérimenté Avatar de Bigalo
    Profil pro
    Inscrit en
    décembre 2007
    Messages
    445
    Détails du profil
    Informations personnelles :
    Localisation : France, Paris (Île de France)

    Informations forums :
    Inscription : décembre 2007
    Messages : 445
    Points : 549
    Points
    549

    Par défaut

    Bonsoir,

    Citation Envoyé par riridu04 Voir le message
    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,
    Michel Gaboly
    Développeur Excel et VBA


    Pas de question technique par MP, je n’y répondrai pas, utilisez le forum - Merci
    Pensez à ajouter le tag

  5. #5
    Membre éprouvé
    Inscrit en
    janvier 2008
    Messages
    448
    Détails du profil
    Informations forums :
    Inscription : janvier 2008
    Messages : 448
    Points : 407
    Points
    407

    Par défaut

    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

  6. #6
    Rédacteur/Modérateur

    Avatar de Philippe JOCHMANS
    Homme Profil pro Philippe JOCHMANS
    Développeur informatique
    Inscrit en
    mai 2005
    Messages
    18 843
    Détails du profil
    Informations personnelles :
    Nom : Homme Philippe JOCHMANS
    Âge : 46
    Localisation : France, Loir et Cher (Centre)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Communication - Médias

    Informations forums :
    Inscription : mai 2005
    Messages : 18 843
    Points : 42 833
    Points
    42 833

    Par défaut

    Bonjour

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

    Starec
    Détaillez vos questions, sinon vous aurez des réponses erronées et vous irez tout droit dans le et lisez les règles sinon
    Vous pouvez consulter mes articles sur Access et PowerPoint

    Si vous avez des c'est peut-être moi, car vous postez un fichier en pièce jointe sans explications.

  7. #7
    Invité de passage
    Inscrit en
    janvier 2008
    Messages
    2
    Détails du profil
    Informations forums :
    Inscription : janvier 2008
    Messages : 2
    Points : 1
    Points
    1

    Par défaut Remerciement

    Merci à tous pour votre aide.

    Si besoin est, je ne manquerais pas de revenir.

    riridu04

+ Répondre à la discussion
Cette discussion est résolue.

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •