Fonction Excel VBA FileCopy
La copie de fichier est une fonction vba intégrée utilisée pour copier le fichier d'un emplacement vers un autre emplacement mentionné. Pour utiliser cette fonction, nous devons mentionner le chemin du fichier actuel et le chemin du fichier de destination.
Ok, regardons la syntaxe de la fonction FileCopy.
- Source: Ce n'est que l'endroit d'où nous devons copier le fichier. Nous devons mentionner le chemin d'accès complet au dossier.
- Destination: Il s'agit du dossier de destination dans lequel nous devons coller le fichier copié.
Exemples
Vous trouverez ci-dessous des exemples de copie de fichiers à l'aide du code VBA.
Exemple 1
Commençons par un exemple simple. J'ai un fichier nommé «Ventes avril 2019» dans le dossier. Ci-dessous, l'image du même, c'est-à-dire « Source».
À partir de l'emplacement ci-dessus, je souhaite copier ce fichier et le coller dans un autre dossier. Ci-dessous, l'image de la même chose, c'est-à-dire " Source de destination".
Ok, écrivons le code pour cela.
Ouvrez la fonction FileCopy dans la procédure Sub.
Code:
Sous FileCopy_Example1 ()
FileCopy
End Sub
Maintenant, pour le premier argument, nous devons mentionner le chemin du fichier dans lequel se trouve notre devise.
Code:
Sous FileCopy_Example1 ()
FileCopy "D: My Files VBA April Files
End Sub
Après avoir mentionné le chemin du dossier, nous devons également mentionner le fichier avec une extension de fichier. Mentionnez donc le nom du fichier en mettant une barre oblique inverse ().
Code:
Sous FileCopy_Example1 () FileCopy "D: My Files VBA April Files Sales April 2019.xlsx", End Sub
Maintenant, dans le deuxième argument, indiquez où nous devons coller le fichier copié.
Code:
Sub FileCopy_Example1 () FileCopy "D: My Files VBA April Files Sales April 2019.xlsx", "D: My Files VBA Destination Folder Sales April 2019.xlsx" End Sub
Une chose que nous devons faire ci-après en mentionnant le chemin du dossier à la fin, nous devons également mentionner le nom du fichier dans l'argument de destination.
Exécutez maintenant le code à l'aide de la touche F5 ou manuellement. Ensuite, il copiera le fichier de l'emplacement ci-dessous vers un emplacement de destination.
"D: My Files VBA April Files Sales April 2019.xlsx"
«D: My Files VBA Destination Folder Sales April 2019.xlsx»
Exemple # 2 - Utilisez des variables pour stocker le chemin source et le chemin de destination.
Dans l'exemple précédent, nous avons fourni le chemin source et le chemin de destination directement à la formule. Mais ce n'est pas la meilleure pratique pour continuer, alors stockons-les dans des variables.
Par exemple, regardez le code ci-dessous.
Code:
Sub FileCopy_Example2 () Dim SourcePath As String Dim DestinationPath As String SourcePath = "D: My Files VBA April Files Sales April 2019.xlsx" DestinationPath = "D: My Files VBA Destination Folder Sales avril 2019. xlsx "FileCopy SourcePath, DestinationPath End Sub
Laissez-moi vous expliquer le code en détail.
Tout d'abord, j'ai déclaré deux variables.
Dim SourcePath As String Dim DestinationPath As String
Ensuite, pour la première variable, j'ai attribué le chemin du dossier à partir duquel il doit copier le fichier et le nom du fichier avec son extension de fichier.
SourcePath = "D: Mes fichiers VBA April Files Sales April 2019.xlsx"
Pour la deuxième variable, de même, j'ai attribué le chemin du dossier de destination avec le nom de fichier et l'extension Excel.
DestinationPath = "D: My Files VBA Destination Folder Sales April 2019.xlsx"
Ensuite, pour la formule FileCopy, j'ai fourni ces variables au lieu de longues chaînes de chemin de dossier.
FileCopy SourcePath, DestinationPath
De cette manière, nous pouvons utiliser des variables pour stocker les chemins et les utiliser efficacement.
Exemple # 3 - Erreur avec la fonction de copie de fichier
Parfois, la fonction de copie de fichier rencontre une erreur "Autorisation refusée".
La raison pour laquelle nous obtenons cette erreur est que lorsque le fichier de copie est ouvert et que vous essayez de copier l'erreur ci-dessus, fermez toujours le fichier et exécutez le code.
