Désolé de répondre personnellement, mais j'ai perdu le fil:
Rappel sur un Copyfile, il refuse d'aller sur un autre poste.
Si je fais démarrer exe et je fais le même chemin, tout se passe bien il y
va.
J'ai remplacé le chemin par des variables, toujours rien.
Voilà les dernières nouvelles:((((((
Si l'un de vous est intéressé par une partie de cette base, je suis prêt
:))))))))))
Bonne journée et rendez-vous sur la plage, hôtel de ville, l'air est
meilleur
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
Anor
Bonjour,
Je ne me souviens plus du problème, alors je te suggère d'essayer avec cette méthode :
Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" _ (ByVal lpExistingFileName As String, _ ByVal lpNewFileName As String, _ ByVal bFailIfExists As Long) As Long
'Exemple d'utilisation :
Sub test() Dim strSource as string Dim strCible as string
CopyFile strSource,strCible,0 'pour écraser le fichier si existe 'ou CopyFile strSource,strCible,1 'annuler la copie si le fichier cible existe
end sub
A noter que dans les 2 cas, l'opération se déroule sans aucune boîte de dialogue ou confirmation. Par conséquent, il faudra te les rajouter toi même, du genre :
if dir(strcible)<>"" then if msgbox("voulez-vous écraser le fichier") = vb true then CopyFile strSource,strCible,0 else msgbox "opération annulée",vbokonly end if CopyFile strSource,strCible,1 end if
idem pour vérifier la non existance du fichier source et ne pas laisser croire qu'on a fait la sauvegarde.
| Salut à tous | | Désolé de répondre personnellement, mais j'ai perdu le fil: | Rappel sur un Copyfile, il refuse d'aller sur un autre poste. | Si je fais démarrer exe et je fais le même chemin, tout se passe bien | il y va. | J'ai remplacé le chemin par des variables, toujours rien. | | Voilà les dernières nouvelles:(((((( | | Si l'un de vous est intéressé par une partie de cette base, je suis | prêt :)))))))))) | | Bonne journée et rendez-vous sur la plage, hôtel de ville, l'air est | meilleur | | Bonne journée et merci
Bonjour,
Je ne me souviens plus du problème, alors je te suggère d'essayer avec cette méthode :
Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" _
(ByVal lpExistingFileName As String, _
ByVal lpNewFileName As String, _
ByVal bFailIfExists As Long) As Long
'Exemple d'utilisation :
Sub test()
Dim strSource as string
Dim strCible as string
CopyFile strSource,strCible,0 'pour écraser le fichier si existe
'ou
CopyFile strSource,strCible,1 'annuler la copie si le fichier cible existe
end sub
A noter que dans les 2 cas, l'opération se déroule sans aucune boîte de dialogue ou
confirmation.
Par conséquent, il faudra te les rajouter toi même, du genre :
if dir(strcible)<>"" then
if msgbox("voulez-vous écraser le fichier") = vb true then
CopyFile strSource,strCible,0
else
msgbox "opération annulée",vbokonly
end if
CopyFile strSource,strCible,1
end if
idem pour vérifier la non existance du fichier source et ne pas laisser croire qu'on a fait la
sauvegarde.
| Salut à tous
|
| Désolé de répondre personnellement, mais j'ai perdu le fil:
| Rappel sur un Copyfile, il refuse d'aller sur un autre poste.
| Si je fais démarrer exe et je fais le même chemin, tout se passe bien
| il y va.
| J'ai remplacé le chemin par des variables, toujours rien.
|
| Voilà les dernières nouvelles:((((((
|
| Si l'un de vous est intéressé par une partie de cette base, je suis
| prêt :))))))))))
|
| Bonne journée et rendez-vous sur la plage, hôtel de ville, l'air est
| meilleur
|
| Bonne journée et merci
Je ne me souviens plus du problème, alors je te suggère d'essayer avec cette méthode :
Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" _ (ByVal lpExistingFileName As String, _ ByVal lpNewFileName As String, _ ByVal bFailIfExists As Long) As Long
'Exemple d'utilisation :
Sub test() Dim strSource as string Dim strCible as string
CopyFile strSource,strCible,0 'pour écraser le fichier si existe 'ou CopyFile strSource,strCible,1 'annuler la copie si le fichier cible existe
end sub
A noter que dans les 2 cas, l'opération se déroule sans aucune boîte de dialogue ou confirmation. Par conséquent, il faudra te les rajouter toi même, du genre :
if dir(strcible)<>"" then if msgbox("voulez-vous écraser le fichier") = vb true then CopyFile strSource,strCible,0 else msgbox "opération annulée",vbokonly end if CopyFile strSource,strCible,1 end if
idem pour vérifier la non existance du fichier source et ne pas laisser croire qu'on a fait la sauvegarde.
| Salut à tous | | Désolé de répondre personnellement, mais j'ai perdu le fil: | Rappel sur un Copyfile, il refuse d'aller sur un autre poste. | Si je fais démarrer exe et je fais le même chemin, tout se passe bien | il y va. | J'ai remplacé le chemin par des variables, toujours rien. | | Voilà les dernières nouvelles:(((((( | | Si l'un de vous est intéressé par une partie de cette base, je suis | prêt :)))))))))) | | Bonne journée et rendez-vous sur la plage, hôtel de ville, l'air est | meilleur | | Bonne journée et merci
Jessy SEMPERE
Salut
Sinon il y a la méthode d'access "FileCopy" qui évitue d'utiliser l'API "CopyFile" ...
Un exemple ici d'utilisation de cette méthode ici : http://access.jessy.free.fr/index.html?Menu=6&Page=CopyFileDir
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Anor" a écrit dans le message news: 3f1cf1da$0$2004$
Bonjour,
Je ne me souviens plus du problème, alors je te suggère d'essayer avec cette méthode :
Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" _ (ByVal lpExistingFileName As String, _ ByVal lpNewFileName As String, _ ByVal bFailIfExists As Long) As Long
'Exemple d'utilisation :
Sub test() Dim strSource as string Dim strCible as string
CopyFile strSource,strCible,0 'pour écraser le fichier si existe 'ou CopyFile strSource,strCible,1 'annuler la copie si le fichier cible existe
end sub
A noter que dans les 2 cas, l'opération se déroule sans aucune boîte de dialogue ou
confirmation. Par conséquent, il faudra te les rajouter toi même, du genre :
if dir(strcible)<>"" then if msgbox("voulez-vous écraser le fichier") = vb true then CopyFile strSource,strCible,0 else msgbox "opération annulée",vbokonly end if CopyFile strSource,strCible,1 end if
idem pour vérifier la non existance du fichier source et ne pas laisser croire qu'on a fait la
| Salut à tous | | Désolé de répondre personnellement, mais j'ai perdu le fil: | Rappel sur un Copyfile, il refuse d'aller sur un autre poste. | Si je fais démarrer exe et je fais le même chemin, tout se passe bien | il y va. | J'ai remplacé le chemin par des variables, toujours rien. | | Voilà les dernières nouvelles:(((((( | | Si l'un de vous est intéressé par une partie de cette base, je suis | prêt :)))))))))) | | Bonne journée et rendez-vous sur la plage, hôtel de ville, l'air est | meilleur | | Bonne journée et merci
Salut
Sinon il y a la méthode d'access "FileCopy" qui évitue d'utiliser
l'API "CopyFile" ...
Un exemple ici d'utilisation de cette méthode ici :
http://access.jessy.free.fr/index.html?Menu=6&Page=CopyFileDir
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Anor" <nospam_news@anor.fr.st> a écrit dans le message news:
3f1cf1da$0$2004$626a54ce@news.free.fr...
Bonjour,
Je ne me souviens plus du problème, alors je te suggère d'essayer avec
cette méthode :
Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" _
(ByVal lpExistingFileName As String, _
ByVal lpNewFileName As String, _
ByVal bFailIfExists As Long) As Long
'Exemple d'utilisation :
Sub test()
Dim strSource as string
Dim strCible as string
CopyFile strSource,strCible,0 'pour écraser le fichier si existe
'ou
CopyFile strSource,strCible,1 'annuler la copie si le fichier cible existe
end sub
A noter que dans les 2 cas, l'opération se déroule sans aucune boîte de
dialogue ou
confirmation.
Par conséquent, il faudra te les rajouter toi même, du genre :
if dir(strcible)<>"" then
if msgbox("voulez-vous écraser le fichier") = vb true then
CopyFile strSource,strCible,0
else
msgbox "opération annulée",vbokonly
end if
CopyFile strSource,strCible,1
end if
idem pour vérifier la non existance du fichier source et ne pas laisser
croire qu'on a fait la
| Salut à tous
|
| Désolé de répondre personnellement, mais j'ai perdu le fil:
| Rappel sur un Copyfile, il refuse d'aller sur un autre poste.
| Si je fais démarrer exe et je fais le même chemin, tout se passe bien
| il y va.
| J'ai remplacé le chemin par des variables, toujours rien.
|
| Voilà les dernières nouvelles:((((((
|
| Si l'un de vous est intéressé par une partie de cette base, je suis
| prêt :))))))))))
|
| Bonne journée et rendez-vous sur la plage, hôtel de ville, l'air est
| meilleur
|
| Bonne journée et merci
Sinon il y a la méthode d'access "FileCopy" qui évitue d'utiliser l'API "CopyFile" ...
Un exemple ici d'utilisation de cette méthode ici : http://access.jessy.free.fr/index.html?Menu=6&Page=CopyFileDir
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Anor" a écrit dans le message news: 3f1cf1da$0$2004$
Bonjour,
Je ne me souviens plus du problème, alors je te suggère d'essayer avec cette méthode :
Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" _ (ByVal lpExistingFileName As String, _ ByVal lpNewFileName As String, _ ByVal bFailIfExists As Long) As Long
'Exemple d'utilisation :
Sub test() Dim strSource as string Dim strCible as string
CopyFile strSource,strCible,0 'pour écraser le fichier si existe 'ou CopyFile strSource,strCible,1 'annuler la copie si le fichier cible existe
end sub
A noter que dans les 2 cas, l'opération se déroule sans aucune boîte de dialogue ou
confirmation. Par conséquent, il faudra te les rajouter toi même, du genre :
if dir(strcible)<>"" then if msgbox("voulez-vous écraser le fichier") = vb true then CopyFile strSource,strCible,0 else msgbox "opération annulée",vbokonly end if CopyFile strSource,strCible,1 end if
idem pour vérifier la non existance du fichier source et ne pas laisser croire qu'on a fait la
| Salut à tous | | Désolé de répondre personnellement, mais j'ai perdu le fil: | Rappel sur un Copyfile, il refuse d'aller sur un autre poste. | Si je fais démarrer exe et je fais le même chemin, tout se passe bien | il y va. | J'ai remplacé le chemin par des variables, toujours rien. | | Voilà les dernières nouvelles:(((((( | | Si l'un de vous est intéressé par une partie de cette base, je suis | prêt :)))))))))) | | Bonne journée et rendez-vous sur la plage, hôtel de ville, l'air est | meilleur | | Bonne journée et merci
