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

VBA Access Discussion :

Utilisation de CreateObject("Scripting.FileSystemObject") [AC-97]


Sujet :

VBA Access

  1. #1
    Membre confirmé
    Homme Profil pro
    Ressources humaines
    Inscrit en
    Mars 2015
    Messages
    134
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Ressources humaines

    Informations forums :
    Inscription : Mars 2015
    Messages : 134
    Par défaut Utilisation de CreateObject("Scripting.FileSystemObject")
    Bonjour à tous !

    Je n'arrive pas à régler un problème lié au changement de nom d'un fichier PdF avant son envoi par email. Je vais essayer d'être clair ...

    Dans ce code, j'imprime l'état 'AR Auto' dans un dossier Temp, puis je le copie en changeant le nom en y incluant la variable 'C'.
    La boucle DoWhile semble indispensable pour attendre la création du fichier (?) :

    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
    ' -----------------------------------------------------
     
    imprim
     
    DoCmd.OpenReport "AR Auto"
     
    Dim COM As Integer
     
        Do While DIR("D:\Gescom\Temp\AR Auto.pdf") = ""
        Loop
     
    COM = 0
     
    Do While COM = 50000000000000#
    COM = COM + 1
    Loop
     
    Dim FSO
    Set FSO = CreateObject("Scripting.FileSystemObject")
    FSO.CopyFile "D:\Temp\AR Auto.pdf", "D:\Temp\AR " & C & ".pdf"
    Set FSO = Nothing
     
    ' -----------------------------------------------------
    La partie qui suit envoie un mail avec le pdf créé : ça marche bien


    Puis le code suivant supprime les 2 fichiers pdf créés : "AR Auto.pdf" et "AR " & C & ".pdf" :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    Kill ("D:\Temp\AR Auto.pdf")
    Kill ("D:\Temp\AR " & C & ".pdf")
    Ca me semblait logique .... Sauf que si 'AR Auto.pdf' n'existe plus (en relançant le code après qu'il ait été supprimé), j'ai l'erreur suivante : Erreur d'exécution 70 - Permission refusée

    Si je ne supprime pas 'AR Auto.pdf' et que je le laisse, ça marche parfaitement : il est écrasé par le nouveau sans aucune erreur :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    ' Kill ("D:\Temp\AR Auto.pdf")
    Kill ("D:\Temp\AR " & C & ".pdf")
    Je pourrais me contenter de cela, mais ce n'est pas propre, et je peux avoir le doute du contenu de ce fichier pdf créé et surtout, j'aimerais comprendre ...

    Je précise que l'utilisation de la fonction 'Name' et l'erreur 75 systématique m'ont fait tenter FileSystemObject

    1000 Mercis d'avance pour votre aide.

  2. #2
    Membre émérite
    Homme Profil pro
    Regisseur
    Inscrit en
    Octobre 2006
    Messages
    475
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 65
    Localisation : France, Seine Maritime (Haute Normandie)

    Informations professionnelles :
    Activité : Regisseur
    Secteur : Arts - Culture

    Informations forums :
    Inscription : Octobre 2006
    Messages : 475
    Par défaut
    Bonjour Fildelyon.

    Au plus simple, tu considères 'C' comme une chaine, donc il faut la déclarer comme tel:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    Dim C as string
    C = "C"
    Dans ton code:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    FSO.CopyFile "D:\Temp\AR Auto.pdf", "D:\Temp\AR " & C & ".pdf"
    'qui signifie
    FSO.CopyFile chaine-A, chaine_A & chaine_B & ".pdf"
    'mais du coup, il manque les guillemets autour de C
    sinon cela donne:
    "D:\Temp\AR "C".pdf"
    tu peux aussi écrire:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    FSO.CopyFile "D:\Temp\AR Auto.pdf", "D:\Temp\AR " & "C" & ".pdf"
    Cdlt

  3. #3
    Membre confirmé
    Homme Profil pro
    Ressources humaines
    Inscrit en
    Mars 2015
    Messages
    134
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Ressources humaines

    Informations forums :
    Inscription : Mars 2015
    Messages : 134
    Par défaut
    Bonjour Thierry et merci de ton aide.

    J'ai pris des raccourcis ... C est bien une variable que je déclare avant

    et à qui j'affecte un numéro (champ issu d'un formulaire) :

    Au final, mon fichier pdf de sortie ressemble à quelque chose comme ça : 'AR 99999.pdf'

    Du coup, sauf erreur, mon code est bon. d'ailleurs avec la présence du fichier pdf 'AR Auto', ça fonctionne bien ...

    Je me trompe ?

  4. #4
    Membre émérite
    Homme Profil pro
    Regisseur
    Inscrit en
    Octobre 2006
    Messages
    475
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 65
    Localisation : France, Seine Maritime (Haute Normandie)

    Informations professionnelles :
    Activité : Regisseur
    Secteur : Arts - Culture

    Informations forums :
    Inscription : Octobre 2006
    Messages : 475
    Par défaut
    Apparemment, tu n'as pas de problème de droit d'accès à ce dossier,. A vérifier, si ce n'est pas toi qui a créer "D:\Temp\AR Auto.pdf", s'il n'y a pas de droits particuliers dessus,
    si il n'est pas ouvert sur ton pc ou réseau ?

    Tu peux aussi faire une gestion d'erreur:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    'sous la déclaration des variables
    On Error GoTo GestionErreur
     
    'ton code
     
      GestionErreur:
      select case err.number
      case 70
      resume next
      end select
     End Sub
     
    End If
    Cdlt

  5. #5
    Membre confirmé
    Homme Profil pro
    Ressources humaines
    Inscrit en
    Mars 2015
    Messages
    134
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Ressources humaines

    Informations forums :
    Inscription : Mars 2015
    Messages : 134
    Par défaut
    Merci pour ta réponse.

    Citation Envoyé par Thierry_PALLIER Voir le message
    Apparemment, tu n'as pas de problème de droit d'accès à ce dossier,. A vérifier, si ce n'est pas toi qui a créer "D:\Temp\AR Auto.pdf", s'il n'y a pas de droits particuliers dessus,
    si il n'est pas ouvert sur ton pc ou réseau ?
    C'est l'application qui créé en temps réel AR Auto.pdf, personne d'autre ne l'utilise. En fait, il n'y a pas de d'erreur lorsque le code écrase le vieux fichier. quand il le créé, j'ai l'erreur 70 ...

    Que fait cette gestion d'erreur ? Elle évite le message d'erreur, le code continue ? c'est bien ça ?

    Merci

  6. #6
    Membre émérite
    Homme Profil pro
    Regisseur
    Inscrit en
    Octobre 2006
    Messages
    475
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 65
    Localisation : France, Seine Maritime (Haute Normandie)

    Informations professionnelles :
    Activité : Regisseur
    Secteur : Arts - Culture

    Informations forums :
    Inscription : Octobre 2006
    Messages : 475
    Par défaut
    Oui, c'est ça.
    Le "Resume Next" évite le message, et surtout, le programme reprend juste après la ligne qui a déclenchée l'erreur.
    Cdlt

  7. #7
    Membre confirmé
    Homme Profil pro
    Ressources humaines
    Inscrit en
    Mars 2015
    Messages
    134
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Ressources humaines

    Informations forums :
    Inscription : Mars 2015
    Messages : 134
    Par défaut
    Merci Thierry

    > Je note pour une prochaine fois, mais la gestion de l'erreur ne me sert à rien puisque justement, j'ai besoin de ce pdf ... Si je saute sa création, je ne l'ai pas

    > Mon problème reste entier : je viens de m'apercevoir que le fichier pdf n'est en fait pas écraser tout le temps : Je me retrouve avec l'ancien parfois (je n'arrive pas à répéter systématiquement ....).

    Du coup, la PJ qui part avec le mail n'est parfois pas celle du bon enregistrement.

    Je renouvelle donc ma demande et votre aide. Manque-t-il des infos pour y voir plus clair ?

    Eventuellemment, une autre méthode à tester ?

    Merci

  8. #8
    Membre confirmé
    Homme Profil pro
    Ressources humaines
    Inscrit en
    Mars 2015
    Messages
    134
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Ressources humaines

    Informations forums :
    Inscription : Mars 2015
    Messages : 134
    Par défaut
    Bonsoir

    Je reprends les bases de ce que je veux faire, en fait, pour recevoir votre aide et vos suggestions ...

    Sauf erreur, Access 97 = VB5 pas VB6

    Je génère un état 'AR Auto.pdf' dans un dossier D:\temp

    Puis je souhaite :

    1) Changer le nom de cet état en y incluant une variable C (un numéro chrono), pour créer un fichier 'AR 9999.pdf' par exemple (9999 est un exemple du contenu de la variable C)
    2) Envoyer ce fichier créé par email via CDO
    3) supprimer le ou les fichiers pdf créés dans le dossier d:\temp

    Merci et bonne soirée

  9. #9
    Membre émérite
    Homme Profil pro
    Regisseur
    Inscrit en
    Octobre 2006
    Messages
    475
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 65
    Localisation : France, Seine Maritime (Haute Normandie)

    Informations professionnelles :
    Activité : Regisseur
    Secteur : Arts - Culture

    Informations forums :
    Inscription : Octobre 2006
    Messages : 475
    Par défaut
    Bonjour Fildelyon.

    Dans ton code, on ne voit pas la phase de création de ton fichier 'AR Auto.pdf'
    Est-ce qu'il est bien fermé au moment du Kill ?
    Sinon tu peux aussi via fso :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    Dim oFSO As Scripting.FileSystemObject
    Set oFSO = New Scripting.FileSystemObject
    oFSO.DeleteFile]("D:\Temp\AR Auto.pdf")
    Set oFSO = Nothing
    A+

  10. #10
    Membre confirmé
    Homme Profil pro
    Ressources humaines
    Inscrit en
    Mars 2015
    Messages
    134
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Ressources humaines

    Informations forums :
    Inscription : Mars 2015
    Messages : 134
    Par défaut
    Bonjour Thierry et merci

    Voici la totalité du code.

    J'arrive bien à killer 'AR AUto.pdf'. Mon problème, c'est que lorsqu'il n'est plus présent dans le dossier temp, j'ai l'erreur 70 qui apparait au moment de copier le fichier. en le renommant.
    Si il y a déjà un 'AR Auto.pdf' présent, pas d'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
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    89
    90
    91
    92
    93
    94
    95
    96
    97
    98
    99
    100
    101
    102
    103
    104
    105
    106
    107
    108
    109
    110
    111
    112
    113
    114
    115
    116
    117
    118
    119
    120
    121
    122
    123
    124
    125
    126
    127
    128
    Private Sub ARCDE_Click()
     
    ' -----------------------------------------------------
    ' ENVOI AR par EMAIL VIA CDO
    ' -----------------------------------------------------
    ' Récupération variables
    ' -----------------------------------------------------
     
    Dim A, B, C, D, e, F, AL, CL, VL, ZA As String
    Dim G, H, I As Currency
    Dim AA, AB, AC, AD, AE, af, AG, ZZ As String
     
     
    A = Forms!CDcli!MAIL
    B = Forms!CDcli!NUMCLI
    C = Forms!CDcli!ARNO
    D = Forms!CDcli!DATECDE
    e = Forms!CDcli!CDREG
    F = Forms!CDcli!DELAICLI
    G = Format(Forms!CDcli!TOTALTTC, "0.00")
     
    AL = Forms!CDcli![SOCIETE-LIV]
    CL = Forms!CDcli![CD-LIV]
    VL = Forms!CDcli![VILLE-LIV]
     
     
    If IsNull(A) = True Then MsgBox (Chr(13) & "Impossible d'envoyer le Mail : Il n'y a pas d'adresse email dans la case correspondante" & Chr(13) & Chr(13) & "Veuillez corriger et recommencer"): Exit Sub
     
    If IsNull(F) = True Then MsgBox (Chr(13) & "Impossible d'envoyer le Mail : Le Délai n'est pas renseigné" & Chr(13) & Chr(13) & "Veuillez corriger et recommencer"): Exit Sub
     
    If MsgBox(Chr(13) & "Confirmez l'envoi de l'AR de Commande rectificatif au client ?", vbYesNo, "Demande de confirmation") = vbNo Then Exit Sub
     
    ' -----------------------------------------------------
    ' Generation fichier pdf et transformation
    ' -----------------------------------------------------
     
    imprim
     
    DoCmd.OpenReport "AR Auto"
     
    Dim COM As Integer
     
     
        Do While DIR("D:\Gescom\Temp\AR Auto.pdf") = ""
        Loop
     
    COM = 0
    Do While COM = 500000000000
    COM = COM + 1
    Loop
     
     
    ' -----------------------------------------------------
    ' RENOMMAGE DU FICHIER EN LE COPIANT
    ' -----------------------------------------------------
     
    Dim FSO
    Set FSO = CreateObject("Scripting.FileSystemObject")
    FSO.CopyFile "D:\Gescom\Temp\AR Auto.pdf", "D:\Gescom\Temp\AR " & C & ".pdf"
    Set FSO = Nothing
     
     
    ' -----------------------------------------------------
    ' Constitution du corps du mail
    ' -----------------------------------------------------
     
    AA = "*** Ceci est un message Automatique ***" & "<br/><br/>" & "Madame, Monsieur,<br/><br/>Ce message est destiné à vous informer d'une modification du délai de livraison de votre commande rappelée ci-dessous :<br/><br/>"
    AB = "N/REF : " & C & "<br/><br/>"
    AC = "Votre commande N° " & B & " du " & D & "<br/>Montant TTC : " & G & " EUR<br/>Règlement : " & e
     
    AD = "<br/>==========================<br/>Date de Livraison prévue : " & F & "<br/>==========================<br/><br/> Lieu de Livraison : " & AL & " - " & CL & " " & VL & "<br>"
     
    AE = "<br/>Votre interlocuteur commercial est à votre disposition pour vous apporter toute précision complémentraire.<br/>"
    AG = "<br/>Cordiales Salutations<br/>"
     
    ZZ = "<FONT COLOR=#000000><FONT FACE=Arial, serif><FONT SIZE=2>" & AA & AB & AC & AD & AE & AG
     
    On Error GoTo Error_send
        Dim oCdo As Object
     
        Set oCdo = CreateObject("CDO.Message")
     
        With oCdo
            With .Configuration.Fields
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.free.fr" 'nom ou IP du serveur SMTP
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = "25" 'port utilisé
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "mon_compte@toto.fr"
    .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "PSW"
    .Update
     
            End With
            .Subject = "AR de votre Commande N° " & C                                       ' objet du message
            .From = "administratif@ampf.pro"                                                      ' adresse de l'expéditeur
            .To = A                                                                                           ' adresse du destinataire
            .HTMLBody = ZZ                                                                  ' corps du message en format texte brut
            .MDNRequested = True
            .AddAttachment "D:\Gescom\Temp\AR " & C & ".pdf"
            .Send
     
        End With
     
    MsgBox Chr(13) & "AR de Commande réctificatif envoyé !"
    Dim ZAR2 As String
    ZAR2 = "ok"
    Form!AR2 = ZAR2
     
     
     
    Fin:
        Set oCdo = Nothing
     
    ' -----------------------------------------------------
    ' Suppression des 2 PdF
    ' -----------------------------------------------------
        If "D:\Gescom\Temp\AR Auto.pdf" <> "" Then
        Kill ("D:\Gescom\Temp\AR Auto.pdf")
        End If
     
        Kill ("D:\Gescom\Temp\AR " & C & ".pdf")
        Exit Sub
     
    Error_send:
        MsgBox "Erreur d'envoi " & Err.Number & "  " & Err.Description
        Resume Fin
     
    End Sub

  11. #11
    Membre Expert Avatar de Thumb down
    Homme Profil pro
    Retraité
    Inscrit en
    Juin 2019
    Messages
    1 562
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité

    Informations forums :
    Inscription : Juin 2019
    Messages : 1 562
    Par défaut
    Bonjour,
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
     
    Do While Dir("D:\Gescom\Temp\AR Auto.pdf") = ""
        DoEvents
    Loop
    relis bien ton code!


    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
     
    ' -----------------------------------------------------
    ' Suppression des 2 PdF
    ' -----------------------------------------------------
    '    If "D:\Gescom\Temp\AR Auto.pdf" <> "" Then 
     
     
    If dir("D:\Gescom\Temp\AR Auto.pdf") <> "" Then  Kill ("D:\Gescom\Temp\AR Auto.pdf")
     If dir("D:\Gescom\Temp\AR " & C & ".pdf") <> "" Then Kill ("D:\Gescom\Temp\AR " & C & ".pdf")

  12. #12
    Membre confirmé
    Homme Profil pro
    Ressources humaines
    Inscrit en
    Mars 2015
    Messages
    134
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Ressources humaines

    Informations forums :
    Inscription : Mars 2015
    Messages : 134
    Par défaut
    Bonjour Thumb down et merci pour ton aide

    Je ne vois pas ...j'ai le nez dedans depuis des heures et peut-être que je ne vois pas l'évidence ?

    Sauf erreur, ce code permet d'attendre que le 1er pdf soit bien généré :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Do While Dir("D:\Gescom\Temp\AR Auto.pdf") = ""
        DoEvents
    Loop
    et celui-ci me détruit (s'ils existent) les 2 pdf : le 1er (AR Auto.pdf) et le second qui a été copié/renomé ?

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    If dir("D:\Gescom\Temp\AR Auto.pdf") <> "" Then  Kill ("D:\Gescom\Temp\AR Auto.pdf")
     If dir("D:\Gescom\Temp\AR " & C & ".pdf") <> "" Then Kill ("D:\Gescom\Temp\AR " & C & ".pdf")
    Ou fais-je une erreur ?

  13. #13
    Membre Expert Avatar de Thumb down
    Homme Profil pro
    Retraité
    Inscrit en
    Juin 2019
    Messages
    1 562
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité

    Informations forums :
    Inscription : Juin 2019
    Messages : 1 562
    Par défaut
    Ou fais-je une erreur
    « Un texte libre est bien <> "" »

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
     If "D:\Gescom\Temp\AR Auto.pdf" <> "" Then 
    en fait on doit vérifier l’existence ou la non existence d'un fichier avant de le créer, le manipuler,le copier ou le supprimer!
    pour l'exemple!
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    Sub test()
    Dim r As String
    r = Environ("temp") & "\toto\titi"
    Creer_Repertoires r
    FichierText r & "\rr.txt", "rrr"
    Deplace_Fichier r & "\rr.txt", r & "\toto.txt"
    Supprimer_Fichier r & "\toto.txt"
    Supprimer_Repertoire Environ("temp") & "\toto"
    End Sub
    Code FSO : 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
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    89
    90
    91
    92
    93
    94
    95
    96
    97
    98
    99
    100
    101
    102
    103
    104
    105
    106
    107
    108
    109
    110
    111
    112
    113
    114
    115
    116
    117
    118
    119
    120
    121
    122
    123
    124
    125
    126
    127
    128
    129
    130
    131
    132
    133
    134
    135
    136
    137
    138
    139
    140
    141
    142
    143
    144
    145
    146
    147
    148
    149
    150
    151
    152
    153
    154
    155
    'Permet de vérifier si le répertoire dont le nom est précisé en paramêtre (Repertoires) existe. Retourne True s'il existe, sinon False
    Public Function Repertoires_Existe(Repertoires)
    Dim FSO
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Repertoires_Existe = FSO.FolderExists(Repertoires)
    Set FSO = Nothing
    End Function
    'Taille d'un répertoire
    Public Function Taille_Repertoire(Repertoire)
    Dim FSO
    Dim Rep
    Set FSO = CreateObject("Scripting.FileSystemObject")
        Set Rep = FSO.GetFolder(Repertoire)
        Taille_Repertoire = Rep.Size
    End Function
    Function Repertoire_Date_Creation(Repertoire)
      Dim FSO
    Dim Rep
    Set FSO = CreateObject("Scripting.FileSystemObject")
        Set Rep = FSO.GetFolder(Repertoire)
        Repertoire_Date_Creation = Rep.DateCreated
    End Function
    'Crée un répertoire, dont l'emplacement et le nom sont précisé par le chemin d'accês complet précisé en argument (NewRepertoires).
    Public Sub Creer_Repertoires(NewRepertoires)
    Dim FSO
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Dim t
    Dim r
    Dim I
    r = ""
    t = Split(NewRepertoires & "\", "\")
    For I = 0 To UBound(t) - 1
        If Trim("" & t(I)) <> "" Then
            r = r & Trim("" & t(I))
            If Repertoires_Existe(r) = False Then FSO.CreateFolder "" & r
        End If
         r = r & "\"
    Next
    Set FSO = Nothing
    End Sub
    'Copie un répertoire, ainsi que tous les fichiers et sous-répertoires qu'il contient, d'une source vers une destination.
    Public Sub Copie_Repertoires(Source, Destination)
    Dim FSO
    Set FSO = CreateObject("Scripting.FileSystemObject")
    FSO.CopyFolder Source, Destination, True
    Set FSO = Nothing
    End Sub
    'Déplace un ou plusieurs répertoire d'un emplacement source vers une destination.
    Public Function Deplace_Repertoire(Source, Destination)
    Dim FSO
    Set FSO = CreateObject("Scripting.FileSystemObject")
    On Error Resume Next
    FSO.MoveFolder Source, Destination
    If Err > 0 Then Deplace_Repertoire = Err.Description
    Err.Clear
    On Error GoTo 0
    Set FSO = Nothing
    End Function
    'Permet de supprimer un répertoire et tous les fichiers et sous-répertoires qu'il contient.
    Public Sub Supprimer_Repertoire(DelRepertoire)
    Dim FSO
    Set FSO = CreateObject("Scripting.FileSystemObject")
    FSO.DeleteFolder DelRepertoire, True
    Set FSO = Nothing
    End Sub
    'Taille d'un répertoire
    Public Function Taille_Fichier(Fichier)
    Dim FSO
    Dim Fich
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set Fich = FSO.GetFile(Fichier)
        Taille_Fichier = Fich.Size
    End Function
    'Vérifie lexistance d'un   fichier
    Public Function Fichier_Exist(Fichier)
    Dim FSO
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Fichier_Exist = FSO.FileExists(Fichier)
    Set FSO = Nothing
    End Function
    'Retourne le nom du fichier, à partir du chemin d'accês complet précisé en paramêtre.
    Public Function Fichier_Name(Fichier)
    Dim FSO
    If Fichier_Exist(Fichier) = True Then
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Fichier_Name = FSO.GetBaseName(Fichier)
    Set FSO = Nothing
    End If
    End Function
    'Retourne l'extension du fichier, à partir du chemin d'accês complet précisé en paramêtre.
    Public Function Fichier_extension(Fichier)
    Dim FSO
    If Fichier_Exist(Fichier) = True Then
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Fichier_extension = FSO.GetExtensionName(Fichier)
    Set FSO = Nothing
    End If
    End Function
    'Copie un fichier d'une source vers une destination.
    Public Sub Copie_Fichier(Source, Destination)
    Dim FSO
    Set FSO = CreateObject("Scripting.FileSystemObject")
    FSO.CopyFile Source, Destination, True
    Set FSO = Nothing
    End Sub
    'Déplace un ou plusieurs fichiers d'un emplacement source vers une destination.
    Public Sub Deplace_Fichier(Source, Destination)
    Dim FSO
    Set FSO = CreateObject("Scripting.FileSystemObject")
    If Fichier_Exist(Source) And Not Fichier_Exist(Destination) Then FSO.MoveFile Source, Destination
    Set FSO = Nothing
    End Sub
    'Supprime le ou les fichiers dont le nom est précisé en argument.
    Public Sub Supprimer_Fichier(DelFichier)
    If Fichier_Exist(DelFichier) = True Then
    Dim FSO
    Set FSO = CreateObject("Scripting.FileSystemObject")
    FSO.DeleteFile DelFichier, True
    Set FSO = Nothing
    End If
    End Sub
    Public Sub FichierText(sFile, txt, Optional TxtDefault As String = "")
    Dim FSO
    Set FSO = CreateObject("Scripting.FileSystemObject")
    If FSO.FileExists(sFile) = False Then EnteteFichier sFile
    AppendTxt sFile, txt
    Set FSO = Nothing
    End Sub
    'permet de créer un fichier texte
    Private Sub EnteteFichier(Fichier, Optional TxtDefault As String = "")
    Dim FSO, NewFichier
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set NewFichier = FSO.OpenTextFile(Fichier, 2, True)
    NewFichier.Write TxtDefault
    NewFichier.Close
    Set NewFichier = Nothing
    Set FSO = Nothing
    End Sub
    'Ajoute txte dans un fichier existant!
    Function AppendTxt(sFile, sText)
    Dim FSO, NewFichier
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set NewFichier = FSO.OpenTextFile(sFile, 8)
    NewFichier.Write sText
    NewFichier.Close
    Set NewFichier = Nothing
    Set FSO = Nothing
    End Function
    'retourne un fichier texte sous forme de tableau
    Public Function OuvrirFichier(Fichier)
    Set oFs = CreateObject("Scripting.FileSystemObject")
    Set oFile = oFs.OpenTextFile(Fichier)
    OuvrirFichier = Split(oFile.ReadAll, vbCrLf)
    oFile.Close
    End Function

  14. #14
    Membre confirmé
    Homme Profil pro
    Ressources humaines
    Inscrit en
    Mars 2015
    Messages
    134
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Ressources humaines

    Informations forums :
    Inscription : Mars 2015
    Messages : 134
    Par défaut
    Désolé mais je ne vois toujours pas ...

    Ce code fonctionne bien : il me supprime bien mes 2 fichiers s'ils existent.

    Mon problème semble se situer plus haut : Si 'AR Auto.pdf' n'existe plus, j'ai l'erreur 70 ici à la prochaine exécution du Sub :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    Dim FSO
    Set FSO = CreateObject("Scripting.FileSystemObject")
    FSO.CopyFile "D:\Gescom\Temp\AR Auto.pdf", "D:\Gescom\Temp\AR " & C & ".pdf"
    Set FSO = Nothing
    Et si je ne le supprime pas , il n'est pas écraser tous le temps. C'est aléatoire.

    Explique moi ton raisonnement.

    Merci pour ton aide

  15. #15
    Membre Expert Avatar de Thumb down
    Homme Profil pro
    Retraité
    Inscrit en
    Juin 2019
    Messages
    1 562
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité

    Informations forums :
    Inscription : Juin 2019
    Messages : 1 562
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
     
    ' -----------------------------------------------------
    ' Suppression des 2 PdF
    ' -----------------------------------------------------
        If "D:\Gescom\Temp\AR Auto.pdf" <> "" Then
        Kill ("D:\Gescom\Temp\AR Auto.pdf")
        End If
    c'est bien ton code?
    tu regarde si ton texte est <>"" pas si le fichier existe.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
     
    ' -----------------------------------------------------
    ' Suppression des 2 PdF
    ' -----------------------------------------------------
        If dir("D:\Gescom\Temp\AR Auto.pdf") <> "" Then
        Kill ("D:\Gescom\Temp\AR Auto.pdf")
        End If

  16. #16
    Membre confirmé
    Homme Profil pro
    Ressources humaines
    Inscrit en
    Mars 2015
    Messages
    134
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Ressources humaines

    Informations forums :
    Inscription : Mars 2015
    Messages : 134
    Par défaut
    Merci Thumb down !

    Je n'avais pas vu ton msg de 12h41 ... Merci pour cette précision, j'ai corrigé. Je me considère comme débutant, alors je gratte, cherche et fais du Copier/Coller pour tester et tenter de comprendre en même temps !

    Mais mon problème ne vient pas de là. En faisant moultes essais, j'ai isolé la partie du code qui pose problème.

    Ceci renvoie l'erreur 70 :

    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
    Private Sub Commande252_Click()
     
    Dim C As Long
    C = Forms!CDcli!ARNO
     
    imprim
    DoCmd.OpenReport "AR Auto"
     
    Dim COM As Integer
     
        Do While DIR("D:\Gescom\Temp\AR Auto.pdf") = ""
        Loop
     
    Dim FSO
    Set FSO = CreateObject("Scripting.FileSystemObject")
    FSO.CopyFile "D:\Gescom\Temp\AR Auto.pdf", "D:\Gescom\Temp\AR " & C & ".pdf", True
    Set FSO = Nothing
     
    End Sub


    Ceci fonctionne. J'ai ajouté un msgbox qui doit jouer le rôle de tempo car clairement, mes tests indiquent que le fichier 'AR Auto.pdf' n'est encore pas créé malgré le Do While :

    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
    Private Sub Commande252_Click()
     
    Dim C As Long
    C = Forms!CDcli!ARNO
     
    imprim
    DoCmd.OpenReport "AR Auto"
     
    Dim COM As Integer
     
        Do While DIR("D:\Gescom\Temp\AR Auto.pdf") = ""
        Loop
     
    MsgBox (C)
     
    Dim FSO
    Set FSO = CreateObject("Scripting.FileSystemObject")
    FSO.CopyFile "D:\Gescom\Temp\AR Auto.pdf", "D:\Gescom\Temp\AR " & C & ".pdf", True
    Set FSO = Nothing
     
    End Sub
    Je ne vois pas comment réglé ce problème.

    Merci pour votre aide

  17. #17
    Membre Expert Avatar de Thumb down
    Homme Profil pro
    Retraité
    Inscrit en
    Juin 2019
    Messages
    1 562
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité

    Informations forums :
    Inscription : Juin 2019
    Messages : 1 562
    Par défaut
    même avec un DoEvents
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Do While Dir("D:\Gescom\Temp\AR Auto.pdf") = ""    
    DoEvents
     Loop

  18. #18
    Membre confirmé
    Homme Profil pro
    Ressources humaines
    Inscrit en
    Mars 2015
    Messages
    134
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Ressources humaines

    Informations forums :
    Inscription : Mars 2015
    Messages : 134
    Par défaut


    ça marche ! 1000 mercis.

    Que fait cette instruction précisément ? dans quel cas l'utiliser ?

  19. #19
    Membre Expert Avatar de Thumb down
    Homme Profil pro
    Retraité
    Inscrit en
    Juin 2019
    Messages
    1 562
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité

    Informations forums :
    Inscription : Juin 2019
    Messages : 1 562
    Par défaut
    Çà donne des pauses à windows pour qu'il expédit les affaires courante , memoire, événements etc..

    C'est ce que ton msgbox faisait, une pause!

    Tu noteras que c'était ma première remarque sur ce fils.

  20. #20
    Membre confirmé
    Homme Profil pro
    Ressources humaines
    Inscrit en
    Mars 2015
    Messages
    134
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Ressources humaines

    Informations forums :
    Inscription : Mars 2015
    Messages : 134
    Par défaut
    C'est noté. Merci à toi et Thierry pour votre aide précieuse !


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

Discussions similaires

  1. Impossibilité d'utiliser CreateObject("Scripting.FileSystemObject")
    Par sekousilla dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 02/03/2016, 14h11
  2. [AC-2003] Utilisation de Scripting.FileSystemObject
    Par ggvert dans le forum VBA Access
    Réponses: 2
    Dernier message: 27/04/2010, 21h06
  3. Réponses: 3
    Dernier message: 20/06/2009, 15h34
  4. Utilisation du format $quote
    Par lhonolulu dans le forum SAS Base
    Réponses: 5
    Dernier message: 25/05/2009, 11h06
  5. Impossibilité d'utiliser CreateObject("Scripting.FileSystemObject")
    Par melouille56 dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 01/08/2008, 11h07

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