Copier un fichier sans l'ouvrir

Bonsoir le Forum, BenHarber,

Til existe plusierus solutions, moi j'aime bien le FSO.

Voici comment :

1 Pensez à cocher la référence 'Microsoft Scripting runtime'

2 - Utiliser comme cela


Tu as bcp de possibilités : Filecopy, fileexist,movefile, etc ...

Regarde l'aide pour toutes les possibilités !

@+

Creepy

Merci pour ta réponse Creepy...et désolé de répondre un peu tard,
Peux-tu seulement me préciser comment on coche la référence 'Microsoft Scripting runtime' bicoze je n'ai jamais fait cela et je ne vois pas à quoi cela correspond.
Merci d'avance,

BenHarber

bonjour BenHarber , bonjour Creepy

pour activer la référence :

dans l'éditeur de macros
Menu Outils
References
Coche la ligne 'Microsoft Scripting runtime'
Clique sur OK pour valider


bonne journée
MichelXld

Bonjour Michel, Creepy, le Forum
J'ai essayé : ca fonctionne au poil !

Donc en synthèse, ci-dessous le code écrit pour copier le fichier 'Essai.xls' du répertoire 'C:\\BenHarber\\' vers 'C:\\BenHarber\\Svg\\', au cas où ça intéresse quelqu'un...

Sub copie_Fich()
Dim typObj As Object
Dim wbkNom As String, sFol As String, dFol As String
wbkNom = 'AEssai.xls'
sFol = 'C:\\BenHarber\\'
dFol = 'C:\\BenHarber\\Svg\\'
Set typObj = CreateObject('Scripting.FileSystemObject')
If Not typObj.FileExists(sFol & wbkNom) Then
MsgBox sFol & wbkNom & ' n'existe pas!', vbExclamation, 'Fichier Source introuvable !'
Else typObj.CopyFile (sFol & wbkNom), dFol , True
End If
End Sub

Nota pour Creepy : j'ai testé le 'movefile' : cette fonction marche mais DEPLACE le fichier d'un répertoire vers l'autre, ce qui ne convenait pas à ce que je souhaitais faire (n'empêche que je suis sûr que ça me sera utile dans d'autres circonstances).

En ce jour de Pâques, je vous dis 'Merci à vous...d'oeufs !! '
Cordialement,

BenHarber