Bonjour,
Pour copier l'ensemble d'un répertoire j'utilise la méthode avec
FileSystemObject
Cela a bien fonctionné... sauf que.... dernièrement, les utilisateurs de
ma macro m'ont montré que je n'ai plus l'ensemble du répertoire de copier
mais seulement une partie de celui ci !!!
--------------
Dim RepDest As String 'Rép.de destination
Dim RepSource As String 'Rép.Matrice à copier
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CopyFolder RepSource, RepDest
--------------
Le problème semble lié à seulement certains répertoires de destination...
et cela semble bien lié à la longueur du chemin complet.
Exemple, avec un RepDest = "H:CAC1.ASSOCIATIONSAutrestest" il n'y a
pas de souci... mais avec un RepDest = "H:CAC1.ASSOCIATIONSSECT SOCIAL
INSERTION ACTIVITE ECOtest" j'ai alors un code erreur 76 avec une
description "Chemin d'accès introuvable" sur la ligne:
FSO.CopyFolder RepSource, RepDest
Le dernier fichier copier de la source à la destination est
"H:CAC1.ASSOCIATIONSSECT SOCIAL INSERTION ACTIVITE ECOtest10 DTA17
Dossier de contrôle CAC17.10 Communication avec le client17.10.2
Echantillonnage de la population à tester pour les
circularisationEchantillonage de la pop à tester circu frs.xls" (chemin
de 253 caractères). Le dernier fichier qui aurait dû être copier mais qui
ne l'a pas été est "H:CAC1.ASSOCIATIONSSECT SOCIAL INSERTION ACTIVITE
ECOtest10 DTA17 Dossier de contrôle CAC17.10 Communication avec le
client17.10.2 Echantillonnage de la population à tester pour les
circularisationMatrice échantillonage de la pop à tester circu
client.xls" (chemin de 264 caractères).
Y'a-t-il donc une limitation dans les longueurs de chemin dû à FSO ? dû au
type de donnée String ? Et comment y remédier (sans pour autant limiter la
longueur de ces chemins) ?
Pour précision, je suis sous Windows XP Pro avec un Excel 2007.
Merci d'avance pour votre aide
--
@+
HD
Bonjour,
Pour copier l'ensemble d'un répertoire j'utilise la méthode avec
FileSystemObject
Cela a bien fonctionné... sauf que.... dernièrement, les utilisateurs de
ma macro m'ont montré que je n'ai plus l'ensemble du répertoire de copier
mais seulement une partie de celui ci !!!
--------------
Dim RepDest As String 'Rép.de destination
Dim RepSource As String 'Rép.Matrice à copier
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CopyFolder RepSource, RepDest
--------------
Le problème semble lié à seulement certains répertoires de destination...
et cela semble bien lié à la longueur du chemin complet.
Exemple, avec un RepDest = "H:CAC1.ASSOCIATIONSAutrestest" il n'y a
pas de souci... mais avec un RepDest = "H:CAC1.ASSOCIATIONSSECT SOCIAL
INSERTION ACTIVITE ECOtest" j'ai alors un code erreur 76 avec une
description "Chemin d'accès introuvable" sur la ligne:
FSO.CopyFolder RepSource, RepDest
Le dernier fichier copier de la source à la destination est
"H:CAC1.ASSOCIATIONSSECT SOCIAL INSERTION ACTIVITE ECOtest10 DTA17
Dossier de contrôle CAC17.10 Communication avec le client17.10.2
Echantillonnage de la population à tester pour les
circularisationEchantillonage de la pop à tester circu frs.xls" (chemin
de 253 caractères). Le dernier fichier qui aurait dû être copier mais qui
ne l'a pas été est "H:CAC1.ASSOCIATIONSSECT SOCIAL INSERTION ACTIVITE
ECOtest10 DTA17 Dossier de contrôle CAC17.10 Communication avec le
client17.10.2 Echantillonnage de la population à tester pour les
circularisationMatrice échantillonage de la pop à tester circu
client.xls" (chemin de 264 caractères).
Y'a-t-il donc une limitation dans les longueurs de chemin dû à FSO ? dû au
type de donnée String ? Et comment y remédier (sans pour autant limiter la
longueur de ces chemins) ?
Pour précision, je suis sous Windows XP Pro avec un Excel 2007.
Merci d'avance pour votre aide
--
@+
HD
Bonjour,
Pour copier l'ensemble d'un répertoire j'utilise la méthode avec
FileSystemObject
Cela a bien fonctionné... sauf que.... dernièrement, les utilisateurs de
ma macro m'ont montré que je n'ai plus l'ensemble du répertoire de copier
mais seulement une partie de celui ci !!!
--------------
Dim RepDest As String 'Rép.de destination
Dim RepSource As String 'Rép.Matrice à copier
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CopyFolder RepSource, RepDest
--------------
Le problème semble lié à seulement certains répertoires de destination...
et cela semble bien lié à la longueur du chemin complet.
Exemple, avec un RepDest = "H:CAC1.ASSOCIATIONSAutrestest" il n'y a
pas de souci... mais avec un RepDest = "H:CAC1.ASSOCIATIONSSECT SOCIAL
INSERTION ACTIVITE ECOtest" j'ai alors un code erreur 76 avec une
description "Chemin d'accès introuvable" sur la ligne:
FSO.CopyFolder RepSource, RepDest
Le dernier fichier copier de la source à la destination est
"H:CAC1.ASSOCIATIONSSECT SOCIAL INSERTION ACTIVITE ECOtest10 DTA17
Dossier de contrôle CAC17.10 Communication avec le client17.10.2
Echantillonnage de la population à tester pour les
circularisationEchantillonage de la pop à tester circu frs.xls" (chemin
de 253 caractères). Le dernier fichier qui aurait dû être copier mais qui
ne l'a pas été est "H:CAC1.ASSOCIATIONSSECT SOCIAL INSERTION ACTIVITE
ECOtest10 DTA17 Dossier de contrôle CAC17.10 Communication avec le
client17.10.2 Echantillonnage de la population à tester pour les
circularisationMatrice échantillonage de la pop à tester circu
client.xls" (chemin de 264 caractères).
Y'a-t-il donc une limitation dans les longueurs de chemin dû à FSO ? dû au
type de donnée String ? Et comment y remédier (sans pour autant limiter la
longueur de ces chemins) ?
Pour précision, je suis sous Windows XP Pro avec un Excel 2007.
Merci d'avance pour votre aide
--
@+
HD
Bonjour HD
Ne serait-ce pas dû au nombre maximum de caractères dans une variable
(256?) ou confondé-je ?
--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."
Jacquouille (MPFE).
"HD" a écrit dans le message de news:
i5ir4n$2olg$Bonjour,
Pour copier l'ensemble d'un répertoire j'utilise la méthode avec
FileSystemObject
Cela a bien fonctionné... sauf que.... dernièrement, les utilisateurs de
ma macro m'ont montré que je n'ai plus l'ensemble du répertoire de copier
mais seulement une partie de celui ci !!!
--------------
Dim RepDest As String 'Rép.de destination
Dim RepSource As String 'Rép.Matrice à copier
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CopyFolder RepSource, RepDest
--------------
Le problème semble lié à seulement certains répertoires de destination...
et cela semble bien lié à la longueur du chemin complet.
Exemple, avec un RepDest = "H:CAC1.ASSOCIATIONSAutrestest" il n'y a
pas de souci... mais avec un RepDest = "H:CAC1.ASSOCIATIONSSECT SOCIAL
INSERTION ACTIVITE ECOtest" j'ai alors un code erreur 76 avec une
description "Chemin d'accès introuvable" sur la ligne:
FSO.CopyFolder RepSource, RepDest
Le dernier fichier copier de la source à la destination est
"H:CAC1.ASSOCIATIONSSECT SOCIAL INSERTION ACTIVITE ECOtest10 DTA17
Dossier de contrôle CAC17.10 Communication avec le client17.10.2
Echantillonnage de la population à tester pour les
circularisationEchantillonage de la pop à tester circu frs.xls" (chemin
de 253 caractères). Le dernier fichier qui aurait dû être copier mais qui
ne l'a pas été est "H:CAC1.ASSOCIATIONSSECT SOCIAL INSERTION ACTIVITE
ECOtest10 DTA17 Dossier de contrôle CAC17.10 Communication avec le
client17.10.2 Echantillonnage de la population à tester pour les
circularisationMatrice échantillonage de la pop à tester circu
client.xls" (chemin de 264 caractères).
Y'a-t-il donc une limitation dans les longueurs de chemin dû à FSO ? dû
au type de donnée String ? Et comment y remédier (sans pour autant
limiter la longueur de ces chemins) ?
Pour précision, je suis sous Windows XP Pro avec un Excel 2007.
Merci d'avance pour votre aide
--
@+
HD
Bonjour HD
Ne serait-ce pas dû au nombre maximum de caractères dans une variable
(256?) ou confondé-je ?
--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."
Jacquouille (MPFE).
"HD" <hd@anti.spam.fr> a écrit dans le message de news:
i5ir4n$2olg$1@saria.nerim.net...
Bonjour,
Pour copier l'ensemble d'un répertoire j'utilise la méthode avec
FileSystemObject
Cela a bien fonctionné... sauf que.... dernièrement, les utilisateurs de
ma macro m'ont montré que je n'ai plus l'ensemble du répertoire de copier
mais seulement une partie de celui ci !!!
--------------
Dim RepDest As String 'Rép.de destination
Dim RepSource As String 'Rép.Matrice à copier
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CopyFolder RepSource, RepDest
--------------
Le problème semble lié à seulement certains répertoires de destination...
et cela semble bien lié à la longueur du chemin complet.
Exemple, avec un RepDest = "H:CAC1.ASSOCIATIONSAutrestest" il n'y a
pas de souci... mais avec un RepDest = "H:CAC1.ASSOCIATIONSSECT SOCIAL
INSERTION ACTIVITE ECOtest" j'ai alors un code erreur 76 avec une
description "Chemin d'accès introuvable" sur la ligne:
FSO.CopyFolder RepSource, RepDest
Le dernier fichier copier de la source à la destination est
"H:CAC1.ASSOCIATIONSSECT SOCIAL INSERTION ACTIVITE ECOtest10 DTA17
Dossier de contrôle CAC17.10 Communication avec le client17.10.2
Echantillonnage de la population à tester pour les
circularisationEchantillonage de la pop à tester circu frs.xls" (chemin
de 253 caractères). Le dernier fichier qui aurait dû être copier mais qui
ne l'a pas été est "H:CAC1.ASSOCIATIONSSECT SOCIAL INSERTION ACTIVITE
ECOtest10 DTA17 Dossier de contrôle CAC17.10 Communication avec le
client17.10.2 Echantillonnage de la population à tester pour les
circularisationMatrice échantillonage de la pop à tester circu
client.xls" (chemin de 264 caractères).
Y'a-t-il donc une limitation dans les longueurs de chemin dû à FSO ? dû
au type de donnée String ? Et comment y remédier (sans pour autant
limiter la longueur de ces chemins) ?
Pour précision, je suis sous Windows XP Pro avec un Excel 2007.
Merci d'avance pour votre aide
--
@+
HD
Bonjour HD
Ne serait-ce pas dû au nombre maximum de caractères dans une variable
(256?) ou confondé-je ?
--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."
Jacquouille (MPFE).
"HD" a écrit dans le message de news:
i5ir4n$2olg$Bonjour,
Pour copier l'ensemble d'un répertoire j'utilise la méthode avec
FileSystemObject
Cela a bien fonctionné... sauf que.... dernièrement, les utilisateurs de
ma macro m'ont montré que je n'ai plus l'ensemble du répertoire de copier
mais seulement une partie de celui ci !!!
--------------
Dim RepDest As String 'Rép.de destination
Dim RepSource As String 'Rép.Matrice à copier
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CopyFolder RepSource, RepDest
--------------
Le problème semble lié à seulement certains répertoires de destination...
et cela semble bien lié à la longueur du chemin complet.
Exemple, avec un RepDest = "H:CAC1.ASSOCIATIONSAutrestest" il n'y a
pas de souci... mais avec un RepDest = "H:CAC1.ASSOCIATIONSSECT SOCIAL
INSERTION ACTIVITE ECOtest" j'ai alors un code erreur 76 avec une
description "Chemin d'accès introuvable" sur la ligne:
FSO.CopyFolder RepSource, RepDest
Le dernier fichier copier de la source à la destination est
"H:CAC1.ASSOCIATIONSSECT SOCIAL INSERTION ACTIVITE ECOtest10 DTA17
Dossier de contrôle CAC17.10 Communication avec le client17.10.2
Echantillonnage de la population à tester pour les
circularisationEchantillonage de la pop à tester circu frs.xls" (chemin
de 253 caractères). Le dernier fichier qui aurait dû être copier mais qui
ne l'a pas été est "H:CAC1.ASSOCIATIONSSECT SOCIAL INSERTION ACTIVITE
ECOtest10 DTA17 Dossier de contrôle CAC17.10 Communication avec le
client17.10.2 Echantillonnage de la population à tester pour les
circularisationMatrice échantillonage de la pop à tester circu
client.xls" (chemin de 264 caractères).
Y'a-t-il donc une limitation dans les longueurs de chemin dû à FSO ? dû
au type de donnée String ? Et comment y remédier (sans pour autant
limiter la longueur de ces chemins) ?
Pour précision, je suis sous Windows XP Pro avec un Excel 2007.
Merci d'avance pour votre aide
--
@+
HD
....Que je me réponds
Avec un bréviaire comme chemin, c'est pire que celui qui mène au Paradis.
Ne pourrais-tu, par exemple, utiliser des abréviations (pop pour
population,comm pour communication .....)
Tu aurais vite retrouvé de la place libre......
--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."
Jacquouille (MPFE).
"Jacquouille" a écrit dans le message de
news: 4c7cf612$0$5275$Bonjour HD
Ne serait-ce pas dû au nombre maximum de caractères dans une variable
(256?) ou confondé-je ?
--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."
Jacquouille (MPFE).
"HD" a écrit dans le message de news:
i5ir4n$2olg$Bonjour,
Pour copier l'ensemble d'un répertoire j'utilise la méthode avec
FileSystemObject
Cela a bien fonctionné... sauf que.... dernièrement, les utilisateurs de
ma macro m'ont montré que je n'ai plus l'ensemble du répertoire de
copier mais seulement une partie de celui ci !!!
--------------
Dim RepDest As String 'Rép.de destination
Dim RepSource As String 'Rép.Matrice à copier
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CopyFolder RepSource, RepDest
--------------
Le problème semble lié à seulement certains répertoires de
destination... et cela semble bien lié à la longueur du chemin complet.
Exemple, avec un RepDest = "H:CAC1.ASSOCIATIONSAutrestest" il n'y a
pas de souci... mais avec un RepDest = "H:CAC1.ASSOCIATIONSSECT
SOCIAL INSERTION ACTIVITE ECOtest" j'ai alors un code erreur 76 avec
une description "Chemin d'accès introuvable" sur la ligne:
FSO.CopyFolder RepSource, RepDest
Le dernier fichier copier de la source à la destination est
"H:CAC1.ASSOCIATIONSSECT SOCIAL INSERTION ACTIVITE ECOtest10 DTA17
Dossier de contrôle CAC17.10 Communication avec le client17.10.2
Echantillonnage de la population à tester pour les
circularisationEchantillonage de la pop à tester circu frs.xls" (chemin
de 253 caractères). Le dernier fichier qui aurait dû être copier mais
qui ne l'a pas été est "H:CAC1.ASSOCIATIONSSECT SOCIAL INSERTION
ACTIVITE ECOtest10 DTA17 Dossier de contrôle CAC17.10 Communication
avec le client17.10.2 Echantillonnage de la population à tester pour
les circularisationMatrice échantillonage de la pop à tester circu
client.xls" (chemin de 264 caractères).
Y'a-t-il donc une limitation dans les longueurs de chemin dû à FSO ? dû
au type de donnée String ? Et comment y remédier (sans pour autant
limiter la longueur de ces chemins) ?
Pour précision, je suis sous Windows XP Pro avec un Excel 2007.
Merci d'avance pour votre aide
--
@+
HD
....Que je me réponds
Avec un bréviaire comme chemin, c'est pire que celui qui mène au Paradis.
Ne pourrais-tu, par exemple, utiliser des abréviations (pop pour
population,comm pour communication .....)
Tu aurais vite retrouvé de la place libre......
--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."
Jacquouille (MPFE).
"Jacquouille" <NoSpam_j.thiernesse@skynet.be> a écrit dans le message de
news: 4c7cf612$0$5275$ba620e4c@news.skynet.be...
Bonjour HD
Ne serait-ce pas dû au nombre maximum de caractères dans une variable
(256?) ou confondé-je ?
--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."
Jacquouille (MPFE).
"HD" <hd@anti.spam.fr> a écrit dans le message de news:
i5ir4n$2olg$1@saria.nerim.net...
Bonjour,
Pour copier l'ensemble d'un répertoire j'utilise la méthode avec
FileSystemObject
Cela a bien fonctionné... sauf que.... dernièrement, les utilisateurs de
ma macro m'ont montré que je n'ai plus l'ensemble du répertoire de
copier mais seulement une partie de celui ci !!!
--------------
Dim RepDest As String 'Rép.de destination
Dim RepSource As String 'Rép.Matrice à copier
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CopyFolder RepSource, RepDest
--------------
Le problème semble lié à seulement certains répertoires de
destination... et cela semble bien lié à la longueur du chemin complet.
Exemple, avec un RepDest = "H:CAC1.ASSOCIATIONSAutrestest" il n'y a
pas de souci... mais avec un RepDest = "H:CAC1.ASSOCIATIONSSECT
SOCIAL INSERTION ACTIVITE ECOtest" j'ai alors un code erreur 76 avec
une description "Chemin d'accès introuvable" sur la ligne:
FSO.CopyFolder RepSource, RepDest
Le dernier fichier copier de la source à la destination est
"H:CAC1.ASSOCIATIONSSECT SOCIAL INSERTION ACTIVITE ECOtest10 DTA17
Dossier de contrôle CAC17.10 Communication avec le client17.10.2
Echantillonnage de la population à tester pour les
circularisationEchantillonage de la pop à tester circu frs.xls" (chemin
de 253 caractères). Le dernier fichier qui aurait dû être copier mais
qui ne l'a pas été est "H:CAC1.ASSOCIATIONSSECT SOCIAL INSERTION
ACTIVITE ECOtest10 DTA17 Dossier de contrôle CAC17.10 Communication
avec le client17.10.2 Echantillonnage de la population à tester pour
les circularisationMatrice échantillonage de la pop à tester circu
client.xls" (chemin de 264 caractères).
Y'a-t-il donc une limitation dans les longueurs de chemin dû à FSO ? dû
au type de donnée String ? Et comment y remédier (sans pour autant
limiter la longueur de ces chemins) ?
Pour précision, je suis sous Windows XP Pro avec un Excel 2007.
Merci d'avance pour votre aide
--
@+
HD
....Que je me réponds
Avec un bréviaire comme chemin, c'est pire que celui qui mène au Paradis.
Ne pourrais-tu, par exemple, utiliser des abréviations (pop pour
population,comm pour communication .....)
Tu aurais vite retrouvé de la place libre......
--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."
Jacquouille (MPFE).
"Jacquouille" a écrit dans le message de
news: 4c7cf612$0$5275$Bonjour HD
Ne serait-ce pas dû au nombre maximum de caractères dans une variable
(256?) ou confondé-je ?
--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."
Jacquouille (MPFE).
"HD" a écrit dans le message de news:
i5ir4n$2olg$Bonjour,
Pour copier l'ensemble d'un répertoire j'utilise la méthode avec
FileSystemObject
Cela a bien fonctionné... sauf que.... dernièrement, les utilisateurs de
ma macro m'ont montré que je n'ai plus l'ensemble du répertoire de
copier mais seulement une partie de celui ci !!!
--------------
Dim RepDest As String 'Rép.de destination
Dim RepSource As String 'Rép.Matrice à copier
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CopyFolder RepSource, RepDest
--------------
Le problème semble lié à seulement certains répertoires de
destination... et cela semble bien lié à la longueur du chemin complet.
Exemple, avec un RepDest = "H:CAC1.ASSOCIATIONSAutrestest" il n'y a
pas de souci... mais avec un RepDest = "H:CAC1.ASSOCIATIONSSECT
SOCIAL INSERTION ACTIVITE ECOtest" j'ai alors un code erreur 76 avec
une description "Chemin d'accès introuvable" sur la ligne:
FSO.CopyFolder RepSource, RepDest
Le dernier fichier copier de la source à la destination est
"H:CAC1.ASSOCIATIONSSECT SOCIAL INSERTION ACTIVITE ECOtest10 DTA17
Dossier de contrôle CAC17.10 Communication avec le client17.10.2
Echantillonnage de la population à tester pour les
circularisationEchantillonage de la pop à tester circu frs.xls" (chemin
de 253 caractères). Le dernier fichier qui aurait dû être copier mais
qui ne l'a pas été est "H:CAC1.ASSOCIATIONSSECT SOCIAL INSERTION
ACTIVITE ECOtest10 DTA17 Dossier de contrôle CAC17.10 Communication
avec le client17.10.2 Echantillonnage de la population à tester pour
les circularisationMatrice échantillonage de la pop à tester circu
client.xls" (chemin de 264 caractères).
Y'a-t-il donc une limitation dans les longueurs de chemin dû à FSO ? dû
au type de donnée String ? Et comment y remédier (sans pour autant
limiter la longueur de ces chemins) ?
Pour précision, je suis sous Windows XP Pro avec un Excel 2007.
Merci d'avance pour votre aide
--
@+
HD
As-tu essayé quelque chose dans le genre :
Copie l'intégralité du contenu du répertoire source vers
le répertoire de destination.
'-----------------------------------
Sub test()
Dim Source As String
Dim destination As String
'*****VARIABLES À DÉFINIR*********
Source = "c:pour la première"
destination = "c:test1"
'**********************************
commande = Environ$("comspec") & " /c xcopy """ & _
Source & """ """ & destination & """ " & "/s/e"
Shell commande, 0
End Sub
As-tu essayé quelque chose dans le genre :
Copie l'intégralité du contenu du répertoire source vers
le répertoire de destination.
'-----------------------------------
Sub test()
Dim Source As String
Dim destination As String
'*****VARIABLES À DÉFINIR*********
Source = "c:pour la première"
destination = "c:test1"
'**********************************
commande = Environ$("comspec") & " /c xcopy """ & _
Source & """ """ & destination & """ " & "/s/e"
Shell commande, 0
End Sub
As-tu essayé quelque chose dans le genre :
Copie l'intégralité du contenu du répertoire source vers
le répertoire de destination.
'-----------------------------------
Sub test()
Dim Source As String
Dim destination As String
'*****VARIABLES À DÉFINIR*********
Source = "c:pour la première"
destination = "c:test1"
'**********************************
commande = Environ$("comspec") & " /c xcopy """ & _
Source & """ """ & destination & """ " & "/s/e"
Shell commande, 0
End Sub