Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

[Résolu] Déplacement d'un fichier

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion sweaty
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
S

sweaty

Guest
Bonjour

A la fin d'une procédure sur un fichier celui se ferme.
Quelles instructions mettre à la fin pour déplacer ce fichier dans un autre répertoire dont le nom contient plusieurs valeurs de cellule ?

Private Sub CommandButtonvalidcomremA_Click()
Workbooks.Open "C:\Suivi_Temp\Docsuivicharge.xls"
Dim Chemin As String, Fichier As String
Chemin = "C:\Suivi_Temp\"
Fichier = "DocsuivichargeA.xls"
ActiveWorkbook.SaveCopyAs Chemin & Fichier
ActiveWorkbook.Close
Workbooks.Open "C:\Suivi_Temp\DocsuivichargeA.xls"
[U3] = operateur.datsasentrea
[U5] = operateur.datentresallea
[N3] = operateur.LettretableA.Text
[Y9] = [N3]
[N5] = operateur.Label8.Caption
[Y5] = [N5]
Labelsortiesalle.Caption = Now
[U7] = Labelsortiesalle.Caption
'j'ai supprimé ici toutes les actions différentes faites sur mes cellules
Cliquez pour agrandir...
comremchariotA.Hide
End Sub

Je dois déplacer ce fichier dans le dossier dans :
"C:\Suivi_DLC\" & "Archives_" & Range("C33").Value & "\" & "Batch_BL_N°" & Range("B25").Value & ""
et ensuite je dois le supprimer de " C:\Suivi_Temp "

Merciii beaucoup pour vos aides
 
Dernière modification par un modérateur:
Trier par date Trier par votes
Re : Déplacement d'un fichier

Bonjour,

regarde peut être ceci :
Code: 
'copie fichier
FileCopy "C:\Dossier1\test.csv", "C:\Dossier2\test.txt"


'Supprime fichier
Kill "C:\Dossier1\test.csv",

A adapter à ton projet.

bonne soirée
@+
 
Vote positif 0 Vote négatif
Re : Déplacement d'un fichier

J'ai ajouté après la fermeture du fichier cela mais ça bug :

ActiveWorkbook.Save
ActiveWindow.Close
FileCopy "C:\Suivi_Temp\DocsuivichargeA.xls", "C:\Suivi_DLC\" & "Archives_" & Range("C33").Value & "\" & "Batch_BL_N°" & Range("B25").Value & "\DocsuivichargeA.xls"
 
Vote positif 0 Vote négatif
Re : Déplacement d'un fichier

Sur cette ligne :
FileCopy "C:\Suivi_Temp\DocsuivichargeA.xls", "C:\Suivi_DLC\" & "Archives_" & Range("C33").Value & "\" & "Batch_BL_N°" & Range("B25").Value & "\DocsuivichargeA.xls
 
Vote positif 0 Vote négatif
Re : Déplacement d'un fichier

Bonjour,

pourquoi pas ceci :
Code: 
FileCopy "C:\Suivi_Temp\DocsuivichargeA.xls", "C:\Suivi_DLC\Archives_" & Range("C33").Value & "\Batch_BL_N°" & Range("B25").Value & "\DocsuivichargeA.xls

supposant que "Archives_" et "Batch_BL_N°" ne soient pas des variables, mais sans voir le contenu des cellules.... A noter bien sûr, les dossiers doivent être créés au préalable...

bonne journée
@+
 
Vote positif 0 Vote négatif
Re : Déplacement d'un fichier

Bonjour

Merci, j'ai résolu le problème qui venait que le contenu la cellule " B25 " s'effaçait avant la copie du fichier, j'ai donc modifié mon code pour que le contenu s'efface après déplacement du fichier.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
[Résolu]reconnaitre la structure d'un nom de fichier
Réponses
2
Affichages
2 K
francedemo
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…