Bonjour,
Avec l'aide de ce forum, j'ai (! :)) =E9crit une macro qui=20
copie un r=E9pertoire dans un autre. Ca marche !
Ce que je voudrais faire maintenant, c'est copier=20
seulement certains fichiers d'un r=E9pertoire dans un autre=20
r=E9pertoire. Comment modifier la macro suivante ?
Sub Sauvegarde_ACL
Dim fso As New Scripting.FileSystemObject
Dim Source As String
Dim Destination As String
Source =3D "C:\Documents and=20
Settings\Administrateur\Application Data\Microsoft\Office"
Destination =3D "D:\Mes documents\Fichiers divers\Fichiers=20
acl"
On Error GoTo errHandler
fso.CopyFolder Source, Destination
Set fso =3D Nothing
Exit Sub
errHandler:
If Err =3D "76" Then MsgBox "Entrer un nom de " & _
"dossier valide", vbCritical
Set fso =3D Nothing
End Sub
Merci de votre aide et soyez simples et clairs, je suis=20
nulle
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
Clément Marcotte
Bonjour,
Pour copier le fichier unbeaufichiertexte.txt de c:mes documents dans c:copie
Sub Sauvegarde_ACL()
Dim fso As New Scripting.FileSystemObject Dim Source As String Dim Destination As String Source = "C:mes documentsunbeaufichiertexte.txt" Destination = "c:copie" On Error GoTo errHandler fso.Copyfile Source, Destination Set fso = Nothing Exit Sub
errHandler: If Err = "76" Then MsgBox "Entrer un nom de " & _ "dossier valide", vbCritical Set fso = Nothing
End Sub
"Patricia" a écrit dans le message de news:1d83001c423bb$45cd5e80$ Bonjour, Avec l'aide de ce forum, j'ai (! :)) écrit une macro qui copie un répertoire dans un autre. Ca marche ! Ce que je voudrais faire maintenant, c'est copier seulement certains fichiers d'un répertoire dans un autre répertoire. Comment modifier la macro suivante ?
Sub Sauvegarde_ACL
Dim fso As New Scripting.FileSystemObject Dim Source As String Dim Destination As String
Source = "C:Documents and SettingsAdministrateurApplication DataMicrosoftOffice" Destination = "D:Mes documentsFichiers diversFichiers acl" On Error GoTo errHandler fso.CopyFolder Source, Destination Set fso = Nothing Exit Sub
errHandler: If Err = "76" Then MsgBox "Entrer un nom de " & _ "dossier valide", vbCritical Set fso = Nothing
End Sub
Merci de votre aide et soyez simples et clairs, je suis nulle
Pat
Bonjour,
Pour copier le fichier unbeaufichiertexte.txt de c:mes documents dans
c:copie
Sub Sauvegarde_ACL()
Dim fso As New Scripting.FileSystemObject
Dim Source As String
Dim Destination As String
Source = "C:mes documentsunbeaufichiertexte.txt"
Destination = "c:copie"
On Error GoTo errHandler
fso.Copyfile Source, Destination
Set fso = Nothing
Exit Sub
errHandler:
If Err = "76" Then MsgBox "Entrer un nom de " & _
"dossier valide", vbCritical
Set fso = Nothing
End Sub
"Patricia" <anonymous@discussions.microsoft.com> a écrit dans le
message de news:1d83001c423bb$45cd5e80$a401280a@phx.gbl...
Bonjour,
Avec l'aide de ce forum, j'ai (! :)) écrit une macro qui
copie un répertoire dans un autre. Ca marche !
Ce que je voudrais faire maintenant, c'est copier
seulement certains fichiers d'un répertoire dans un autre
répertoire. Comment modifier la macro suivante ?
Sub Sauvegarde_ACL
Dim fso As New Scripting.FileSystemObject
Dim Source As String
Dim Destination As String
Source = "C:Documents and
SettingsAdministrateurApplication DataMicrosoftOffice"
Destination = "D:Mes documentsFichiers diversFichiers
acl"
On Error GoTo errHandler
fso.CopyFolder Source, Destination
Set fso = Nothing
Exit Sub
errHandler:
If Err = "76" Then MsgBox "Entrer un nom de " & _
"dossier valide", vbCritical
Set fso = Nothing
End Sub
Merci de votre aide et soyez simples et clairs, je suis
nulle
Pour copier le fichier unbeaufichiertexte.txt de c:mes documents dans c:copie
Sub Sauvegarde_ACL()
Dim fso As New Scripting.FileSystemObject Dim Source As String Dim Destination As String Source = "C:mes documentsunbeaufichiertexte.txt" Destination = "c:copie" On Error GoTo errHandler fso.Copyfile Source, Destination Set fso = Nothing Exit Sub
errHandler: If Err = "76" Then MsgBox "Entrer un nom de " & _ "dossier valide", vbCritical Set fso = Nothing
End Sub
"Patricia" a écrit dans le message de news:1d83001c423bb$45cd5e80$ Bonjour, Avec l'aide de ce forum, j'ai (! :)) écrit une macro qui copie un répertoire dans un autre. Ca marche ! Ce que je voudrais faire maintenant, c'est copier seulement certains fichiers d'un répertoire dans un autre répertoire. Comment modifier la macro suivante ?
Sub Sauvegarde_ACL
Dim fso As New Scripting.FileSystemObject Dim Source As String Dim Destination As String
Source = "C:Documents and SettingsAdministrateurApplication DataMicrosoftOffice" Destination = "D:Mes documentsFichiers diversFichiers acl" On Error GoTo errHandler fso.CopyFolder Source, Destination Set fso = Nothing Exit Sub
errHandler: If Err = "76" Then MsgBox "Entrer un nom de " & _ "dossier valide", vbCritical Set fso = Nothing
End Sub
Merci de votre aide et soyez simples et clairs, je suis nulle
Pat
Patricia
Merci Docteur ! :) Pat
-----Message d'origine----- Bonjour,
Pour copier le fichier unbeaufichiertexte.txt de c:mes documents dans
c:copie
Sub Sauvegarde_ACL()
Dim fso As New Scripting.FileSystemObject Dim Source As String Dim Destination As String Source = "C:mes documentsunbeaufichiertexte.txt" Destination = "c:copie" On Error GoTo errHandler fso.Copyfile Source, Destination Set fso = Nothing Exit Sub
errHandler: If Err = "76" Then MsgBox "Entrer un nom de " & _ "dossier valide", vbCritical Set fso = Nothing
End Sub
"Patricia" a écrit dans le
message de news:1d83001c423bb$45cd5e80 $
Bonjour, Avec l'aide de ce forum, j'ai (! :)) écrit une macro qui copie un répertoire dans un autre. Ca marche ! Ce que je voudrais faire maintenant, c'est copier seulement certains fichiers d'un répertoire dans un autre répertoire. Comment modifier la macro suivante ?
Sub Sauvegarde_ACL
Dim fso As New Scripting.FileSystemObject Dim Source As String Dim Destination As String
Source = "C:Documents and SettingsAdministrateurApplication DataMicrosoftOffice"
Destination = "D:Mes documentsFichiers diversFichiers acl" On Error GoTo errHandler fso.CopyFolder Source, Destination Set fso = Nothing Exit Sub
errHandler: If Err = "76" Then MsgBox "Entrer un nom de " & _ "dossier valide", vbCritical Set fso = Nothing
End Sub
Merci de votre aide et soyez simples et clairs, je suis nulle
Pat
.
Merci Docteur ! :)
Pat
-----Message d'origine-----
Bonjour,
Pour copier le fichier unbeaufichiertexte.txt de c:mes
documents dans
c:copie
Sub Sauvegarde_ACL()
Dim fso As New Scripting.FileSystemObject
Dim Source As String
Dim Destination As String
Source = "C:mes documentsunbeaufichiertexte.txt"
Destination = "c:copie"
On Error GoTo errHandler
fso.Copyfile Source, Destination
Set fso = Nothing
Exit Sub
errHandler:
If Err = "76" Then MsgBox "Entrer un nom de " & _
"dossier valide", vbCritical
Set fso = Nothing
End Sub
"Patricia" <anonymous@discussions.microsoft.com> a écrit
dans le
message de news:1d83001c423bb$45cd5e80
$a401280a@phx.gbl...
Bonjour,
Avec l'aide de ce forum, j'ai (! :)) écrit une macro qui
copie un répertoire dans un autre. Ca marche !
Ce que je voudrais faire maintenant, c'est copier
seulement certains fichiers d'un répertoire dans un autre
répertoire. Comment modifier la macro suivante ?
Sub Sauvegarde_ACL
Dim fso As New Scripting.FileSystemObject
Dim Source As String
Dim Destination As String
Source = "C:Documents and
SettingsAdministrateurApplication
DataMicrosoftOffice"
Destination = "D:Mes documentsFichiers diversFichiers
acl"
On Error GoTo errHandler
fso.CopyFolder Source, Destination
Set fso = Nothing
Exit Sub
errHandler:
If Err = "76" Then MsgBox "Entrer un nom de " & _
"dossier valide", vbCritical
Set fso = Nothing
End Sub
Merci de votre aide et soyez simples et clairs, je suis
nulle
Pour copier le fichier unbeaufichiertexte.txt de c:mes documents dans
c:copie
Sub Sauvegarde_ACL()
Dim fso As New Scripting.FileSystemObject Dim Source As String Dim Destination As String Source = "C:mes documentsunbeaufichiertexte.txt" Destination = "c:copie" On Error GoTo errHandler fso.Copyfile Source, Destination Set fso = Nothing Exit Sub
errHandler: If Err = "76" Then MsgBox "Entrer un nom de " & _ "dossier valide", vbCritical Set fso = Nothing
End Sub
"Patricia" a écrit dans le
message de news:1d83001c423bb$45cd5e80 $
Bonjour, Avec l'aide de ce forum, j'ai (! :)) écrit une macro qui copie un répertoire dans un autre. Ca marche ! Ce que je voudrais faire maintenant, c'est copier seulement certains fichiers d'un répertoire dans un autre répertoire. Comment modifier la macro suivante ?
Sub Sauvegarde_ACL
Dim fso As New Scripting.FileSystemObject Dim Source As String Dim Destination As String
Source = "C:Documents and SettingsAdministrateurApplication DataMicrosoftOffice"
Destination = "D:Mes documentsFichiers diversFichiers acl" On Error GoTo errHandler fso.CopyFolder Source, Destination Set fso = Nothing Exit Sub
errHandler: If Err = "76" Then MsgBox "Entrer un nom de " & _ "dossier valide", vbCritical Set fso = Nothing
End Sub
Merci de votre aide et soyez simples et clairs, je suis nulle
