Copier coller d'un fichier excel dans un répertoire

[Résolu/Fermé]
Signaler
-
Messages postés
12251
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
17 mars 2021
-
Bonjour,

J'aimerais via vba pouvoir copier un fichier nommé par exemple test_XX.xls

et le coller dans le même répertoire sous le nom test_01.xls

Voici mon code qui bien entendu ne fonctionne pas :


Sub Creerfeuille()

Dim objFSO, Repertoire, Fichier, Nomfichier As Object

Repertoire = "D:\Test\"
Nomfichier = "test_XX.xls"


Dim FSO As Scripting.FileSystemObject
Dim DossierSource As Scripting.Folder
Dim Fichier As Scripting.File

Set FSO = New Scripting.FileSystemObject
Set DossierSource = FSO.GetFolder(Repertoire)

For Each Fichier In DossierSource.Files
If Fichier.Name = Nomfichier Then ActiveWorkbook.SaveCopyAs (Repertoire + Nomfichier)
Next Fichier


End Sub



Merci pour votre aide


2 réponses

Messages postés
12251
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
17 mars 2021
2 627
Bonjour,

Pour UN SEUL fichier :

'*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
'*
'*      Références - Editeur VBE : « Microsoft Scripting Runtime »
'*      Cette procédure utilise une librairie d'objets qui, par défaut,
'*      n'est pas incluse dans l'éditeur VBE.
'*      Il faut donc ajouter une référence à cette libraire:
'*
'*      Dans VBE : (pour y accéder, depuis une feuille
'*      de votre classeur Excel, tapez simultanément ALT+F11)
'*          - Menu:          Outils
'*          - Choix:          Références
'*          - Cochez : « Microsoft Scripting Runtime »
'*
'*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
Sub DeplaceFichiersXls()
Dim oFSO As Scripting.FileSystemObject
Dim source As String, destin As String, NomFichierInitial As String, NomFichierFinal As String

'---------------------------------------------------A ADAPTER----------------------------
Set oFSO = New Scripting.FileSystemObject
source = "C:\Users\moi.meme\Desktop\"
NomFichierInitial = "Test.xls"
destin = "F:\Mes documents\TRAVAIL\TEST\"
NomFichierFinal = "Test_01.xls"
'---------------------------------------------------------------------------------------------

If oFSO.FileExists(source & NomFichierInitial) Then
    oFSO.MoveFile source & NomFichierInitial, destin & NomFichierFinal
End If
End Sub

Merci beaucoup,

Cela fonctionne ;)
Messages postés
12251
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
17 mars 2021
2 627
De rien.
A+