Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access re:posé le 18 chez client copie réseau

re:posé le 18 chez client copie réseau

3 réponses
Avatar
VroomVroom
Bonjour à tous,

Excusez de vous reposer la question mais n'ayant pas eu de réponse, je me
permets d'intervenir.
Je fais une copie de fichier sur mon poste et sur un poste réseau. sur mon
poste:

Kill "d:\sauvegarde\*.*"
Dim FS As Variant
Set FS = CreateObject("SCRIPTiNG.FILESYSTEMOBJECT")
FS.COPYFILE "d:\applicationasm\simon.mdb", "d:\sauvegarde\appli.mdb", True
FS.COPYFILE "d:\baseasm\donneesasm.mdb", "d:\sauvegarde\base.mdb", True


Tout marche, l'application et la base.

Maintenant lorsque j'utilise cette ligne, il me répond que le chemin
n'existe pas

FFS.COPYFILE "d:\baseams\donneesasm.mdb",
suite de la ligne de dessus "
\\asm\samirad\SauvegardeCompaq\donnees\base.mdb", True

Si je le fais manuellement, il n'y a aucun problème, les chemins existent.
\\Nom du Poste\Nom du partage\Nom du répertoire\Nom du sous répertoire\Nom
de la base.mdb

La question est la suivante: Où est ma connerie. Je sais je parle par
euphémismes:)))))))))

Merci encore pour votre patience.
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Anor
Bonjour VroomVroom,

Essaye 2 choses :

1 - mettre le chemin cible dans une variable et utiliser cette variable.

Dim strCible as string
strCible = "postecheminfichier.ext"


2 - vérifier que tes chemins sont corrects si tu fait :

Démarrer > exécuter
puis tu colles directement asmsamiradSauvegardeCompaqdonneesbase.mdb

Normalement s'il n'y a pas d'espace, ça roule.
S'il y a un espace dans le chemin, ça coince...

voilà je n'ai pas d'autre idée

--
à+
Arnaud
-------------------------------------------
Conseils d'utilisation, sites recommandés :
http://users.skynet.be/mpfa/
petit à petit, www.anor.fr.st fait son nid
-------------------------------------------




| Bonjour à tous,
|
| Excusez de vous reposer la question mais n'ayant pas eu de réponse,
| je me permets d'intervenir.
| Je fais une copie de fichier sur mon poste et sur un poste réseau.
| sur mon poste:
|
| Kill "d:sauvegarde*.*"
| Dim FS As Variant
| Set FS = CreateObject("SCRIPTiNG.FILESYSTEMOBJECT")
| FS.COPYFILE "d:applicationasmsimon.mdb", "d:sauvegardeappli.mdb",
| True FS.COPYFILE "d:baseasmdonneesasm.mdb",
| "d:sauvegardebase.mdb", True
|
|
| Tout marche, l'application et la base.
|
| Maintenant lorsque j'utilise cette ligne, il me répond que le chemin
| n'existe pas
|
| FFS.COPYFILE "d:baseamsdonneesasm.mdb",
| suite de la ligne de dessus "
| asmsamiradSauvegardeCompaqdonneesbase.mdb", True
|
| Si je le fais manuellement, il n'y a aucun problème, les chemins
| existent. Nom du PosteNom du partageNom du répertoireNom du sous
| répertoireNom de la base.mdb
|
| La question est la suivante: Où est ma connerie. Je sais je parle par
| euphémismes:)))))))))
|
| Merci encore pour votre patience.
Avatar
VroomVroom
Merci Arnaud de ta réponse,

Je ne pourrai te donner la réponse que lundi prochain.

Merci encore et bonne journée
"Anor" a écrit dans le message de
news:3f19102d$0$23704$
Bonjour VroomVroom,

Essaye 2 choses :

1 - mettre le chemin cible dans une variable et utiliser cette variable.

Dim strCible as string
strCible = "postecheminfichier.ext"


2 - vérifier que tes chemins sont corrects si tu fait :

Démarrer > exécuter
puis tu colles directement asmsamiradSauvegardeCompaqdonneesbase.mdb

Normalement s'il n'y a pas d'espace, ça roule.
S'il y a un espace dans le chemin, ça coince...

voilà je n'ai pas d'autre idée

--
à+
Arnaud
-------------------------------------------
Conseils d'utilisation, sites recommandés :
http://users.skynet.be/mpfa/
petit à petit, www.anor.fr.st fait son nid
-------------------------------------------




