Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

vba copie repertoire

3 réponses
Avatar
maud s
bonjour

je voudrais savoir si en VBA excel il est possible de creer un bouton sur
une feuille et de lui demander de faire une copie de c:\program files\maud
ainsi que tous les fichiers et sous repertoire dedans
sous un répertoire décider dans un explorer qui s ouvre.


merci

3 réponses

Avatar
Philippe.R
Bonsoir,
Une mine pour ce genre de travail :
http://frederic.sigonneau.free.fr/Fichiers.htm
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"maud s" a écrit dans le message de
news:
bonjour

je voudrais savoir si en VBA excel il est possible de creer un bouton sur
une feuille et de lui demander de faire une copie de c:program filesmaud
ainsi que tous les fichiers et sous repertoire dedans
sous un répertoire décider dans un explorer qui s ouvre.


merci



Avatar
maud s
merci bcp


"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:

Bonsoir,
Une mine pour ce genre de travail :
http://frederic.sigonneau.free.fr/Fichiers.htm
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"maud s" a écrit dans le message de
news:
bonjour

je voudrais savoir si en VBA excel il est possible de creer un bouton sur
une feuille et de lui demander de faire une copie de c:program
filesmaud ainsi que tous les fichiers et sous repertoire dedans
sous un répertoire décider dans un explorer qui s ouvre.


merci






Avatar
seb
Bonjour maud,

pour copier le contenu de toto dans tata via FSO,

Sub main()

Dim fso As Object
Dim fld As Object

Source = "c:toto"
dest = "c:tata"

Set fso = CreateObject("Scripting.FileSystemObject")
Set fld = fso.GetFolder(Source)

fld.Copy dest
End Sub

seb