Copier un fichier sans l'ouvrir

[BenHarber]

Bonjour Le Forum,
Ma question est simple (la solution le sera-t-elle également ?)
Existe-t-il une macro qui puisse copier / coller un fichier, SANS L'OUVRIR, d'un répertoire sur un autre ?
Merci d'avance pour vos réponses et conseils toujours avisés.

Cordialement,
BenHarber

 

[Creepy]

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

Dim FSO As New Scripting.FileSystemObject
FSO.CopyFile SourceFile, destinationRep, overwrite(True / False)
Set FSO = Nothing

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

Regarde l'aide pour toutes les possibilités !

@+

Creepy

 

[BenHarber]

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

 

[MichelXld]

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

 

[BenHarber]

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