IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

[FSO] Permission refusée ?


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éprouvé Avatar de Commodore
    Homme Profil pro
    Business manager
    Inscrit en
    Février 2004
    Messages
    599
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 41
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Business manager

    Informations forums :
    Inscription : Février 2004
    Messages : 599
    Par défaut [FSO] Permission refusée ?
    Bonsoir,

    Pendant une macro je tente de copier un fichier dans un répertoire nouvellement créé mais j'obtiens le msg d'erreur "Permission refusée"

    Comment se fait-ce ?

    Voici mon code, en gras la ligne où se produit l'erreur.

    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
    36
    37
    38
    39
    40
    41
    42
    43
    44
    Private Sub CommandButton2_Click() 'MEI quotidien
    'recherche du dossier du mois en cours
    ' si trouvé => recherche du dernier fichier en date
    ' sinon créer dossier nouveau mois et dupliquer le fichier 00
    Dim fso As New FileSystemObject
    Dim fich As File
    Dim Rep As Folder
    Dim subRep As Folder
    Dim Wk As Variant
    Dim TabFich() As String
    Dim resp_crea As String
    Dim resp_dossier As String
    Dim created_folder_path As String
    
    'On Error Resume Next
    
    Chemin = "I:\Achat_Database\INVENTOR\Récap\"
        
        Set Rep = fso.GetFolder(Chemin)
        
        resp_dossier = InputBox("Entrez le dossier du MEI: ", _
                            "Entrez paramètre", Format(Date, "mm-yyyy"))
        
        For Each subRep In Rep.SubFolders
            If resp_dossier = subRep.Name Then GoTo suite
        Next
        'créer le dossier si inexistant ?
        resp_crea = MsgBox("Le dossier n'existe pas. Voulez-vous le créer ?", vbYesNo, "Création de dossier")
        If resp_crea = vbYes Then
            fso.CreateFolder (Chemin & resp_dossier)
            created_folder_path = Chemin & resp_dossier
            resp_crea_file = InputBox("Nom du fichier initial :", "Entrez paramètre", Chemin & "MEI_" & Format(Date, "yymm") & "00_prep.xls")
            'permission refusée ???????????
            Set Rep = Nothing
            Set subRep = Nothing
            fso.CopyFile resp_crea_file, created_folder_path
        End If
        
    suite:
    
    '[...]
    
    fin:
    End Sub

  2. #2
    Expert confirmé Avatar de jfontaine
    Homme Profil pro
    Contrôleur de Gestion
    Inscrit en
    Juin 2006
    Messages
    4 756
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 51
    Localisation : France, Sarthe (Pays de la Loire)

    Informations professionnelles :
    Activité : Contrôleur de Gestion

    Informations forums :
    Inscription : Juin 2006
    Messages : 4 756
    Par défaut
    Regardes au niveau des droits sur ce nouveau repertoire

  3. #3
    Modérateur
    Avatar de AlainTech
    Homme Profil pro
    Consultant informatique
    Inscrit en
    Mai 2005
    Messages
    4 235
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : Belgique

    Informations professionnelles :
    Activité : Consultant informatique
    Secteur : Finance

    Informations forums :
    Inscription : Mai 2005
    Messages : 4 235
    N'oubliez pas de cliquer sur quand vous avez obtenu ou trouvé vous-même la réponse à votre question.
    Si vous trouvez seul, pensez à poster votre solution. Elle peut servir à d'autres!
    Pensez aussi à voter pour les réponses qui vous ont aidés.
    ------------
    Je dois beaucoup de mes connaissances à mes erreurs!

  4. #4
    Invité
    Invité(e)
    Par défaut
    Bonjour

    Je ne trouve pas dans ton code la déclaration de De plus dans ton InputBox tu rentres que le nom du fichier, où son chemin avec le nom ? Car dans CopyFile il faut que tu rentres chemin + fichier.

    Starec

  5. #5
    Membre éprouvé Avatar de Commodore
    Homme Profil pro
    Business manager
    Inscrit en
    Février 2004
    Messages
    599
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 41
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Business manager

    Informations forums :
    Inscription : Février 2004
    Messages : 599
    Par défaut
    Bonjour et merci pour vos réponses si rapides.

    Starec> Les paramètres sont bien de type "PATH+FILE", "PATH" (l'InputBox a une valeur par défaut qui évite la saisie complète du path)
    Starec> je vais déclarer la variable... c'est un fâcheux oubli

    AlainTech> Quelle serait l'utilité d'un DoEvents ici ??

    jfontaine> J'en discutais avec un ami hier soir, il me disait la même chose.
    Je vais d'abord fouiner de ce côté...

    Encore merci pour vos conseils
    Je vous tiens informés de l'évolution du pb...

  6. #6
    Modérateur
    Avatar de AlainTech
    Homme Profil pro
    Consultant informatique
    Inscrit en
    Mai 2005
    Messages
    4 235
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : Belgique

    Informations professionnelles :
    Activité : Consultant informatique
    Secteur : Finance

    Informations forums :
    Inscription : Mai 2005
    Messages : 4 235
    Par défaut
    Citation Envoyé par Commodore_Psykopate Voir le message
    AlainTech> Quelle serait l'utilité d'un DoEvents ici ??
    Placé après la création du répertoire, si le répertoire n'a pas fini d'être créé, il laissera au système le temps de terminer cette création.
    N'oubliez pas de cliquer sur quand vous avez obtenu ou trouvé vous-même la réponse à votre question.
    Si vous trouvez seul, pensez à poster votre solution. Elle peut servir à d'autres!
    Pensez aussi à voter pour les réponses qui vous ont aidés.
    ------------
    Je dois beaucoup de mes connaissances à mes erreurs!

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

Discussions similaires

  1. document.referrer permission refusée
    Par kahuet dans le forum Général JavaScript
    Réponses: 18
    Dernier message: 14/04/2006, 10h00
  2. VB6-Err70 permission refusée sur FileCopy d'une DB ADO
    Par JM Cahard dans le forum VB 6 et antérieur
    Réponses: 4
    Dernier message: 03/01/2006, 19h33
  3. tester le titre d'une fenêtre retourne Permission refusée
    Par titouille dans le forum Général JavaScript
    Réponses: 9
    Dernier message: 16/12/2005, 16h28
  4. Permission refusée (...encore)
    Par KalHadj-Nikov dans le forum ASP
    Réponses: 11
    Dernier message: 27/04/2005, 09h20
  5. Réponses: 8
    Dernier message: 14/11/2003, 22h51

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo