existe t'il une facon permettant de deplacer un fichier d'un repertoire vers un
autre du style workbooks("Toto.xls").move.to repertoiredestinataire ?
sinon il vrai que je peux passer par un saveas puis un delete
des idees ?
merci
Denis
--
Ce message a ete poste via la plateforme Web club-Internet.fr
This message has been posted by the Web platform club-Internet.fr
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
papou
Bonjour Denis Avec le FileSystemObject (ajoute une référence à Microsoft Scripting Runtime): Dim fso As FileSystemObject fso.MoveFile "D:tot.xls", "c:tot.xls" Set fso = Nothing
Cordialement Pascal
"denis le breton" a écrit dans le message de news:
existe t'il une facon permettant de deplacer un fichier d'un repertoire vers un
autre du style workbooks("Toto.xls").move.to repertoiredestinataire ? sinon il vrai que je peux passer par un saveas puis un delete des idees ? merci Denis -- Ce message a ete poste via la plateforme Web club-Internet.fr This message has been posted by the Web platform club-Internet.fr
http://forums.club-internet.fr/
Bonjour Denis
Avec le FileSystemObject (ajoute une référence à Microsoft Scripting
Runtime):
Dim fso As FileSystemObject
fso.MoveFile "D:tot.xls", "c:tot.xls"
Set fso = Nothing
Cordialement
Pascal
"denis le breton" <pamayde@hotmail.fr> a écrit dans le message de news:
200447-93355-834007@foorum.com...
existe t'il une facon permettant de deplacer un fichier d'un repertoire
vers un
autre du style workbooks("Toto.xls").move.to repertoiredestinataire ?
sinon il vrai que je peux passer par un saveas puis un delete
des idees ?
merci
Denis
--
Ce message a ete poste via la plateforme Web club-Internet.fr
This message has been posted by the Web platform club-Internet.fr
Bonjour Denis Avec le FileSystemObject (ajoute une référence à Microsoft Scripting Runtime): Dim fso As FileSystemObject fso.MoveFile "D:tot.xls", "c:tot.xls" Set fso = Nothing
Cordialement Pascal
"denis le breton" a écrit dans le message de news:
existe t'il une facon permettant de deplacer un fichier d'un repertoire vers un
autre du style workbooks("Toto.xls").move.to repertoiredestinataire ? sinon il vrai que je peux passer par un saveas puis un delete des idees ? merci Denis -- Ce message a ete poste via la plateforme Web club-Internet.fr This message has been posted by the Web platform club-Internet.fr
http://forums.club-internet.fr/
denis le breton
Merci pascal, mais j'ai un bleme excel m'agresse verbalement par une erreur de compilation: et Type defini par l'utilisateur non defini sur fso As FileSystemObject KESAKO PS excel 2000 sur W2000 -- Ce message a ete poste via la plateforme Web club-Internet.fr This message has been posted by the Web platform club-Internet.fr
http://forums.club-internet.fr/
Merci pascal, mais j'ai un bleme
excel m'agresse verbalement par une
erreur de compilation:
et
Type defini par l'utilisateur non defini
sur
fso As FileSystemObject
KESAKO
PS excel 2000 sur W2000
--
Ce message a ete poste via la plateforme Web club-Internet.fr
This message has been posted by the Web platform club-Internet.fr
Merci pascal, mais j'ai un bleme excel m'agresse verbalement par une erreur de compilation: et Type defini par l'utilisateur non defini sur fso As FileSystemObject KESAKO PS excel 2000 sur W2000 -- Ce message a ete poste via la plateforme Web club-Internet.fr This message has been posted by the Web platform club-Internet.fr
http://forums.club-internet.fr/
papou
Re Tu dois faire référence à Microsoft Scripting Runtime : Dans VBA : Outils, Références et cocher la ligne Microsoft Scripting RunTime Cordialement Pascal
"denis le breton" a écrit dans le message de news:
Merci pascal, mais j'ai un bleme excel m'agresse verbalement par une erreur de compilation: et Type defini par l'utilisateur non defini sur fso As FileSystemObject KESAKO PS excel 2000 sur W2000 -- Ce message a ete poste via la plateforme Web club-Internet.fr This message has been posted by the Web platform club-Internet.fr
http://forums.club-internet.fr/
Re
Tu dois faire référence à Microsoft Scripting Runtime :
Dans VBA : Outils, Références et cocher la ligne Microsoft Scripting RunTime
Cordialement
Pascal
"denis le breton" <pamayde@hotmail.fr> a écrit dans le message de news:
200447-11921-900749@foorum.com...
Merci pascal, mais j'ai un bleme
excel m'agresse verbalement par une
erreur de compilation:
et
Type defini par l'utilisateur non defini
sur
fso As FileSystemObject
KESAKO
PS excel 2000 sur W2000
--
Ce message a ete poste via la plateforme Web club-Internet.fr
This message has been posted by the Web platform club-Internet.fr
Re Tu dois faire référence à Microsoft Scripting Runtime : Dans VBA : Outils, Références et cocher la ligne Microsoft Scripting RunTime Cordialement Pascal
"denis le breton" a écrit dans le message de news:
Merci pascal, mais j'ai un bleme excel m'agresse verbalement par une erreur de compilation: et Type defini par l'utilisateur non defini sur fso As FileSystemObject KESAKO PS excel 2000 sur W2000 -- Ce message a ete poste via la plateforme Web club-Internet.fr This message has been posted by the Web platform club-Internet.fr
http://forums.club-internet.fr/
papou
Heu ! Modifie Dim fso As FileSystemObject Par Dim fso As New FileSystemObject
Pardon ! Cordialement Pascal
"papou" a écrit dans le message de news:
Re Tu dois faire référence à Microsoft Scripting Runtime : Dans VBA : Outils, Références et cocher la ligne Microsoft Scripting RunTime
Cordialement Pascal
"denis le breton" a écrit dans le message de news:
Merci pascal, mais j'ai un bleme excel m'agresse verbalement par une erreur de compilation: et Type defini par l'utilisateur non defini sur fso As FileSystemObject KESAKO PS excel 2000 sur W2000 -- Ce message a ete poste via la plateforme Web club-Internet.fr This message has been posted by the Web platform club-Internet.fr
http://forums.club-internet.fr/
Heu !
Modifie Dim fso As FileSystemObject
Par Dim fso As New FileSystemObject
Pardon !
Cordialement
Pascal
"papou" <OterCeciprobin@OterCeciCG44.fr> a écrit dans le message de news:
uOLaBWIHEHA.2668@TK2MSFTNGP10.phx.gbl...
Re
Tu dois faire référence à Microsoft Scripting Runtime :
Dans VBA : Outils, Références et cocher la ligne Microsoft Scripting
RunTime
Cordialement
Pascal
"denis le breton" <pamayde@hotmail.fr> a écrit dans le message de news:
200447-11921-900749@foorum.com...
Merci pascal, mais j'ai un bleme
excel m'agresse verbalement par une
erreur de compilation:
et
Type defini par l'utilisateur non defini
sur
fso As FileSystemObject
KESAKO
PS excel 2000 sur W2000
--
Ce message a ete poste via la plateforme Web club-Internet.fr
This message has been posted by the Web platform club-Internet.fr
Heu ! Modifie Dim fso As FileSystemObject Par Dim fso As New FileSystemObject
Pardon ! Cordialement Pascal
"papou" a écrit dans le message de news:
Re Tu dois faire référence à Microsoft Scripting Runtime : Dans VBA : Outils, Références et cocher la ligne Microsoft Scripting RunTime
Cordialement Pascal
"denis le breton" a écrit dans le message de news:
Merci pascal, mais j'ai un bleme excel m'agresse verbalement par une erreur de compilation: et Type defini par l'utilisateur non defini sur fso As FileSystemObject KESAKO PS excel 2000 sur W2000 -- Ce message a ete poste via la plateforme Web club-Internet.fr This message has been posted by the Web platform club-Internet.fr
http://forums.club-internet.fr/
Clément Marcotte
http://dj.joss.free.fr/move.htm
"denis le breton" a écrit dans le message de news:
existe t'il une facon permettant de deplacer un fichier d'un repertoire vers un
autre du style workbooks("Toto.xls").move.to repertoiredestinataire ?
sinon il vrai que je peux passer par un saveas puis un delete des idees ? merci Denis -- Ce message a ete poste via la plateforme Web club-Internet.fr This message has been posted by the Web platform club-Internet.fr
http://forums.club-internet.fr/
http://dj.joss.free.fr/move.htm
"denis le breton" <pamayde@hotmail.fr> a écrit dans le message de
news:200447-93355-834007@foorum.com...
existe t'il une facon permettant de deplacer un fichier d'un
repertoire vers un
autre du style workbooks("Toto.xls").move.to repertoiredestinataire
?
sinon il vrai que je peux passer par un saveas puis un delete
des idees ?
merci
Denis
--
Ce message a ete poste via la plateforme Web club-Internet.fr
This message has been posted by the Web platform club-Internet.fr
"denis le breton" a écrit dans le message de news:
existe t'il une facon permettant de deplacer un fichier d'un repertoire vers un
autre du style workbooks("Toto.xls").move.to repertoiredestinataire ?
sinon il vrai que je peux passer par un saveas puis un delete des idees ? merci Denis -- Ce message a ete poste via la plateforme Web club-Internet.fr This message has been posted by the Web platform club-Internet.fr
http://forums.club-internet.fr/
denis le breton
Merci a vous deux pascal et clement, vous etes des sources d'informations toujours tres pertinentes pour ma part j'apporte ma contribution de temps en temps en resume voici la solution adotee, integrant la verification de l'existence du fichier a deplacer ' definition du chemin d'acces au fichier a sortir NomOrigine = Origine & ficsortie NomDestination = Destination & ficsortie 'test existence du fichier de sauvegarde If Dir(NomOrigine) = "" Then MsgBox (" Aucun fichier portant le nom " & ficsortie & " n'existe ! Il est impossible de le deplacer, modifiez le prenom !") Exit Sub Else End If Dim fso As FileSystemObject Set fso = CreateObject("Scripting.FileSystemObject") fso.MoveFile NomOrigine, NomDestination Set fso = Nothing
cela a l'avantage de fonctionner dans une macro une peu plus longue. Cordialement et encore merci Denis -- Ce message a ete poste via la plateforme Web club-Internet.fr This message has been posted by the Web platform club-Internet.fr
http://forums.club-internet.fr/
Merci a vous deux pascal et clement, vous etes des sources d'informations
toujours tres pertinentes pour ma part j'apporte ma contribution de temps en
temps
en resume voici la solution adotee, integrant la verification de l'existence du
fichier a deplacer
' definition du chemin d'acces au fichier a sortir
NomOrigine = Origine & ficsortie
NomDestination = Destination & ficsortie
'test existence du fichier de sauvegarde
If Dir(NomOrigine) = "" Then
MsgBox (" Aucun fichier portant le nom " & ficsortie & " n'existe ! Il est
impossible de le deplacer, modifiez le prenom !")
Exit Sub
Else
End If
Dim fso As FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")
fso.MoveFile NomOrigine, NomDestination
Set fso = Nothing
cela a l'avantage de fonctionner dans une macro une peu plus longue.
Cordialement
et encore merci
Denis
--
Ce message a ete poste via la plateforme Web club-Internet.fr
This message has been posted by the Web platform club-Internet.fr
Merci a vous deux pascal et clement, vous etes des sources d'informations toujours tres pertinentes pour ma part j'apporte ma contribution de temps en temps en resume voici la solution adotee, integrant la verification de l'existence du fichier a deplacer ' definition du chemin d'acces au fichier a sortir NomOrigine = Origine & ficsortie NomDestination = Destination & ficsortie 'test existence du fichier de sauvegarde If Dir(NomOrigine) = "" Then MsgBox (" Aucun fichier portant le nom " & ficsortie & " n'existe ! Il est impossible de le deplacer, modifiez le prenom !") Exit Sub Else End If Dim fso As FileSystemObject Set fso = CreateObject("Scripting.FileSystemObject") fso.MoveFile NomOrigine, NomDestination Set fso = Nothing
cela a l'avantage de fonctionner dans une macro une peu plus longue. Cordialement et encore merci Denis -- Ce message a ete poste via la plateforme Web club-Internet.fr This message has been posted by the Web platform club-Internet.fr