| Bonjour à tous,
|
| Excusez de vous reposer la question mais n'ayant pas eu de réponse,
| je me permets d'intervenir.
| Je fais une copie de fichier sur mon poste et sur un poste réseau.
| sur mon poste:
|
| Kill "d:sauvegarde*.*"
| Dim FS As Variant
| Set FS = CreateObject("SCRIPTiNG.FILESYSTEMOBJECT")
| FS.COPYFILE "d:applicationasmsimon.mdb", "d:sauvegardeappli.mdb",
| True FS.COPYFILE "d:baseasmdonneesasm.mdb",
| "d:sauvegardebase.mdb", True
|
|
| Tout marche, l'application et la base.
|
| Maintenant lorsque j'utilise cette ligne, il me répond que le chemin
| n'existe pas
|
| FFS.COPYFILE "d:baseamsdonneesasm.mdb",
| suite de la ligne de dessus "
| asmsamiradSauvegardeCompaqdonneesbase.mdb", True
|
| Si je le fais manuellement, il n'y a aucun problème, les chemins
| existent. Nom du PosteNom du partageNom du répertoireNom du sous
| répertoireNom de la base.mdb
|
| La question est la suivante: Où est ma connerie. Je sais je parle par
| euphémismes:)))))))))
|
| Merci encore pour votre patience.




Avatar
VroomVroom
J'ai oublié André, je ne pourrai te donner la réponse que Lundi.

Merci encore et à bientôt


"André AVONS" a écrit dans le message de
news:%
SAlut
Essaies avec la fonction copierfichier parfois ca marche mieux quand c'est
dans une variable
As tu les droits sur tous les sous repertoires
Et surtout dit moi le resultat
Copies ce qui suit dans nouveau module
Function CopierFichier(CheminAncienFichier As String, CheminNouveauFichier
As String) As Boolean

Dim fso As FileSystemObject

On Error GoTo CopierFichier_Error

Set fso = New FileSystemObject
fso.CopyFile CheminAncienFichier, CheminNouveauFichier

Set fso = Nothing
CopierFichier = True

Fin:
Exit Function

CopierFichier_Error:
CopierFichier = False
MsgBox "Erreur " & Err.Number & " (" & Err.Description & ") dans
procedure CopierFichier du Module Copier Renommer ou supprimer Les
fichiers"

Resume Fin
End Function
Function RenommerFichier(CheminAncienFichier As String,
CheminNouveauFichier

As String) As Boolean

Dim fso As FileSystemObject

On Error GoTo RenommerFichier_Error

Set fso = New FileSystemObject
fso.CopyFile CheminAncienFichier, CheminNouveauFichier
fso.DeleteFile CheminAncienFichier, True

Set fso = Nothing
RenommerFichier = True

Fin:
Exit Function

RenommerFichier_Error:
RenommerFichier = False
If Err = 70 Then
MsgBox "Erreur " & Err.Number & " (" & Err.Description & ")" & vbCrLf
_

& "Le fichier est peut être en cours d'utilisation" & vbCrLf _
& CheminAncienFichier
Else
MsgBox "Erreur " & Err.Number & " (" & Err.Description & ") dans
procedure RenommerFichier of Module Copier ou Renommer Les fichiers"
End If
Resume Fin
End Function
Function SupprimerFichier(CheminFichier As String) As Boolean

Dim fso As FileSystemObject

On Error GoTo SupprimerFichier_Error

Set fso = New FileSystemObject

fso.DeleteFile CheminFichier, True

Set fso = Nothing
SupprimerFichier = True

Fin:
Exit Function

SupprimerFichier_Error:
SupprimerFichier = False
If Err = 70 Then
MsgBox "Erreur " & Err.Number & " (" & Err.Description & ")" & vbCrLf
_

& "Le fichier est peut être en cours d'utilisation" & vbCrLf _
& CheminFichier
Else
MsgBox "Erreur " & Err.Number & " (" & Err.Description & ") dans
procedure RenommerFichier of Module Copier ou Renommer Les fichiers"
End If
Resume Fin
End Function

--
@+
André

Quelques liens avec des exemples, des utilitaires et des compléments pour
Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
"VroomVroom" a écrit dans le message de
news:3f190bdd$0$1977$
Bonjour à tous,

Excusez de vous reposer la question mais n'ayant pas eu de réponse, je
me


permets d'intervenir.
Je fais une copie de fichier sur mon poste et sur un poste réseau. sur
mon


poste:

Kill "d:sauvegarde*.*"
Dim FS As Variant
Set FS = CreateObject("SCRIPTiNG.FILESYSTEMOBJECT")
FS.COPYFILE "d:applicationasmsimon.mdb", "d:sauvegardeappli.mdb",
True


FS.COPYFILE "d:baseasmdonneesasm.mdb", "d:sauvegardebase.mdb", True


Tout marche, l'application et la base.

Maintenant lorsque j'utilise cette ligne, il me répond que le chemin
n'existe pas

FFS.COPYFILE "d:baseamsdonneesasm.mdb",
suite de la ligne de dessus "
asmsamiradSauvegardeCompaqdonneesbase.mdb", True

Si je le fais manuellement, il n'y a aucun problème, les chemins
existent.


Nom du PosteNom du partageNom du répertoireNom du sous
répertoireNom


de la base.mdb

La question est la suivante: Où est ma connerie. Je sais je parle par
euphémismes:)))))))))

Merci encore pour votre patience.