Probleme de copy

Question

Bonjour à tous,

voila j'ai coder une fonction de sauvegarde d'un certain dossier vers un autre emplacement.
si jamais le dossier existe deja, je copie juste le fichier sur lequel je travail durant la semaine mais cela me fai une erreur,

pouvez vous me dire ce que vous en pensez et ce qu'il cloche svp??

merci beaucoup!

Public Sub CopierDossier()
   Dim fs
   Dim L_BoolRet3
   
   ' Vérifie si le dossier existe déjà
  Set fs = CreateObject("Scripting.FileSystemObject")
  L_BoolRet3 = L_ObjFs.FolderExists("C:\Fichier Oenoflow 8A" & CStr(G_IntAnneeDossierHebdo) & "")
  
  
  ' Si il n'existe pas de dossier on le crée
  If Not L_BoolRet3 Then
       fs.CopyFolder "C:\Program Files\Palltrace V2.6 Kienthziem\OENOFLOW 8A\data" & CStr(G_IntAnneeDossierHebdo), "C:\Fichier Oenoflow 8A" & CStr(G_IntAnneeDossierHebdo) & ""
  Else
    fs.copyfile G_StrNomCompletFichierExcel, "C:\Fichier Oenoflow 8A" & CStr(G_IntAnneeDossierHebdo) & ""
    End If
    
End Sub

jrivet · Answer

Salut,
N'etant pas devin j'aimerais bien connaitre l'erreur!!!!!

@+: Ju£i?n
Pensez: Réponse acceptée

hamster man · Answer

c'est une erreur 424 "un objet est requis"

ca doit etre un probleme de dossier non?

cs_Nicko11 · Answer

Salut, pour etre encore plus précis, quelle est la ligne concerné par l'erreur ?

jrivet · Answer

Aller peu être que je suis devin en fait.

Si tu met
   ' Vérifie si le dossier existe déjà
  Set fs = CreateObject("Scripting.FileSystemObject")

pourquoi utiliser l'objet L_ObjFs ??????
  L_BoolRet3 = L_ObjFs.FolderExists("C:\Fichier Oenoflow 8A" & CStr(G_IntAnneeDossierHebdo) & "")

Donc peu être

  Set fs = CreateObject("Scripting.FileSystemObject")
  L_BoolRet3 = FS.FolderExists("C:\Fichier Oenoflow 8A" & CStr(G_IntAnneeDossierHebdo) & "")

@+: Ju£i?n
Pensez: Réponse acceptée

cs_Nicko11 · Answer

Je ne vois pas a quoi fait reférence G_IntAnneeDossierHebdo et ca aussi G_StrNomCompletFichierExcel

hamster man · Answer

je vais verifier ca mais si jamais tu dis vrai jrivet, je suis vraiment tete en l'air alors...

ca me tue des erreurs comme cell-ci! grrrr

cs_Nicko11 · Answer

En effet, tu utilises une méthode sur un objet qui n'existe pas, donc il te demande un vrai objet.

jrivet · Answer

Si tu es bien en VB6 (ou en VBA) je te conseille de mettre a chaque fois tout en haut Option Explicit 
Il t'évitera bien des erreurs comme celle ci (si toutefois c'est bien cela)

@+: Ju£i?n
Pensez: Réponse acceptée

hamster man · Answer

non il y a bien autre chose car ca me fait : erreur 76 "chemin d'acces introuvable"

donc la ca doit etre comment j'accede a mes dossier qui ne va pas...

en tout cas merci a vous deux de m'aider !

cs_Nicko11 · Answer

Encore une fois essaie d'etre précis en nous donnant la ligne concernée par l'erreur.

Etant donné qu'il s'agit d'un chemin introuvable, il serait premièrement utilie de les vérifier. Es tu sur du contenu de ces variables  G_IntAnneeDossierHebdo et  G_StrNomCompletFichierExcel

cs_Nicko11 · Answer

Le "" est-il vraiment indispensable (je pose la question car je cherche) ?

jrivet · Answer

Re,
OUi mais on avance car ce n'est déjà pas la meme erreur!!!
Comme le dit[auteurdetail.aspx?ID=999867 Nicko11] , il faut dire quelle ligne pose problème ?????

@+: Ju£i?n
Pensez: Réponse acceptée

hamster man · Answer

Oui je suis sur de ce qu'il y a dans ces variables et je sais que le probleme vient de cette partie du code car je l'ai fait aujourd'hui alors que sans cette fonction que j'appel depuis peu bas ca fonctionne tres bien...

mais je vais verifier de mon coter

hamster man · Answer

je pense savoir d'ou cela peut venir ----->

