Bonjour à tous,
en ayant solutionné un problème grâce au forum j'ai été confronté à une difficulté, que je suppose, bon nombre d'entre vous ont déjà eu. Je n'ai pas trouvé la solution (je l'ai peut être pas vu) alors je vous expose mon problème :
la macro de départ consiste à copier des cellules d'un fichier modèle (xla assistant modèle) à plusieurs autres fichiers (1560) :
Salut,
Sub TEST()
Dim Fich As String, chemin As String
Const chemin = "C:\XXXX\TEST MACRO MULTIPLE\A APPLIQUER\"
Fich = Dir(chemin & "*.xls")
Do While Fich <> ""
Workbooks.Open chemin & Fich
ThisWorkbook.Sheets("Feuil1").Range("A1:A30").Copy
Workbooks(Fich).Activate
ActiveWorkbook.Sheets("Feuil1").Select
Range("A1").Select
ActiveSheet.Paste
Workbooks(Fich).Close True
Fich = Dir
Loop
End Sub
certaines cellules copiées rapportent donc les formules avec leur liaisons du classeur initial ( '[classeur1]') et ça me fausse donc le résultat des fichiers de destination.
J'ai pensé à faire une macro où je repasse sur chaque cellule concernée et supprime les liaisons (travail un peu long certes, mais s'il n'y a pas d'autres solutions tans pis), mais n'y aurait il pas une solution plus simple à appliquer au cours le la 1ère macro TEST ?
en ayant solutionné un problème grâce au forum j'ai été confronté à une difficulté, que je suppose, bon nombre d'entre vous ont déjà eu. Je n'ai pas trouvé la solution (je l'ai peut être pas vu) alors je vous expose mon problème :
la macro de départ consiste à copier des cellules d'un fichier modèle (xla assistant modèle) à plusieurs autres fichiers (1560) :
Salut,
Sub TEST()
Dim Fich As String, chemin As String
Const chemin = "C:\XXXX\TEST MACRO MULTIPLE\A APPLIQUER\"
Fich = Dir(chemin & "*.xls")
Do While Fich <> ""
Workbooks.Open chemin & Fich
ThisWorkbook.Sheets("Feuil1").Range("A1:A30").Copy
Workbooks(Fich).Activate
ActiveWorkbook.Sheets("Feuil1").Select
Range("A1").Select
ActiveSheet.Paste
Workbooks(Fich).Close True
Fich = Dir
Loop
End Sub
certaines cellules copiées rapportent donc les formules avec leur liaisons du classeur initial ( '[classeur1]') et ça me fausse donc le résultat des fichiers de destination.
J'ai pensé à faire une macro où je repasse sur chaque cellule concernée et supprime les liaisons (travail un peu long certes, mais s'il n'y a pas d'autres solutions tans pis), mais n'y aurait il pas une solution plus simple à appliquer au cours le la 1ère macro TEST ?