Tonytone

tonytone

XLDnaute Nouveau
Bonjour tout le monde,

Je suis nouveau dans le domaine du codage. En tout j'ai developpé trois codes au plus.
Actuellement je suis en train de faire une macro Dans un fichier excel permettant de copier un onglet d'un fichier Excel se trouvant dans un repertoire et serveur X vers un mon fichier de traitement de données sur lequelle je vais appliquer un tableau croisé dynamique.

J'ai donc crée un bouton d'execution dont le code est le suivant :

Sub Copier_et_sauver_un_fichier_Excel()

' Copier un fichier dans un autre dossier sans l'ouvrir
' Variables
Dim chemin_fichier As String
Dim chemin_destination As String
'Identifier le chemin du fichier (original)
chemin_fichier = Application.GetOpenFilename(, , "W:\ERP LUX\SGI\SOUM_F.XLS")
'identifier le chemin du fichier (Destination)
chemin_destination = "Z:\Nouveau fichier.xls"
'Copier le fichier sans l'ouvrir
FileCopy chemin_fichier, chemin_destination
'message de confirmation
MsgBox (" Succès ! ")
End Sub

J'ai une erreur sur la ligne

FileCopy chemin_fichier, chemin_destination

Erreur 53 . Fichier introuvable

Ce n'est que le début et j'ai déjà une erreur.

Merci d'avance pour votre aide
 

soan

XLDnaute Barbatruc
Inactif
Bonsoir @tonytone,

Bienvenue sur le forum ! :)

Pour te présenter, c'est bien ici : « Autres discussions / Présentation des nouveaux membres » ;
par contre, pour ton exo Excel, tu auras plus de chances d'obtenir des réponses en postant
ta demande sur : « Questions / Forum Excel » ; bonne chance ! ;)


soan
 

Discussions similaires

Réponses
3
Affichages
306
Réponses
1
Affichages
269
Compte Supprimé 979
C

Statistiques des forums

Discussions
311 713
Messages
2 081 806
Membres
101 819
dernier inscrit
lukumubarth