Copier coller d'un fichier excel dans un répertoire
Résolu
Thomus
-
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
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 :
Merci pour votre aide
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
A voir également:
- Copier coller d'un fichier excel dans un répertoire
- Comment réduire la taille d'un fichier - Guide
- Comment ouvrir un fichier epub ? - Guide
- Fichier bin - Guide
- Retrouver un copier-coller android - Guide
- Fichier rar - Guide
2 réponses
Bonjour,
Pour UN SEUL fichier :
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
