Copier coller fichier xls sans les ouvrir
Bonjour à tous,
J'ouvre une nouvelle discussion suite à une macro faite par Youville.
est-il possible de copier coller un fichier xls (designé par la macro ci-dessous) mais sans ouvrir/fermer les fichiers car les fichiers que je veux déplacer sont très gros et du cout c'est long.
Merci de votre aidre
Jodo
La Macro :est la suivante :
Sub a()
Dim Dossier_cherché As String, Fichier_cherché As String, Dossier_récepteur As String
Application.ScreenUpdating = True
Dossier_récepteur = Range("F12")
Range("B12").Activate
Do Until ActiveCell = ""
Dossier_cherché = ActiveCell
Fichier_cherché = ActiveCell.Offset(0, 1)
Application.DisplayAlerts = False
Workbooks.Open Filename:=Dossier_cherché & "\" & Fichier_cherché
ActiveWorkbook.SaveAs Filename:=Dossier_récepteur & "\" & Fichier_cherché
ActiveWorkbook.Close
ActiveCell.Offset(1, 0).Activate
Loop
End Sub
Salut le forum
Tu n'avais pas besoin d'ouvrir une nouvelle discussion.
Réponse sur l'autre ficelle Copier fichiers xls vers répertoire
Mytå
Bonjour à tous,
Je souhaites ameliorer la macro ci-dessous car ouvrir et enregistrer sous les fichiers prend beaucoup de temps (fichiers très gros), je recherche le code pour copier et coller les fichiers xls SANS les ouvrir (la discussion precedante à permis de copier les fichiers xls vers un dossier en ouvrant les fichiers)
Merci de votre aide
Jodo
La Macro :est la suivante :
Sub a()
Dim Dossier_cherché As String, Fichier_cherché As String, Dossier_récepteur As String
Application.ScreenUpdating = True
Dossier_récepteur = Range("F12")
Range("B12").Activate
Do Until ActiveCell = ""
Dossier_cherché = ActiveCell
Fichier_cherché = ActiveCell.Offset(0, 1)
Application.DisplayAlerts = False
Workbooks.Open Filename:=Dossier_cherché & "\" & Fichier_cherché
ActiveWorkbook.SaveAs Filename:=Dossier_récepteur & "\" & Fichier_cherché
ActiveWorkbook.Close
ActiveCell.Offset(1, 0).Activate
Loop
End Sub
Re le forum
Tu as la réponse sur ton autre ficelle - Clique sur le lien -----> Copier fichiers xls vers répertoire
Mytå
Re le forum
Bien heureux que ton problème soit solutionné sur l'autre ficelle.
Mais il ne faut pas oublier de faire passer celle-ci aussi en [Résolu]
Mytå