Je veux, =E0 la fin d'une session Word 2002 sous XP Pro,=20
pouvoir copier des fichiers *.xxx d'un r=E9pertoire dans un=20
autre.
Quel est la fa=E7on la plus simple de proc=E9der ? Macro ?=20
J'ai essay=E9 l'enregistreur, mais, =E7a ne donne pas grand=20
chose. Ou script WSH, mais l=E0 je ne touche pas. Trop hard=20
pour moi !
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
Document Office
Bonjour,
Cela se fait très facilement par macro. Pour cela il faut travailler avec la librairie "Microsoft Scripting Runtime" et instancier un objet "File System Object".
Je viens de vous développer un exemple qui copie tous les fichiers d'un répertoire vers un autre :
Sub CopieFichiers()
Dim fso As New Scripting.FileSystemObject Dim Source As String Dim Destination As String
Source = "C:Documents and SettingsUserBureauSource" Destination = "C:Documents and SettingsUserBureauDestination"
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
J'espère que cet exemple vous aidera à créer la macro que vous souhaitez faire.
Bonne journée.
-----Message d'origine----- Bonsoir,
Je veux, à la fin d'une session Word 2002 sous XP Pro, pouvoir copier des fichiers *.xxx d'un répertoire dans un
autre.
Quel est la façon la plus simple de procéder ? Macro ? J'ai essayé l'enregistreur, mais, ça ne donne pas grand chose. Ou script WSH, mais là je ne touche pas. Trop hard
pour moi !
Toutes les suggestions seront les bienvenues.
Merci d'avance
JL .
Bonjour,
Cela se fait très facilement par macro. Pour cela il faut
travailler avec la librairie "Microsoft Scripting
Runtime" et instancier un objet "File System Object".
Je viens de vous développer un exemple qui copie tous les
fichiers d'un répertoire vers un autre :
Sub CopieFichiers()
Dim fso As New Scripting.FileSystemObject
Dim Source As String
Dim Destination As String
Source = "C:Documents and SettingsUserBureauSource"
Destination = "C:Documents and
SettingsUserBureauDestination"
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
J'espère que cet exemple vous aidera à créer la macro que
vous souhaitez faire.
Bonne journée.
-----Message d'origine-----
Bonsoir,
Je veux, à la fin d'une session Word 2002 sous XP Pro,
pouvoir copier des fichiers *.xxx d'un répertoire dans
un
autre.
Quel est la façon la plus simple de procéder ? Macro ?
J'ai essayé l'enregistreur, mais, ça ne donne pas grand
chose. Ou script WSH, mais là je ne touche pas. Trop
hard
Cela se fait très facilement par macro. Pour cela il faut travailler avec la librairie "Microsoft Scripting Runtime" et instancier un objet "File System Object".
Je viens de vous développer un exemple qui copie tous les fichiers d'un répertoire vers un autre :
Sub CopieFichiers()
Dim fso As New Scripting.FileSystemObject Dim Source As String Dim Destination As String
Source = "C:Documents and SettingsUserBureauSource" Destination = "C:Documents and SettingsUserBureauDestination"
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
J'espère que cet exemple vous aidera à créer la macro que vous souhaitez faire.
Bonne journée.
-----Message d'origine----- Bonsoir,
Je veux, à la fin d'une session Word 2002 sous XP Pro, pouvoir copier des fichiers *.xxx d'un répertoire dans un
autre.
Quel est la façon la plus simple de procéder ? Macro ? J'ai essayé l'enregistreur, mais, ça ne donne pas grand chose. Ou script WSH, mais là je ne touche pas. Trop hard
pour moi !
Toutes les suggestions seront les bienvenues.
Merci d'avance
JL .
JL
Merci beaucoup.
J'ai cependant du mal : en effet quand je recopie et adapte la macro à mon cas d'espèce, elle me retourne un message un peu abscons "Erreur de compilation. Type défini par l'utilisateur non défini".
Que faire ???
Merci de nouveau pour votre aide
JL
-----Message d'origine----- Bonjour,
Cela se fait très facilement par macro. Pour cela il faut
travailler avec la librairie "Microsoft Scripting Runtime" et instancier un objet "File System Object".
Je viens de vous développer un exemple qui copie tous les
fichiers d'un répertoire vers un autre :
Sub CopieFichiers()
Dim fso As New Scripting.FileSystemObject Dim Source As String Dim Destination As String
Source = "C:Documents and SettingsUserBureauSource" Destination = "C:Documents and SettingsUserBureauDestination"
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
J'espère que cet exemple vous aidera à créer la macro que
vous souhaitez faire.
Bonne journée.
-----Message d'origine----- Bonsoir,
Je veux, à la fin d'une session Word 2002 sous XP Pro, pouvoir copier des fichiers *.xxx d'un répertoire dans un
autre.
Quel est la façon la plus simple de procéder ? Macro ? J'ai essayé l'enregistreur, mais, ça ne donne pas grand chose. Ou script WSH, mais là je ne touche pas. Trop hard
pour moi !
Toutes les suggestions seront les bienvenues.
Merci d'avance
JL .
.
Merci beaucoup.
J'ai cependant du mal : en effet quand je recopie et
adapte la macro à mon cas d'espèce, elle me retourne un
message un peu abscons "Erreur de compilation. Type
défini par l'utilisateur non défini".
Que faire ???
Merci de nouveau pour votre aide
JL
-----Message d'origine-----
Bonjour,
Cela se fait très facilement par macro. Pour cela il
faut
travailler avec la librairie "Microsoft Scripting
Runtime" et instancier un objet "File System Object".
Je viens de vous développer un exemple qui copie tous
les
fichiers d'un répertoire vers un autre :
Sub CopieFichiers()
Dim fso As New Scripting.FileSystemObject
Dim Source As String
Dim Destination As String
Source = "C:Documents and SettingsUserBureauSource"
Destination = "C:Documents and
SettingsUserBureauDestination"
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
J'espère que cet exemple vous aidera à créer la macro
que
vous souhaitez faire.
Bonne journée.
-----Message d'origine-----
Bonsoir,
Je veux, à la fin d'une session Word 2002 sous XP Pro,
pouvoir copier des fichiers *.xxx d'un répertoire dans
un
autre.
Quel est la façon la plus simple de procéder ? Macro ?
J'ai essayé l'enregistreur, mais, ça ne donne pas grand
chose. Ou script WSH, mais là je ne touche pas. Trop
hard
J'ai cependant du mal : en effet quand je recopie et adapte la macro à mon cas d'espèce, elle me retourne un message un peu abscons "Erreur de compilation. Type défini par l'utilisateur non défini".
Que faire ???
Merci de nouveau pour votre aide
JL
-----Message d'origine----- Bonjour,
Cela se fait très facilement par macro. Pour cela il faut
travailler avec la librairie "Microsoft Scripting Runtime" et instancier un objet "File System Object".
Je viens de vous développer un exemple qui copie tous les
fichiers d'un répertoire vers un autre :
Sub CopieFichiers()
Dim fso As New Scripting.FileSystemObject Dim Source As String Dim Destination As String
Source = "C:Documents and SettingsUserBureauSource" Destination = "C:Documents and SettingsUserBureauDestination"
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
J'espère que cet exemple vous aidera à créer la macro que
vous souhaitez faire.
Bonne journée.
-----Message d'origine----- Bonsoir,
Je veux, à la fin d'une session Word 2002 sous XP Pro, pouvoir copier des fichiers *.xxx d'un répertoire dans un
autre.
Quel est la façon la plus simple de procéder ? Macro ? J'ai essayé l'enregistreur, mais, ça ne donne pas grand chose. Ou script WSH, mais là je ne touche pas. Trop hard
