Bonjour le monde,
Sous Vista, Excel 2003, j'ai sur mon PC un dossier "Trésorier" qui contient
des sous-dossiers (nombreux) et des fichiers (beaucoup), qui sont des .xls
mais pas seulement (.doc, .jpg, .txt aussi)
J'ai souvent besoin de trimballer tels ou tels fichiers pendant quelques
jours en les travaillant sur plusieurs bécanes sucessives. J'ai donc créé un
dossier "EN COURS" sur une clé USB.
Quand les fichiers sont "stabilisés" (fin provisoire d'une phase de boulot
sur eux), je les ramène sur mon ordi et je les range dans "C:Trésorier" en
les supprimant de la clé USB. (où ils seront remplacés plus tard par une
nouvelle vague de fichiers d'actualité).
Normalement je fais ça "à la main" en utilisant couper coller de Windows
Explorer, mais comme il y en a beaucoup je voudrais procéder par une macro
qui vide"EN COURS" de tous ses fichiers et les remettent à leur place dans
"C:Trésorier".
Quel code peut couper dans le dossier "EN COURS" le fichier "LesSous.xls"
récemment travaillé et le coller dans le dossier "C:TrésorierBanque" ? (en
écrasant bien sûr le fichier antérieur)
Précision : grâce à ceux qui aident ici (merci FdeCourt) j'ai eu une macro
Excel qui me liste sans problème dans une feuille Excel, la liste complète
des fichiers de "CTrésorier" avec leur chemin d'accès complet, et idem pour
EN COURS évidemment. Mon seul problème (enfin je crois) est de couper coller
les fichiers nomades.
Et est ce que ça peut marcher avec les .doc, .jpg, .txt ?
J'espère que j'ai bien expliqué ?
Cordialement, Mabouille
Bonjour le monde,
Sous Vista, Excel 2003, j'ai sur mon PC un dossier "Trésorier" qui contient
des sous-dossiers (nombreux) et des fichiers (beaucoup), qui sont des .xls
mais pas seulement (.doc, .jpg, .txt aussi)
J'ai souvent besoin de trimballer tels ou tels fichiers pendant quelques
jours en les travaillant sur plusieurs bécanes sucessives. J'ai donc créé un
dossier "EN COURS" sur une clé USB.
Quand les fichiers sont "stabilisés" (fin provisoire d'une phase de boulot
sur eux), je les ramène sur mon ordi et je les range dans "C:Trésorier" en
les supprimant de la clé USB. (où ils seront remplacés plus tard par une
nouvelle vague de fichiers d'actualité).
Normalement je fais ça "à la main" en utilisant couper coller de Windows
Explorer, mais comme il y en a beaucoup je voudrais procéder par une macro
qui vide"EN COURS" de tous ses fichiers et les remettent à leur place dans
"C:Trésorier".
Quel code peut couper dans le dossier "EN COURS" le fichier "LesSous.xls"
récemment travaillé et le coller dans le dossier "C:TrésorierBanque" ? (en
écrasant bien sûr le fichier antérieur)
Précision : grâce à ceux qui aident ici (merci FdeCourt) j'ai eu une macro
Excel qui me liste sans problème dans une feuille Excel, la liste complète
des fichiers de "CTrésorier" avec leur chemin d'accès complet, et idem pour
EN COURS évidemment. Mon seul problème (enfin je crois) est de couper coller
les fichiers nomades.
Et est ce que ça peut marcher avec les .doc, .jpg, .txt ?
J'espère que j'ai bien expliqué ?
Cordialement, Mabouille
Bonjour le monde,
Sous Vista, Excel 2003, j'ai sur mon PC un dossier "Trésorier" qui contient
des sous-dossiers (nombreux) et des fichiers (beaucoup), qui sont des .xls
mais pas seulement (.doc, .jpg, .txt aussi)
J'ai souvent besoin de trimballer tels ou tels fichiers pendant quelques
jours en les travaillant sur plusieurs bécanes sucessives. J'ai donc créé un
dossier "EN COURS" sur une clé USB.
Quand les fichiers sont "stabilisés" (fin provisoire d'une phase de boulot
sur eux), je les ramène sur mon ordi et je les range dans "C:Trésorier" en
les supprimant de la clé USB. (où ils seront remplacés plus tard par une
nouvelle vague de fichiers d'actualité).
Normalement je fais ça "à la main" en utilisant couper coller de Windows
Explorer, mais comme il y en a beaucoup je voudrais procéder par une macro
qui vide"EN COURS" de tous ses fichiers et les remettent à leur place dans
"C:Trésorier".
Quel code peut couper dans le dossier "EN COURS" le fichier "LesSous.xls"
récemment travaillé et le coller dans le dossier "C:TrésorierBanque" ? (en
écrasant bien sûr le fichier antérieur)
Précision : grâce à ceux qui aident ici (merci FdeCourt) j'ai eu une macro
Excel qui me liste sans problème dans une feuille Excel, la liste complète
des fichiers de "CTrésorier" avec leur chemin d'accès complet, et idem pour
EN COURS évidemment. Mon seul problème (enfin je crois) est de couper coller
les fichiers nomades.
Et est ce que ça peut marcher avec les .doc, .jpg, .txt ?
J'espère que j'ai bien expliqué ?
Cordialement, Mabouille
Bonjour.
Utilise l'instruction Name. Si tu as des problèmes pour l'adapter à ton
code, publie celui-ci.
Cordialement.
DanielBonjour le monde,
Sous Vista, Excel 2003, j'ai sur mon PC un dossier "Trésorier" qui
contient des sous-dossiers (nombreux) et des fichiers (beaucoup), qui
sont des .xls mais pas seulement (.doc, .jpg, .txt aussi)
J'ai souvent besoin de trimballer tels ou tels fichiers pendant quelques
jours en les travaillant sur plusieurs bécanes sucessives. J'ai donc créé
un dossier "EN COURS" sur une clé USB.
Quand les fichiers sont "stabilisés" (fin provisoire d'une phase de
boulot sur eux), je les ramène sur mon ordi et je les range dans
"C:Trésorier" en les supprimant de la clé USB. (où ils seront remplacés
plus tard par une nouvelle vague de fichiers d'actualité).
Normalement je fais ça "à la main" en utilisant couper coller de Windows
Explorer, mais comme il y en a beaucoup je voudrais procéder par une
macro qui vide"EN COURS" de tous ses fichiers et les remettent à leur
place dans "C:Trésorier".
Quel code peut couper dans le dossier "EN COURS" le fichier
"LesSous.xls" récemment travaillé et le coller dans le dossier
"C:TrésorierBanque" ? (en écrasant bien sûr le fichier antérieur)
Précision : grâce à ceux qui aident ici (merci FdeCourt) j'ai eu une
macro Excel qui me liste sans problème dans une feuille Excel, la liste
complète des fichiers de "CTrésorier" avec leur chemin d'accès complet,
et idem pour EN COURS évidemment. Mon seul problème (enfin je crois) est
de couper coller les fichiers nomades.
Et est ce que ça peut marcher avec les .doc, .jpg, .txt ?
J'espère que j'ai bien expliqué ?
Cordialement, Mabouille
Bonjour.
Utilise l'instruction Name. Si tu as des problèmes pour l'adapter à ton
code, publie celui-ci.
Cordialement.
Daniel
Bonjour le monde,
Sous Vista, Excel 2003, j'ai sur mon PC un dossier "Trésorier" qui
contient des sous-dossiers (nombreux) et des fichiers (beaucoup), qui
sont des .xls mais pas seulement (.doc, .jpg, .txt aussi)
J'ai souvent besoin de trimballer tels ou tels fichiers pendant quelques
jours en les travaillant sur plusieurs bécanes sucessives. J'ai donc créé
un dossier "EN COURS" sur une clé USB.
Quand les fichiers sont "stabilisés" (fin provisoire d'une phase de
boulot sur eux), je les ramène sur mon ordi et je les range dans
"C:Trésorier" en les supprimant de la clé USB. (où ils seront remplacés
plus tard par une nouvelle vague de fichiers d'actualité).
Normalement je fais ça "à la main" en utilisant couper coller de Windows
Explorer, mais comme il y en a beaucoup je voudrais procéder par une
macro qui vide"EN COURS" de tous ses fichiers et les remettent à leur
place dans "C:Trésorier".
Quel code peut couper dans le dossier "EN COURS" le fichier
"LesSous.xls" récemment travaillé et le coller dans le dossier
"C:TrésorierBanque" ? (en écrasant bien sûr le fichier antérieur)
Précision : grâce à ceux qui aident ici (merci FdeCourt) j'ai eu une
macro Excel qui me liste sans problème dans une feuille Excel, la liste
complète des fichiers de "CTrésorier" avec leur chemin d'accès complet,
et idem pour EN COURS évidemment. Mon seul problème (enfin je crois) est
de couper coller les fichiers nomades.
Et est ce que ça peut marcher avec les .doc, .jpg, .txt ?
J'espère que j'ai bien expliqué ?
Cordialement, Mabouille
Bonjour.
Utilise l'instruction Name. Si tu as des problèmes pour l'adapter à ton
code, publie celui-ci.
Cordialement.
DanielBonjour le monde,
Sous Vista, Excel 2003, j'ai sur mon PC un dossier "Trésorier" qui
contient des sous-dossiers (nombreux) et des fichiers (beaucoup), qui
sont des .xls mais pas seulement (.doc, .jpg, .txt aussi)
J'ai souvent besoin de trimballer tels ou tels fichiers pendant quelques
jours en les travaillant sur plusieurs bécanes sucessives. J'ai donc créé
un dossier "EN COURS" sur une clé USB.
Quand les fichiers sont "stabilisés" (fin provisoire d'une phase de
boulot sur eux), je les ramène sur mon ordi et je les range dans
"C:Trésorier" en les supprimant de la clé USB. (où ils seront remplacés
plus tard par une nouvelle vague de fichiers d'actualité).
Normalement je fais ça "à la main" en utilisant couper coller de Windows
Explorer, mais comme il y en a beaucoup je voudrais procéder par une
macro qui vide"EN COURS" de tous ses fichiers et les remettent à leur
place dans "C:Trésorier".
Quel code peut couper dans le dossier "EN COURS" le fichier
"LesSous.xls" récemment travaillé et le coller dans le dossier
"C:TrésorierBanque" ? (en écrasant bien sûr le fichier antérieur)
Précision : grâce à ceux qui aident ici (merci FdeCourt) j'ai eu une
macro Excel qui me liste sans problème dans une feuille Excel, la liste
complète des fichiers de "CTrésorier" avec leur chemin d'accès complet,
et idem pour EN COURS évidemment. Mon seul problème (enfin je crois) est
de couper coller les fichiers nomades.
Et est ce que ça peut marcher avec les .doc, .jpg, .txt ?
J'espère que j'ai bien expliqué ?
Cordialement, Mabouille
Bonjour,
La procédure ne prévoit qu'une clé d'installer au moment
de procéder.
La procédure suivante va recréer sur la clé le chemin indiqué
dans la procédure qui est le même que le répertoire à copier
"Chemin = "UsersDMDocumentstest1""
Si ce chemin existe déjà, elle ne touchera à rien. Elle fait seulement
ajouter les répertoires du chemin manquants.
Elle copiera tous les répertoires, sous-répertoires et fichiers du
répertoire "Test1" en écrasant si besoin sans rien demander.
À partir de cette procédure, il est facile de faire une routine
faisant l'inverse, de la clé au disque dur.
'-------------------------------------------
Sub test()
Dim LecteurSource As String, Prêt As Boolean
Dim LecteurDestination As String
Dim Chemin As String
'***********Variables à renseigner*********
LecteurSource = "c:"
Chemin = "UsersDMDocumentstest1"
'*******************************************
LecteurDestination = RemovableDisk(LecteurSource)
If LecteurDestination <> "" Then
Prêt = EstPret(LecteurDestination)
If Prêt = False Then
MsgBox "Le lecteur amovible n'est pas prêt."
Exit Sub
End If
Else
MsgBox "Aucun disque amovible détecté."
Exit Sub
End If
'Création du répertoire si nécessaire
Creer_Chemin LecteurDestination, LecteurDestination & Chemin
'Copie des fichiers vers la destination
Commande = Environ("comspec") & " /c Xcopy /S/E/Y " & _
LecteurSource & Chemin & " " & LecteurDestination & Chemin & ""
Shell Commande, 0
End Sub
'-------------------------------------------
Function RemovableDisk(MonLecteur As String)
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!" & _
strComputer & "rootcimv2")
Set colDisks = objWMIService.ExecQuery _
("Select * from Win32_LogicalDisk")
For Each Objdisk In colDisks
'2 constante numérique pour disque dur "removable"
If Objdisk.DriveType = 2 Then
RemovableDisk = Objdisk.Name & ""
Exit Function
End If
Next
End Function
'-------------------------------------------
Function EstPret(Lecteur As String)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set colDrives = objFSO.Drives
For Each objdrive In colDrives
If Lecteur = objdrive & "" Then
If objdrive.IsReady = True Then
EstPret = objdrive.IsReady
End If
End If
Next
End Function
'-------------------------------------------
Sub Creer_Chemin(Racine, Chemin As String)
Dim Commande As String
'Crée le chemin indiqué si les répertoires ne
'sont pas présents. N'écrase rien !
ChDrive Racine
Commande = Environ("comspec") & " /c mkdir " & Chemin
Shell Commande, 0
End Sub
'-------------------------------------------
"mabouille" a écrit dans le message de
groupe de
discussion : #
Bonjour le monde,
Sous Vista, Excel 2003, j'ai sur mon PC un dossier "Trésorier" qui
contient
des sous-dossiers (nombreux) et des fichiers (beaucoup), qui sont des .xls
mais pas seulement (.doc, .jpg, .txt aussi)
J'ai souvent besoin de trimballer tels ou tels fichiers pendant quelques
jours en les travaillant sur plusieurs bécanes sucessives. J'ai donc créé
un
dossier "EN COURS" sur une clé USB.
Quand les fichiers sont "stabilisés" (fin provisoire d'une phase de boulot
sur eux), je les ramène sur mon ordi et je les range dans "C:Trésorier"
en
les supprimant de la clé USB. (où ils seront remplacés plus tard par une
nouvelle vague de fichiers d'actualité).
Normalement je fais ça "à la main" en utilisant couper coller de Windows
Explorer, mais comme il y en a beaucoup je voudrais procéder par une macro
qui vide"EN COURS" de tous ses fichiers et les remettent à leur place dans
"C:Trésorier".
Quel code peut couper dans le dossier "EN COURS" le fichier "LesSous.xls"
récemment travaillé et le coller dans le dossier "C:TrésorierBanque" ?
(en
écrasant bien sûr le fichier antérieur)
Précision : grâce à ceux qui aident ici (merci FdeCourt) j'ai eu une macro
Excel qui me liste sans problème dans une feuille Excel, la liste complète
des fichiers de "CTrésorier" avec leur chemin d'accès complet, et idem
pour
EN COURS évidemment. Mon seul problème (enfin je crois) est de couper
coller
les fichiers nomades.
Et est ce que ça peut marcher avec les .doc, .jpg, .txt ?
J'espère que j'ai bien expliqué ?
Cordialement, Mabouille
Bonjour,
La procédure ne prévoit qu'une clé d'installer au moment
de procéder.
La procédure suivante va recréer sur la clé le chemin indiqué
dans la procédure qui est le même que le répertoire à copier
"Chemin = "UsersDMDocumentstest1""
Si ce chemin existe déjà, elle ne touchera à rien. Elle fait seulement
ajouter les répertoires du chemin manquants.
Elle copiera tous les répertoires, sous-répertoires et fichiers du
répertoire "Test1" en écrasant si besoin sans rien demander.
À partir de cette procédure, il est facile de faire une routine
faisant l'inverse, de la clé au disque dur.
'-------------------------------------------
Sub test()
Dim LecteurSource As String, Prêt As Boolean
Dim LecteurDestination As String
Dim Chemin As String
'***********Variables à renseigner*********
LecteurSource = "c:"
Chemin = "UsersDMDocumentstest1"
'*******************************************
LecteurDestination = RemovableDisk(LecteurSource)
If LecteurDestination <> "" Then
Prêt = EstPret(LecteurDestination)
If Prêt = False Then
MsgBox "Le lecteur amovible n'est pas prêt."
Exit Sub
End If
Else
MsgBox "Aucun disque amovible détecté."
Exit Sub
End If
'Création du répertoire si nécessaire
Creer_Chemin LecteurDestination, LecteurDestination & Chemin
'Copie des fichiers vers la destination
Commande = Environ("comspec") & " /c Xcopy /S/E/Y " & _
LecteurSource & Chemin & " " & LecteurDestination & Chemin & ""
Shell Commande, 0
End Sub
'-------------------------------------------
Function RemovableDisk(MonLecteur As String)
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & _
strComputer & "rootcimv2")
Set colDisks = objWMIService.ExecQuery _
("Select * from Win32_LogicalDisk")
For Each Objdisk In colDisks
'2 constante numérique pour disque dur "removable"
If Objdisk.DriveType = 2 Then
RemovableDisk = Objdisk.Name & ""
Exit Function
End If
Next
End Function
'-------------------------------------------
Function EstPret(Lecteur As String)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set colDrives = objFSO.Drives
For Each objdrive In colDrives
If Lecteur = objdrive & "" Then
If objdrive.IsReady = True Then
EstPret = objdrive.IsReady
End If
End If
Next
End Function
'-------------------------------------------
Sub Creer_Chemin(Racine, Chemin As String)
Dim Commande As String
'Crée le chemin indiqué si les répertoires ne
'sont pas présents. N'écrase rien !
ChDrive Racine
Commande = Environ("comspec") & " /c mkdir " & Chemin
Shell Commande, 0
End Sub
'-------------------------------------------
"mabouille" <pierre.garnier4@libertysurf.fr> a écrit dans le message de
groupe de
discussion : #7q7X2EwKHA.4196@TK2MSFTNGP02.phx.gbl...
Bonjour le monde,
Sous Vista, Excel 2003, j'ai sur mon PC un dossier "Trésorier" qui
contient
des sous-dossiers (nombreux) et des fichiers (beaucoup), qui sont des .xls
mais pas seulement (.doc, .jpg, .txt aussi)
J'ai souvent besoin de trimballer tels ou tels fichiers pendant quelques
jours en les travaillant sur plusieurs bécanes sucessives. J'ai donc créé
un
dossier "EN COURS" sur une clé USB.
Quand les fichiers sont "stabilisés" (fin provisoire d'une phase de boulot
sur eux), je les ramène sur mon ordi et je les range dans "C:Trésorier"
en
les supprimant de la clé USB. (où ils seront remplacés plus tard par une
nouvelle vague de fichiers d'actualité).
Normalement je fais ça "à la main" en utilisant couper coller de Windows
Explorer, mais comme il y en a beaucoup je voudrais procéder par une macro
qui vide"EN COURS" de tous ses fichiers et les remettent à leur place dans
"C:Trésorier".
Quel code peut couper dans le dossier "EN COURS" le fichier "LesSous.xls"
récemment travaillé et le coller dans le dossier "C:TrésorierBanque" ?
(en
écrasant bien sûr le fichier antérieur)
Précision : grâce à ceux qui aident ici (merci FdeCourt) j'ai eu une macro
Excel qui me liste sans problème dans une feuille Excel, la liste complète
des fichiers de "CTrésorier" avec leur chemin d'accès complet, et idem
pour
EN COURS évidemment. Mon seul problème (enfin je crois) est de couper
coller
les fichiers nomades.
Et est ce que ça peut marcher avec les .doc, .jpg, .txt ?
J'espère que j'ai bien expliqué ?
Cordialement, Mabouille
Bonjour,
La procédure ne prévoit qu'une clé d'installer au moment
de procéder.
La procédure suivante va recréer sur la clé le chemin indiqué
dans la procédure qui est le même que le répertoire à copier
"Chemin = "UsersDMDocumentstest1""
Si ce chemin existe déjà, elle ne touchera à rien. Elle fait seulement
ajouter les répertoires du chemin manquants.
Elle copiera tous les répertoires, sous-répertoires et fichiers du
répertoire "Test1" en écrasant si besoin sans rien demander.
À partir de cette procédure, il est facile de faire une routine
faisant l'inverse, de la clé au disque dur.
'-------------------------------------------
Sub test()
Dim LecteurSource As String, Prêt As Boolean
Dim LecteurDestination As String
Dim Chemin As String
'***********Variables à renseigner*********
LecteurSource = "c:"
Chemin = "UsersDMDocumentstest1"
'*******************************************
LecteurDestination = RemovableDisk(LecteurSource)
If LecteurDestination <> "" Then
Prêt = EstPret(LecteurDestination)
If Prêt = False Then
MsgBox "Le lecteur amovible n'est pas prêt."
Exit Sub
End If
Else
MsgBox "Aucun disque amovible détecté."
Exit Sub
End If
'Création du répertoire si nécessaire
Creer_Chemin LecteurDestination, LecteurDestination & Chemin
'Copie des fichiers vers la destination
Commande = Environ("comspec") & " /c Xcopy /S/E/Y " & _
LecteurSource & Chemin & " " & LecteurDestination & Chemin & ""
Shell Commande, 0
End Sub
'-------------------------------------------
Function RemovableDisk(MonLecteur As String)
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!" & _
strComputer & "rootcimv2")
Set colDisks = objWMIService.ExecQuery _
("Select * from Win32_LogicalDisk")
For Each Objdisk In colDisks
'2 constante numérique pour disque dur "removable"
If Objdisk.DriveType = 2 Then
RemovableDisk = Objdisk.Name & ""
Exit Function
End If
Next
End Function
'-------------------------------------------
Function EstPret(Lecteur As String)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set colDrives = objFSO.Drives
For Each objdrive In colDrives
If Lecteur = objdrive & "" Then
If objdrive.IsReady = True Then
EstPret = objdrive.IsReady
End If
End If
Next
End Function
'-------------------------------------------
Sub Creer_Chemin(Racine, Chemin As String)
Dim Commande As String
'Crée le chemin indiqué si les répertoires ne
'sont pas présents. N'écrase rien !
ChDrive Racine
Commande = Environ("comspec") & " /c mkdir " & Chemin
Shell Commande, 0
End Sub
'-------------------------------------------
"mabouille" a écrit dans le message de
groupe de
discussion : #
Bonjour le monde,
Sous Vista, Excel 2003, j'ai sur mon PC un dossier "Trésorier" qui
contient
des sous-dossiers (nombreux) et des fichiers (beaucoup), qui sont des .xls
mais pas seulement (.doc, .jpg, .txt aussi)
J'ai souvent besoin de trimballer tels ou tels fichiers pendant quelques
jours en les travaillant sur plusieurs bécanes sucessives. J'ai donc créé
un
dossier "EN COURS" sur une clé USB.
Quand les fichiers sont "stabilisés" (fin provisoire d'une phase de boulot
sur eux), je les ramène sur mon ordi et je les range dans "C:Trésorier"
en
les supprimant de la clé USB. (où ils seront remplacés plus tard par une
nouvelle vague de fichiers d'actualité).
Normalement je fais ça "à la main" en utilisant couper coller de Windows
Explorer, mais comme il y en a beaucoup je voudrais procéder par une macro
qui vide"EN COURS" de tous ses fichiers et les remettent à leur place dans
"C:Trésorier".
Quel code peut couper dans le dossier "EN COURS" le fichier "LesSous.xls"
récemment travaillé et le coller dans le dossier "C:TrésorierBanque" ?
(en
écrasant bien sûr le fichier antérieur)
Précision : grâce à ceux qui aident ici (merci FdeCourt) j'ai eu une macro
Excel qui me liste sans problème dans une feuille Excel, la liste complète
des fichiers de "CTrésorier" avec leur chemin d'accès complet, et idem
pour
EN COURS évidemment. Mon seul problème (enfin je crois) est de couper
coller
les fichiers nomades.
Et est ce que ça peut marcher avec les .doc, .jpg, .txt ?
J'espère que j'ai bien expliqué ?
Cordialement, Mabouille
Bonjour,
Je ne vois pas , est ce que tu peux me donner une piste, un début de code,
pour cette utilisation de Name ?
Merci
Cordialement
Mabouille
"Daniel.C" a écrit dans le message de
news:OEWxe$Bonjour.
Utilise l'instruction Name. Si tu as des problèmes pour l'adapter à ton
code, publie celui-ci.
Cordialement.
DanielBonjour le monde,
Sous Vista, Excel 2003, j'ai sur mon PC un dossier "Trésorier" qui
contient des sous-dossiers (nombreux) et des fichiers (beaucoup), qui sont
des .xls mais pas seulement (.doc, .jpg, .txt aussi)
J'ai souvent besoin de trimballer tels ou tels fichiers pendant quelques
jours en les travaillant sur plusieurs bécanes sucessives. J'ai donc créé
un dossier "EN COURS" sur une clé USB.
Quand les fichiers sont "stabilisés" (fin provisoire d'une phase de boulot
sur eux), je les ramène sur mon ordi et je les range dans "C:Trésorier"
en les supprimant de la clé USB. (où ils seront remplacés plus tard par
une nouvelle vague de fichiers d'actualité).
Normalement je fais ça "à la main" en utilisant couper coller de Windows
Explorer, mais comme il y en a beaucoup je voudrais procéder par une macro
qui vide"EN COURS" de tous ses fichiers et les remettent à leur place dans
"C:Trésorier".
Quel code peut couper dans le dossier "EN COURS" le fichier "LesSous.xls"
récemment travaillé et le coller dans le dossier "C:TrésorierBanque" ?
(en écrasant bien sûr le fichier antérieur)
Précision : grâce à ceux qui aident ici (merci FdeCourt) j'ai eu une macro
Excel qui me liste sans problème dans une feuille Excel, la liste complète
des fichiers de "CTrésorier" avec leur chemin d'accès complet, et idem
pour EN COURS évidemment. Mon seul problème (enfin je crois) est de couper
coller les fichiers nomades.
Et est ce que ça peut marcher avec les .doc, .jpg, .txt ?
J'espère que j'ai bien expliqué ?
Cordialement, Mabouille
Bonjour,
Je ne vois pas , est ce que tu peux me donner une piste, un début de code,
pour cette utilisation de Name ?
Merci
Cordialement
Mabouille
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de
news:OEWxe$EwKHA.6140@TK2MSFTNGP05.phx.gbl...
Bonjour.
Utilise l'instruction Name. Si tu as des problèmes pour l'adapter à ton
code, publie celui-ci.
Cordialement.
Daniel
Bonjour le monde,
Sous Vista, Excel 2003, j'ai sur mon PC un dossier "Trésorier" qui
contient des sous-dossiers (nombreux) et des fichiers (beaucoup), qui sont
des .xls mais pas seulement (.doc, .jpg, .txt aussi)
J'ai souvent besoin de trimballer tels ou tels fichiers pendant quelques
jours en les travaillant sur plusieurs bécanes sucessives. J'ai donc créé
un dossier "EN COURS" sur une clé USB.
Quand les fichiers sont "stabilisés" (fin provisoire d'une phase de boulot
sur eux), je les ramène sur mon ordi et je les range dans "C:Trésorier"
en les supprimant de la clé USB. (où ils seront remplacés plus tard par
une nouvelle vague de fichiers d'actualité).
Normalement je fais ça "à la main" en utilisant couper coller de Windows
Explorer, mais comme il y en a beaucoup je voudrais procéder par une macro
qui vide"EN COURS" de tous ses fichiers et les remettent à leur place dans
"C:Trésorier".
Quel code peut couper dans le dossier "EN COURS" le fichier "LesSous.xls"
récemment travaillé et le coller dans le dossier "C:TrésorierBanque" ?
(en écrasant bien sûr le fichier antérieur)
Précision : grâce à ceux qui aident ici (merci FdeCourt) j'ai eu une macro
Excel qui me liste sans problème dans une feuille Excel, la liste complète
des fichiers de "CTrésorier" avec leur chemin d'accès complet, et idem
pour EN COURS évidemment. Mon seul problème (enfin je crois) est de couper
coller les fichiers nomades.
Et est ce que ça peut marcher avec les .doc, .jpg, .txt ?
J'espère que j'ai bien expliqué ?
Cordialement, Mabouille
Bonjour,
Je ne vois pas , est ce que tu peux me donner une piste, un début de code,
pour cette utilisation de Name ?
Merci
Cordialement
Mabouille
"Daniel.C" a écrit dans le message de
news:OEWxe$Bonjour.
Utilise l'instruction Name. Si tu as des problèmes pour l'adapter à ton
code, publie celui-ci.
Cordialement.
DanielBonjour le monde,
Sous Vista, Excel 2003, j'ai sur mon PC un dossier "Trésorier" qui
contient des sous-dossiers (nombreux) et des fichiers (beaucoup), qui sont
des .xls mais pas seulement (.doc, .jpg, .txt aussi)
J'ai souvent besoin de trimballer tels ou tels fichiers pendant quelques
jours en les travaillant sur plusieurs bécanes sucessives. J'ai donc créé
un dossier "EN COURS" sur une clé USB.
Quand les fichiers sont "stabilisés" (fin provisoire d'une phase de boulot
sur eux), je les ramène sur mon ordi et je les range dans "C:Trésorier"
en les supprimant de la clé USB. (où ils seront remplacés plus tard par
une nouvelle vague de fichiers d'actualité).
Normalement je fais ça "à la main" en utilisant couper coller de Windows
Explorer, mais comme il y en a beaucoup je voudrais procéder par une macro
qui vide"EN COURS" de tous ses fichiers et les remettent à leur place dans
"C:Trésorier".
Quel code peut couper dans le dossier "EN COURS" le fichier "LesSous.xls"
récemment travaillé et le coller dans le dossier "C:TrésorierBanque" ?
(en écrasant bien sûr le fichier antérieur)
Précision : grâce à ceux qui aident ici (merci FdeCourt) j'ai eu une macro
Excel qui me liste sans problème dans une feuille Excel, la liste complète
des fichiers de "CTrésorier" avec leur chemin d'accès complet, et idem
pour EN COURS évidemment. Mon seul problème (enfin je crois) est de couper
coller les fichiers nomades.
Et est ce que ça peut marcher avec les .doc, .jpg, .txt ?
J'espère que j'ai bien expliqué ?
Cordialement, Mabouille
On Error Resume Next
FichierSource = "P:ENCOURSFich"
FichierCible = C:TrésorierDossierAFich1
Kill FichierCible
Name FichierSource as FichierCible
On Error Goto 0
De même pour les autres fichiers
DanielBonjour,
Je ne vois pas , est ce que tu peux me donner une piste, un début de
code, pour cette utilisation de Name ?
Merci
Cordialement
Mabouille
"Daniel.C" a écrit dans le message de
news:OEWxe$Bonjour.
Utilise l'instruction Name. Si tu as des problèmes pour l'adapter à ton
code, publie celui-ci.
Cordialement.
DanielBonjour le monde,
Sous Vista, Excel 2003, j'ai sur mon PC un dossier "Trésorier" qui
contient des sous-dossiers (nombreux) et des fichiers (beaucoup), qui
sont des .xls mais pas seulement (.doc, .jpg, .txt aussi)
J'ai souvent besoin de trimballer tels ou tels fichiers pendant
quelques jours en les travaillant sur plusieurs bécanes sucessives.
J'ai donc créé un dossier "EN COURS" sur une clé USB.
Quand les fichiers sont "stabilisés" (fin provisoire d'une phase de
boulot sur eux), je les ramène sur mon ordi et je les range dans
"C:Trésorier" en les supprimant de la clé USB. (où ils seront
remplacés plus tard par une nouvelle vague de fichiers d'actualité).
Normalement je fais ça "à la main" en utilisant couper coller de
Windows Explorer, mais comme il y en a beaucoup je voudrais procéder
par une macro qui vide"EN COURS" de tous ses fichiers et les remettent
à leur place dans "C:Trésorier".
Quel code peut couper dans le dossier "EN COURS" le fichier
"LesSous.xls" récemment travaillé et le coller dans le dossier
"C:TrésorierBanque" ? (en écrasant bien sûr le fichier antérieur)
Précision : grâce à ceux qui aident ici (merci FdeCourt) j'ai eu une
macro Excel qui me liste sans problème dans une feuille Excel, la liste
complète des fichiers de "CTrésorier" avec leur chemin d'accès
complet, et idem pour EN COURS évidemment. Mon seul problème (enfin je
crois) est de couper coller les fichiers nomades.
Et est ce que ça peut marcher avec les .doc, .jpg, .txt ?
J'espère que j'ai bien expliqué ?
Cordialement, Mabouille
On Error Resume Next
FichierSource = "P:ENCOURSFich"
FichierCible = C:TrésorierDossierAFich1
Kill FichierCible
Name FichierSource as FichierCible
On Error Goto 0
De même pour les autres fichiers
Daniel
Bonjour,
Je ne vois pas , est ce que tu peux me donner une piste, un début de
code, pour cette utilisation de Name ?
Merci
Cordialement
Mabouille
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de
news:OEWxe$EwKHA.6140@TK2MSFTNGP05.phx.gbl...
Bonjour.
Utilise l'instruction Name. Si tu as des problèmes pour l'adapter à ton
code, publie celui-ci.
Cordialement.
Daniel
Bonjour le monde,
Sous Vista, Excel 2003, j'ai sur mon PC un dossier "Trésorier" qui
contient des sous-dossiers (nombreux) et des fichiers (beaucoup), qui
sont des .xls mais pas seulement (.doc, .jpg, .txt aussi)
J'ai souvent besoin de trimballer tels ou tels fichiers pendant
quelques jours en les travaillant sur plusieurs bécanes sucessives.
J'ai donc créé un dossier "EN COURS" sur une clé USB.
Quand les fichiers sont "stabilisés" (fin provisoire d'une phase de
boulot sur eux), je les ramène sur mon ordi et je les range dans
"C:Trésorier" en les supprimant de la clé USB. (où ils seront
remplacés plus tard par une nouvelle vague de fichiers d'actualité).
Normalement je fais ça "à la main" en utilisant couper coller de
Windows Explorer, mais comme il y en a beaucoup je voudrais procéder
par une macro qui vide"EN COURS" de tous ses fichiers et les remettent
à leur place dans "C:Trésorier".
Quel code peut couper dans le dossier "EN COURS" le fichier
"LesSous.xls" récemment travaillé et le coller dans le dossier
"C:TrésorierBanque" ? (en écrasant bien sûr le fichier antérieur)
Précision : grâce à ceux qui aident ici (merci FdeCourt) j'ai eu une
macro Excel qui me liste sans problème dans une feuille Excel, la liste
complète des fichiers de "CTrésorier" avec leur chemin d'accès
complet, et idem pour EN COURS évidemment. Mon seul problème (enfin je
crois) est de couper coller les fichiers nomades.
Et est ce que ça peut marcher avec les .doc, .jpg, .txt ?
J'espère que j'ai bien expliqué ?
Cordialement, Mabouille
On Error Resume Next
FichierSource = "P:ENCOURSFich"
FichierCible = C:TrésorierDossierAFich1
Kill FichierCible
Name FichierSource as FichierCible
On Error Goto 0
De même pour les autres fichiers
DanielBonjour,
Je ne vois pas , est ce que tu peux me donner une piste, un début de
code, pour cette utilisation de Name ?
Merci
Cordialement
Mabouille
"Daniel.C" a écrit dans le message de
news:OEWxe$Bonjour.
Utilise l'instruction Name. Si tu as des problèmes pour l'adapter à ton
code, publie celui-ci.
Cordialement.
DanielBonjour le monde,
Sous Vista, Excel 2003, j'ai sur mon PC un dossier "Trésorier" qui
contient des sous-dossiers (nombreux) et des fichiers (beaucoup), qui
sont des .xls mais pas seulement (.doc, .jpg, .txt aussi)
J'ai souvent besoin de trimballer tels ou tels fichiers pendant
quelques jours en les travaillant sur plusieurs bécanes sucessives.
J'ai donc créé un dossier "EN COURS" sur une clé USB.
Quand les fichiers sont "stabilisés" (fin provisoire d'une phase de
boulot sur eux), je les ramène sur mon ordi et je les range dans
"C:Trésorier" en les supprimant de la clé USB. (où ils seront
remplacés plus tard par une nouvelle vague de fichiers d'actualité).
Normalement je fais ça "à la main" en utilisant couper coller de
Windows Explorer, mais comme il y en a beaucoup je voudrais procéder
par une macro qui vide"EN COURS" de tous ses fichiers et les remettent
à leur place dans "C:Trésorier".
Quel code peut couper dans le dossier "EN COURS" le fichier
"LesSous.xls" récemment travaillé et le coller dans le dossier
"C:TrésorierBanque" ? (en écrasant bien sûr le fichier antérieur)
Précision : grâce à ceux qui aident ici (merci FdeCourt) j'ai eu une
macro Excel qui me liste sans problème dans une feuille Excel, la liste
complète des fichiers de "CTrésorier" avec leur chemin d'accès
complet, et idem pour EN COURS évidemment. Mon seul problème (enfin je
crois) est de couper coller les fichiers nomades.
Et est ce que ça peut marcher avec les .doc, .jpg, .txt ?
J'espère que j'ai bien expliqué ?
Cordialement, Mabouille
Bonjour,
La procédure ne prévoit qu'une clé d'installer au moment
de procéder.
La procédure suivante va recréer sur la clé le chemin indiqué
dans la procédure qui est le même que le répertoire à copier
"Chemin = "UsersDMDocumentstest1""
Si ce chemin existe déjà, elle ne touchera à rien. Elle fait seulement
ajouter les répertoires du chemin manquants.
Elle copiera tous les répertoires, sous-répertoires et fichiers du
répertoire "Test1" en écrasant si besoin sans rien demander.
À partir de cette procédure, il est facile de faire une routine
faisant l'inverse, de la clé au disque dur.
'-------------------------------------------
Sub test()
Dim LecteurSource As String, Prêt As Boolean
Dim LecteurDestination As String
Dim Chemin As String
'***********Variables à renseigner*********
LecteurSource = "c:"
Chemin = "UsersDMDocumentstest1"
'*******************************************
LecteurDestination = RemovableDisk(LecteurSource)
If LecteurDestination <> "" Then
Prêt = EstPret(LecteurDestination)
If Prêt = False Then
MsgBox "Le lecteur amovible n'est pas prêt."
Exit Sub
End If
Else
MsgBox "Aucun disque amovible détecté."
Exit Sub
End If
'Création du répertoire si nécessaire
Creer_Chemin LecteurDestination, LecteurDestination & Chemin
'Copie des fichiers vers la destination
Commande = Environ("comspec") & " /c Xcopy /S/E/Y " & _
LecteurSource & Chemin & " " & LecteurDestination & Chemin & ""
Shell Commande, 0
End Sub
'-------------------------------------------
Function RemovableDisk(MonLecteur As String)
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!" & _
strComputer & "rootcimv2")
Set colDisks = objWMIService.ExecQuery _
("Select * from Win32_LogicalDisk")
For Each Objdisk In colDisks
'2 constante numérique pour disque dur "removable"
If Objdisk.DriveType = 2 Then
RemovableDisk = Objdisk.Name & ""
Exit Function
End If
Next
End Function
'-------------------------------------------
Function EstPret(Lecteur As String)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set colDrives = objFSO.Drives
For Each objdrive In colDrives
If Lecteur = objdrive & "" Then
If objdrive.IsReady = True Then
EstPret = objdrive.IsReady
End If
End If
Next
End Function
'-------------------------------------------
Sub Creer_Chemin(Racine, Chemin As String)
Dim Commande As String
'Crée le chemin indiqué si les répertoires ne
'sont pas présents. N'écrase rien !
ChDrive Racine
Commande = Environ("comspec") & " /c mkdir " & Chemin
Shell Commande, 0
End Sub
'-------------------------------------------
"mabouille" a écrit dans le message de
groupe de
discussion : #
Bonjour le monde,
Sous Vista, Excel 2003, j'ai sur mon PC un dossier "Trésorier" qui
contient
des sous-dossiers (nombreux) et des fichiers (beaucoup), qui sont des .xls
mais pas seulement (.doc, .jpg, .txt aussi)
J'ai souvent besoin de trimballer tels ou tels fichiers pendant quelques
jours en les travaillant sur plusieurs bécanes sucessives. J'ai donc créé
un
dossier "EN COURS" sur une clé USB.
Quand les fichiers sont "stabilisés" (fin provisoire d'une phase de boulot
sur eux), je les ramène sur mon ordi et je les range dans "C:Trésorier"
en
les supprimant de la clé USB. (où ils seront remplacés plus tard par une
nouvelle vague de fichiers d'actualité).
Normalement je fais ça "à la main" en utilisant couper coller de Windows
Explorer, mais comme il y en a beaucoup je voudrais procéder par une macro
qui vide"EN COURS" de tous ses fichiers et les remettent à leur place dans
"C:Trésorier".
Quel code peut couper dans le dossier "EN COURS" le fichier "LesSous.xls"
récemment travaillé et le coller dans le dossier "C:TrésorierBanque" ?
(en
écrasant bien sûr le fichier antérieur)
Précision : grâce à ceux qui aident ici (merci FdeCourt) j'ai eu une macro
Excel qui me liste sans problème dans une feuille Excel, la liste complète
des fichiers de "CTrésorier" avec leur chemin d'accès complet, et idem
pour
EN COURS évidemment. Mon seul problème (enfin je crois) est de couper
coller
les fichiers nomades.
Et est ce que ça peut marcher avec les .doc, .jpg, .txt ?
J'espère que j'ai bien expliqué ?
Cordialement, Mabouille
Bonjour,
La procédure ne prévoit qu'une clé d'installer au moment
de procéder.
La procédure suivante va recréer sur la clé le chemin indiqué
dans la procédure qui est le même que le répertoire à copier
"Chemin = "UsersDMDocumentstest1""
Si ce chemin existe déjà, elle ne touchera à rien. Elle fait seulement
ajouter les répertoires du chemin manquants.
Elle copiera tous les répertoires, sous-répertoires et fichiers du
répertoire "Test1" en écrasant si besoin sans rien demander.
À partir de cette procédure, il est facile de faire une routine
faisant l'inverse, de la clé au disque dur.
'-------------------------------------------
Sub test()
Dim LecteurSource As String, Prêt As Boolean
Dim LecteurDestination As String
Dim Chemin As String
'***********Variables à renseigner*********
LecteurSource = "c:"
Chemin = "UsersDMDocumentstest1"
'*******************************************
LecteurDestination = RemovableDisk(LecteurSource)
If LecteurDestination <> "" Then
Prêt = EstPret(LecteurDestination)
If Prêt = False Then
MsgBox "Le lecteur amovible n'est pas prêt."
Exit Sub
End If
Else
MsgBox "Aucun disque amovible détecté."
Exit Sub
End If
'Création du répertoire si nécessaire
Creer_Chemin LecteurDestination, LecteurDestination & Chemin
'Copie des fichiers vers la destination
Commande = Environ("comspec") & " /c Xcopy /S/E/Y " & _
LecteurSource & Chemin & " " & LecteurDestination & Chemin & ""
Shell Commande, 0
End Sub
'-------------------------------------------
Function RemovableDisk(MonLecteur As String)
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & _
strComputer & "rootcimv2")
Set colDisks = objWMIService.ExecQuery _
("Select * from Win32_LogicalDisk")
For Each Objdisk In colDisks
'2 constante numérique pour disque dur "removable"
If Objdisk.DriveType = 2 Then
RemovableDisk = Objdisk.Name & ""
Exit Function
End If
Next
End Function
'-------------------------------------------
Function EstPret(Lecteur As String)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set colDrives = objFSO.Drives
For Each objdrive In colDrives
If Lecteur = objdrive & "" Then
If objdrive.IsReady = True Then
EstPret = objdrive.IsReady
End If
End If
Next
End Function
'-------------------------------------------
Sub Creer_Chemin(Racine, Chemin As String)
Dim Commande As String
'Crée le chemin indiqué si les répertoires ne
'sont pas présents. N'écrase rien !
ChDrive Racine
Commande = Environ("comspec") & " /c mkdir " & Chemin
Shell Commande, 0
End Sub
'-------------------------------------------
"mabouille" <pierre.garnier4@libertysurf.fr> a écrit dans le message de
groupe de
discussion : #7q7X2EwKHA.4196@TK2MSFTNGP02.phx.gbl...
Bonjour le monde,
Sous Vista, Excel 2003, j'ai sur mon PC un dossier "Trésorier" qui
contient
des sous-dossiers (nombreux) et des fichiers (beaucoup), qui sont des .xls
mais pas seulement (.doc, .jpg, .txt aussi)
J'ai souvent besoin de trimballer tels ou tels fichiers pendant quelques
jours en les travaillant sur plusieurs bécanes sucessives. J'ai donc créé
un
dossier "EN COURS" sur une clé USB.
Quand les fichiers sont "stabilisés" (fin provisoire d'une phase de boulot
sur eux), je les ramène sur mon ordi et je les range dans "C:Trésorier"
en
les supprimant de la clé USB. (où ils seront remplacés plus tard par une
nouvelle vague de fichiers d'actualité).
Normalement je fais ça "à la main" en utilisant couper coller de Windows
Explorer, mais comme il y en a beaucoup je voudrais procéder par une macro
qui vide"EN COURS" de tous ses fichiers et les remettent à leur place dans
"C:Trésorier".
Quel code peut couper dans le dossier "EN COURS" le fichier "LesSous.xls"
récemment travaillé et le coller dans le dossier "C:TrésorierBanque" ?
(en
écrasant bien sûr le fichier antérieur)
Précision : grâce à ceux qui aident ici (merci FdeCourt) j'ai eu une macro
Excel qui me liste sans problème dans une feuille Excel, la liste complète
des fichiers de "CTrésorier" avec leur chemin d'accès complet, et idem
pour
EN COURS évidemment. Mon seul problème (enfin je crois) est de couper
coller
les fichiers nomades.
Et est ce que ça peut marcher avec les .doc, .jpg, .txt ?
J'espère que j'ai bien expliqué ?
Cordialement, Mabouille
Bonjour,
La procédure ne prévoit qu'une clé d'installer au moment
de procéder.
La procédure suivante va recréer sur la clé le chemin indiqué
dans la procédure qui est le même que le répertoire à copier
"Chemin = "UsersDMDocumentstest1""
Si ce chemin existe déjà, elle ne touchera à rien. Elle fait seulement
ajouter les répertoires du chemin manquants.
Elle copiera tous les répertoires, sous-répertoires et fichiers du
répertoire "Test1" en écrasant si besoin sans rien demander.
À partir de cette procédure, il est facile de faire une routine
faisant l'inverse, de la clé au disque dur.
'-------------------------------------------
Sub test()
Dim LecteurSource As String, Prêt As Boolean
Dim LecteurDestination As String
Dim Chemin As String
'***********Variables à renseigner*********
LecteurSource = "c:"
Chemin = "UsersDMDocumentstest1"
'*******************************************
LecteurDestination = RemovableDisk(LecteurSource)
If LecteurDestination <> "" Then
Prêt = EstPret(LecteurDestination)
If Prêt = False Then
MsgBox "Le lecteur amovible n'est pas prêt."
Exit Sub
End If
Else
MsgBox "Aucun disque amovible détecté."
Exit Sub
End If
'Création du répertoire si nécessaire
Creer_Chemin LecteurDestination, LecteurDestination & Chemin
'Copie des fichiers vers la destination
Commande = Environ("comspec") & " /c Xcopy /S/E/Y " & _
LecteurSource & Chemin & " " & LecteurDestination & Chemin & ""
Shell Commande, 0
End Sub
'-------------------------------------------
Function RemovableDisk(MonLecteur As String)
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!" & _
strComputer & "rootcimv2")
Set colDisks = objWMIService.ExecQuery _
("Select * from Win32_LogicalDisk")
For Each Objdisk In colDisks
'2 constante numérique pour disque dur "removable"
If Objdisk.DriveType = 2 Then
RemovableDisk = Objdisk.Name & ""
Exit Function
End If
Next
End Function
'-------------------------------------------
Function EstPret(Lecteur As String)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set colDrives = objFSO.Drives
For Each objdrive In colDrives
If Lecteur = objdrive & "" Then
If objdrive.IsReady = True Then
EstPret = objdrive.IsReady
End If
End If
Next
End Function
'-------------------------------------------
Sub Creer_Chemin(Racine, Chemin As String)
Dim Commande As String
'Crée le chemin indiqué si les répertoires ne
'sont pas présents. N'écrase rien !
ChDrive Racine
Commande = Environ("comspec") & " /c mkdir " & Chemin
Shell Commande, 0
End Sub
'-------------------------------------------
"mabouille" a écrit dans le message de
groupe de
discussion : #
Bonjour le monde,
Sous Vista, Excel 2003, j'ai sur mon PC un dossier "Trésorier" qui
contient
des sous-dossiers (nombreux) et des fichiers (beaucoup), qui sont des .xls
mais pas seulement (.doc, .jpg, .txt aussi)
J'ai souvent besoin de trimballer tels ou tels fichiers pendant quelques
jours en les travaillant sur plusieurs bécanes sucessives. J'ai donc créé
un
dossier "EN COURS" sur une clé USB.
Quand les fichiers sont "stabilisés" (fin provisoire d'une phase de boulot
sur eux), je les ramène sur mon ordi et je les range dans "C:Trésorier"
en
les supprimant de la clé USB. (où ils seront remplacés plus tard par une
nouvelle vague de fichiers d'actualité).
Normalement je fais ça "à la main" en utilisant couper coller de Windows
Explorer, mais comme il y en a beaucoup je voudrais procéder par une macro
qui vide"EN COURS" de tous ses fichiers et les remettent à leur place dans
"C:Trésorier".
Quel code peut couper dans le dossier "EN COURS" le fichier "LesSous.xls"
récemment travaillé et le coller dans le dossier "C:TrésorierBanque" ?
(en
écrasant bien sûr le fichier antérieur)
Précision : grâce à ceux qui aident ici (merci FdeCourt) j'ai eu une macro
Excel qui me liste sans problème dans une feuille Excel, la liste complète
des fichiers de "CTrésorier" avec leur chemin d'accès complet, et idem
pour
EN COURS évidemment. Mon seul problème (enfin je crois) est de couper
coller
les fichiers nomades.
Et est ce que ça peut marcher avec les .doc, .jpg, .txt ?
J'espère que j'ai bien expliqué ?
Cordialement, Mabouille
Merci, c'est élégant, simple, et...ça marche! J'ai juste rajouté un Kill
FichierSource après 'Name....' pour nettoyer la clé.
Je vais rentrer ensuite ce bout de code dans ma macro, en ajoutant peut
être des sécurité ici ou là)
Cordialement
Mabouille
"Daniel.C" a écrit dans le message de
news:On Error Resume Next
FichierSource = "P:ENCOURSFich"
FichierCible = C:TrésorierDossierAFich1
Kill FichierCible
Name FichierSource as FichierCible
On Error Goto 0
De même pour les autres fichiers
DanielBonjour,
Je ne vois pas , est ce que tu peux me donner une piste, un début de
code, pour cette utilisation de Name ?
Merci
Cordialement
Mabouille
"Daniel.C" a écrit dans le message de
news:OEWxe$Bonjour.
Utilise l'instruction Name. Si tu as des problèmes pour l'adapter à ton
code, publie celui-ci.
Cordialement.
DanielBonjour le monde,
Sous Vista, Excel 2003, j'ai sur mon PC un dossier "Trésorier" qui
contient des sous-dossiers (nombreux) et des fichiers (beaucoup), qui
sont des .xls mais pas seulement (.doc, .jpg, .txt aussi)
J'ai souvent besoin de trimballer tels ou tels fichiers pendant
quelques jours en les travaillant sur plusieurs bécanes sucessives.
J'ai donc créé un dossier "EN COURS" sur une clé USB.
Quand les fichiers sont "stabilisés" (fin provisoire d'une phase de
boulot sur eux), je les ramène sur mon ordi et je les range dans
"C:Trésorier" en les supprimant de la clé USB. (où ils seront
remplacés plus tard par une nouvelle vague de fichiers d'actualité).
Normalement je fais ça "à la main" en utilisant couper coller de
Windows Explorer, mais comme il y en a beaucoup je voudrais procéder
par une macro qui vide"EN COURS" de tous ses fichiers et les remettent
à leur place dans "C:Trésorier".
Quel code peut couper dans le dossier "EN COURS" le fichier
"LesSous.xls" récemment travaillé et le coller dans le dossier
"C:TrésorierBanque" ? (en écrasant bien sûr le fichier antérieur)
Précision : grâce à ceux qui aident ici (merci FdeCourt) j'ai eu une
macro Excel qui me liste sans problème dans une feuille Excel, la
liste complète des fichiers de "CTrésorier" avec leur chemin d'accès
complet, et idem pour EN COURS évidemment. Mon seul problème (enfin je
crois) est de couper coller les fichiers nomades.
Et est ce que ça peut marcher avec les .doc, .jpg, .txt ?
J'espère que j'ai bien expliqué ?
Cordialement, Mabouille
Merci, c'est élégant, simple, et...ça marche! J'ai juste rajouté un Kill
FichierSource après 'Name....' pour nettoyer la clé.
Je vais rentrer ensuite ce bout de code dans ma macro, en ajoutant peut
être des sécurité ici ou là)
Cordialement
Mabouille
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de
news:emGXCXPwKHA.4908@TK2MSFTNGP06.phx.gbl...
On Error Resume Next
FichierSource = "P:ENCOURSFich"
FichierCible = C:TrésorierDossierAFich1
Kill FichierCible
Name FichierSource as FichierCible
On Error Goto 0
De même pour les autres fichiers
Daniel
Bonjour,
Je ne vois pas , est ce que tu peux me donner une piste, un début de
code, pour cette utilisation de Name ?
Merci
Cordialement
Mabouille
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de
news:OEWxe$EwKHA.6140@TK2MSFTNGP05.phx.gbl...
Bonjour.
Utilise l'instruction Name. Si tu as des problèmes pour l'adapter à ton
code, publie celui-ci.
Cordialement.
Daniel
Bonjour le monde,
Sous Vista, Excel 2003, j'ai sur mon PC un dossier "Trésorier" qui
contient des sous-dossiers (nombreux) et des fichiers (beaucoup), qui
sont des .xls mais pas seulement (.doc, .jpg, .txt aussi)
J'ai souvent besoin de trimballer tels ou tels fichiers pendant
quelques jours en les travaillant sur plusieurs bécanes sucessives.
J'ai donc créé un dossier "EN COURS" sur une clé USB.
Quand les fichiers sont "stabilisés" (fin provisoire d'une phase de
boulot sur eux), je les ramène sur mon ordi et je les range dans
"C:Trésorier" en les supprimant de la clé USB. (où ils seront
remplacés plus tard par une nouvelle vague de fichiers d'actualité).
Normalement je fais ça "à la main" en utilisant couper coller de
Windows Explorer, mais comme il y en a beaucoup je voudrais procéder
par une macro qui vide"EN COURS" de tous ses fichiers et les remettent
à leur place dans "C:Trésorier".
Quel code peut couper dans le dossier "EN COURS" le fichier
"LesSous.xls" récemment travaillé et le coller dans le dossier
"C:TrésorierBanque" ? (en écrasant bien sûr le fichier antérieur)
Précision : grâce à ceux qui aident ici (merci FdeCourt) j'ai eu une
macro Excel qui me liste sans problème dans une feuille Excel, la
liste complète des fichiers de "CTrésorier" avec leur chemin d'accès
complet, et idem pour EN COURS évidemment. Mon seul problème (enfin je
crois) est de couper coller les fichiers nomades.
Et est ce que ça peut marcher avec les .doc, .jpg, .txt ?
J'espère que j'ai bien expliqué ?
Cordialement, Mabouille
Merci, c'est élégant, simple, et...ça marche! J'ai juste rajouté un Kill
FichierSource après 'Name....' pour nettoyer la clé.
Je vais rentrer ensuite ce bout de code dans ma macro, en ajoutant peut
être des sécurité ici ou là)
Cordialement
Mabouille
"Daniel.C" a écrit dans le message de
news:On Error Resume Next
FichierSource = "P:ENCOURSFich"
FichierCible = C:TrésorierDossierAFich1
Kill FichierCible
Name FichierSource as FichierCible
On Error Goto 0
De même pour les autres fichiers
DanielBonjour,
Je ne vois pas , est ce que tu peux me donner une piste, un début de
code, pour cette utilisation de Name ?
Merci
Cordialement
Mabouille
"Daniel.C" a écrit dans le message de
news:OEWxe$Bonjour.
Utilise l'instruction Name. Si tu as des problèmes pour l'adapter à ton
code, publie celui-ci.
Cordialement.
DanielBonjour le monde,
Sous Vista, Excel 2003, j'ai sur mon PC un dossier "Trésorier" qui
contient des sous-dossiers (nombreux) et des fichiers (beaucoup), qui
sont des .xls mais pas seulement (.doc, .jpg, .txt aussi)
J'ai souvent besoin de trimballer tels ou tels fichiers pendant
quelques jours en les travaillant sur plusieurs bécanes sucessives.
J'ai donc créé un dossier "EN COURS" sur une clé USB.
Quand les fichiers sont "stabilisés" (fin provisoire d'une phase de
boulot sur eux), je les ramène sur mon ordi et je les range dans
"C:Trésorier" en les supprimant de la clé USB. (où ils seront
remplacés plus tard par une nouvelle vague de fichiers d'actualité).
Normalement je fais ça "à la main" en utilisant couper coller de
Windows Explorer, mais comme il y en a beaucoup je voudrais procéder
par une macro qui vide"EN COURS" de tous ses fichiers et les remettent
à leur place dans "C:Trésorier".
Quel code peut couper dans le dossier "EN COURS" le fichier
"LesSous.xls" récemment travaillé et le coller dans le dossier
"C:TrésorierBanque" ? (en écrasant bien sûr le fichier antérieur)
Précision : grâce à ceux qui aident ici (merci FdeCourt) j'ai eu une
macro Excel qui me liste sans problème dans une feuille Excel, la
liste complète des fichiers de "CTrésorier" avec leur chemin d'accès
complet, et idem pour EN COURS évidemment. Mon seul problème (enfin je
crois) est de couper coller les fichiers nomades.
Et est ce que ça peut marcher avec les .doc, .jpg, .txt ?
J'espère que j'ai bien expliqué ?
Cordialement, Mabouille