Public Sub CopierDossier()
   Dim fs
   Dim L_BoolRet3
   
   ' Vérifie si le dossier existe déjà
  Set fs = CreateObject("Scripting.FileSystemObject")
  L_BoolRet3 = fs.FolderExists("C:\Fichier Oenoflow 8A" & CStr(G_IntAnneeDossierHebdo) & "")
  
  
  ' Si il n'existe pas de dossier on le crée
  If Not L_BoolRet3 Then
       fs.CopyFolder "C:\Program Files\Palltrace V2.6 Kienthziem\OENOFLOW 8A\data" & CStr(G_IntAnneeDossierHebdo), "C:\Fichier Oenoflow 8A" & CStr(G_IntAnneeDossierHebdo) & ""   <----------- d'ICI _____________________<
  Else
    fs.copyfile G_StrNomCompletFichierExcel, "C:\Fichier Oenoflow 8A" & CStr(G_IntAnneeDossierHebdo) & ""
    End If
    
End Sub 

a mon avis pour cette ligne, le "" n'est pas necessaire je vais tester

hamster man · Answer

Non ca doit etre encore autre chose...

cs_Nicko11 · Answer

"je pense savoir d'ou cela peut venir "

tu n'es pas obliger de penser mais tout simplement de nous dire la ligne en selection lors de l'erreur.

Pour etre sur de toi, tu ouvre une fenetre explateur windows et tu tapes le chemin (y compris ce qu'il y a dans les variables) pour voir si le chemin est correcte. 

Car si cela ne peut venir QUE du parametre que tu entres dans ta méthode.

regarde la presence de ca aussi:  

       fs.CopyFolder "C:\Program Files\Palltrace V2.6 Kienthziem\OENOFLOW 8A\data" & CStr(G_IntAnneeDossierHebdo) & "", "C:\Fichier Oenoflow 8A" & CStr(G_IntAnneeDossierHebdo) & ""

si on suit ta logique, il manque ce que j'ai rajouté en gras.

cs_Nicko11 · Answer

Oui comme je le disais au dessus, les "" sont ils nécessaire car soit tu les mets partout, soit tu ne les mets pas du tout

cs_MPi · Answer

hamster man, tu devrais peut-être regarder du côté des fonctions de base VB comme
Dir
MkDir
ChDir
FileCopy
...

MPi

cs_Nicko11 · Answer

Je pense que tu pourras y arriver sans nous a present. Mais si tu as encore des problemes, rien ne t'empeche de tester avec un msgbox.

msgbox "C:\Program Files\Palltrace V2.6 Kienthziem\OENOFLOW 8A\data" & CStr(G_IntAnneeDossierHebdo

pour voir si c'est bien le chemin.

jrivet · Answer

Re,
Noter petite aide en ligne montre ceci comme exemple.
Fs.CopyFolder "c:\Mes documents\lettres\*
", "c:\dossiertemp"


@+: Ju£i?n
Pensez: Réponse acceptée

jrivet · Answer

J'ajouterai même. si tu oublie l'etoile, tu auras l'erreur Chemin D'acces introuvable MEME si le chemin Existe = > Etoile obligatoire Si l'argument source contient des caractères génériques ou si destination se termine par un séparateur de chemin (\), destination est considéré comme un dossier existant vers lequel s'effectue la copie des dossiers et sous-dossiers désignés. Sinon, destination est considéré comme le nom du dossier à créer. Dans les deux cas, la copie d'un dossier individuel présente quatre possibilités.

Si destination n'existe pas, le dossier source et son contenu sont copiés. C'est le cas le plus courant.

Si destination est un fichier existant, une erreur se produit.

Si destination est un répertoire, l'opération tente de copier le dossier et son contenu. Si un fichier contenu dans source existe déjà dans destination, une erreur se produit si overwrite est False . Sinon, la copie tente de remplacer le fichier existant.

Si destination est un répertoire en lecture seule, une erreur se produit si l'opération tente de copier un fichier existant en lecture seule dans ce répertoire alors que overwrite vaut False.

Une erreur se produit aussi si un argument source contenant des caractères génériques ne correspond à aucun dossier. La méthode CopyFolder s'arrête sur la première erreur rencontrée. Aucune tentative n'est effectuée pour annuler les modifications précédant l'erreur. @+: =89254 Ju£i?n Pensez: Réponse acceptée

hamster man · Answer

"tu n'es pas obliger de penser mais tout simplement de nous dire la ligne en selection lors de l'erreur."

c'est gentil de voir que ta un coter humain...pas la peine d'etre desagreable comme ca tu sais.

en tout cas merci quand meme je vais voir ce que je peux faire mais mon chemin est bon.

hamster man · Answer

merci jrivet encore

cs_Nicko11 · Answer

Je ne voulais pas etre désagréable, je souhaitais simplement savoir d'ou venait l'erreur que générait VB, donc voila pk j'ai dis cela. Rien de méchant.

Donc en effet, d'apres jrivet, qu'importe que le chemin soit correcte si a la base, il manque *.

jrivet · Answer

Re,
Alors ca en est ou?

@+: Ju£i?n
Pensez: Réponse acceptée

hamster man · Answer

RE !
apparement l'erreur vient d'ici car j'ai pu remarquer que l'application s'arrete a cette instruction...   
------------>

' Vérifie si le dossier existe déjà
  Set fs = CreateObject("Scripting.FileSystemObject")
  L_BoolRet3 = fs.FolderExists("C:\Fichier Oenoflow 8A" & CStr(G_IntAnneeDossierHebdo) & "")    <----------------

mais je ne vois pas ou est le souci pourtant car la variable G_IntAnneeDossierHebdo=year(date)

vous savez peut etre??

jrivet · Answer

Salut, 
Ca ne peut pas être cette ligne car si la fonction FolderExists qui doit te renvoyer si le répertoire ou non (don TRUE ou FALSE) pette sur un chemin d'acces introuvable, ou va le monde....

C'est toujours cette erreur au moins?

@+: Ju£i?n
Pensez: Réponse acceptée

hamster man · Answer

Oui...je ne sais plus quoi faire !

je te remet mon code actuel:

Public Sub CopierDossier() 'Origine As String, Destination As String
   Dim fs
   Dim L_BoolRet3
   
   ' Vérifie si le dossier existe déjà
   MkDir ("C:\FichierOenoflow")
  Set fs = CreateObject("Scripting.FileSystemObject")
  L_BoolRet3 = fs.FolderExists("C:\FichierOenoflow" & CStr(G_IntAnneeDossierHebdo) & "")
  
  
  ' Si il n'existe pas de dossier on le crée
  If Not L_BoolRet3 Then
        'MkDir ("C:\FichierOenoflow" & CStr(G_IntAnneeDossierHebdo) & "")
       fs.CopyFolder "C:\Program Files\Palltrace V2.6 Kientzhiem\OENOFLOW 8A\data" & CStr(G_IntAnneeDossierHebdo), "C:\FichierOenoflow" & CStr(G_IntAnneeDossierHebdo)
  
'Else
   'fs.copyfile G_StrNomFicExcel, "C:\FichierOenoflow" & CStr(G_IntAnneeDossierHebdo) & ""
    End If
    
End Sub

si jamais tu as une idée, je suis preneur...

jrivet · Answer

Salut,
Je comprends pas avec toutes ces lignes en commentaire en plus pour un post tu mets
  L_BoolRet3 =  fs.FolderExists("C:\Fichier Oenoflow  8A"  & CStr(G_IntAnneeDossierHebdo) & "")   

et pour l'autre
L_BoolRet3  = fs.FolderExists("C:\FichierOenoflow" & CStr(G_IntAnneeDossierHebdo) & "")
je ne sais plus quoi penser ni ou t'orienter. 
Essaie en m'envoyant ton projet à epsylon9@gmail.com

@+: Ju£i?n
Pensez: Réponse acceptée

cs_Nicko11 · Answer

Au lieu de passer par des variables, essaies dans un premier temps de recopier simplement le chemin du dossier a apres on verra pour les variables.

hamster man · Answer

Désolé mais je ne peux pas envoyer mon projet pour raison de confidentialité...
je vais tester plusieurs choses et je vous tiens au courant. 

a tout a l'heure!

cs_Nicko11 · Answer

Ca y est, j'ai reussi de mon coté, alors si le dossier de destination n'existe pas, ca donne ca:

Dim fs
Dim L_BoolRet3
   
Set fs = CreateObject("Scripting.FileSystemObject")
L_BoolRet3 = fs.FolderExists("C:\Documents and Settings\BorelNi\Bureau\BDDtt")
  
  ' Si il n'existe pas de dossier on le crée
If Not L_BoolRet3 Then
    fs.CopyFolder "C:\Documents and Settings\BorelNi\Bureau\BDD", "C:\Documents and Settings\BorelNi\Bureau\BDDtt"
End If

donc pas de \ ni de *. rien dans le copyfolder

cs_Nicko11 · Answer

ca marche aussi pour le copyfile, merci ca ma permis d'apprendre cela au moins, 

Dim fs
Dim L_BoolRet3
   
Set fs = CreateObject("Scripting.FileSystemObject")
L_BoolRet3 = fs.FolderExists("C:\Documents and Settings\BorelNi\Bureau\BDDtt")
  
  ' Si il n'existe pas de dossier on le crée
If Not L_BoolRet3 Then
    fs.CopyFolder "C:\Documents and Settings\BorelNi\Bureau\BDD", "C:\Documents and Settings\BorelNi\Bureau\BDDtt"


Else


    fs.copyfile "C:\Documents and Settings\BorelNi\Bureau\BDD\Table_Test.mdb", "C:\Documents and Settings\BorelNi\Bureau\BDDtt"
End If

hamster man · Answer

c'est gentil a toi de me donner un coup de pouce et si tu en apprends tant mieux mais le souci c'est que tes exemples je sais qu'ils fonctionnent vu que je me sers de ca dans une autre appli mais pas dans celle qui me prends la tete depuis ce matin...

je vais encore essayer des choses puis je vous tiens au courant

cs_Nicko11 · Answer

Ce que je cherche a montrer, c'est que le fait qu'il dise chemin introuvable vient du fait que tu spécifies d'une manière ou d'une autre mal ton chemin.

Soit pas le fait que tu as des "" qui ne servent pas, soit par le fait que tes variables (celles concaténées aux chemins) ne vont pas.

Probleme de copy

35 réponses

Votre réponse

Discussions similaires