COPIER FORMULES CELLULES Fermé

Question

Bonjour,

Je dois copier les formules des cellules "T6" , "T7", "T8", "T9", "T10", "T11", "T12", "T13", "T14", "T15", "T16", "T17", "T18" et "U6" , "U7", "U8", "U9", "U10", "U11", "U12", "U13", "U14", "U15", "U16", "U17", "U18" de mon fichier "MODELE.xls" dans 1000 fichiers de présentation identique nommés di ficher "1.xls" au "1000.xls".
Le fichier MODELE et l'ensemble des 1000 fichiers sont dans le même répertoire.

Pourriez vous m'aider et me proposer une macro ?

Merci d'avance,

Bidouilleu_R · Answer

Quel est le nom de la feuille de ton fichier modèle ou se trouve la source à copier de T6:T18 et U6:U18 et 
comment s'appelle la feuille destination (l'endroit où l'on colle) des fichiers 1 à 1000.
A+

gilou · Answer

bonjour
          fichier1 > copier les  T  >CLIC DROIT sur l'onglet > selectionner toutes les feuilles > coller
meme chose pour les U 
         ça doit gazer

Bidouilleu_R · Answer

gilou Tu n'as pas peur toi !!!

1000 fichiers ouvrir copier /coller à raison de 30 s par fichier tu en as pour  8 heures...

Gwen · Answer

Bonjour,

le nom de la feuille à copier est "STAT" ainsi que la feuille de destination. Le fichier est identique.

Merci d'avance,

Bidouilleu_R · Answer

La demande est  : " dans 1000 fichiers de présentation identique "
dans le cas de plusieurs feuille ok mais plusieurs classeurs... 

je propose ce code qu'il faut ADAPTER Source et Destination  
1) placer ce code dans un module de ton classeur source.
2) Executer la macro
3) dire si cela répond au besoin.


Sub Copie_des_lignes()
'Bidouilleu_R Ccm
'recopie les ligne T6 à T18 et U6 à U18 dans 1000 fichiers
' qui sont dans le même répertoire
Dim LeNom As String  'pour le fichier
Dim Chemin As String  ' pour le dossier
Chemin = ThisWorkbook.Path  ' récupère le chemin

For i = 1 To 1000
Application.ScreenUpdating = False ' fige l'écran
Sheets("feuil1").Select
Range("T6").Select
Range("T6:U18").Copy     ' copie la source à adapter

    LeNom = CStr(i) & ".xls"
    Application.Workbooks.Open (Chemin & "\" & LeNom)
   
    Sheets("Feuil1").Select   ' colle sur la feuille 1 à adapter
    Range("T6").Select
    ActiveSheet.Paste
    Workbooks(LeNom).Save
    Workbooks(LeNom).Close
    Application.ScreenUpdating = True

Next
s = MsgBox("Traitement terminé")

End Sub

Bidouilleu_R · Answer

une petite erreur 
application.screenupdating= true doit être placé après le next sinon ça sert à rien.


Sub Copie_des_lignes()
'Bidouilleu_R Ccm
'recopie les ligne T6 à T18 et U6 à U18 dans 1000 fichiers
' qui sont dans le même répertoire
Dim LeNom As String  'pour le fichier
Dim Chemin As String  ' pour le dossier
Chemin = ThisWorkbook.Path  ' récupère le chemin

For i = 1 To 1000
Application.ScreenUpdating = False ' fige l'écran
Sheets("feuil1").Select
Range("T6").Select
Range("T6:U18").Copy     ' copie la source à adapter

    LeNom = CStr(i) & ".xls"
    Application.Workbooks.Open (Chemin & "\" & LeNom)
   
    Sheets("Feuil1").Select   ' colle sur la feuille 1 à adapter
    Range("T6").Select
    ActiveSheet.Paste
    Workbooks(LeNom).Save
    Workbooks(LeNom).Close
    

Next

Application.ScreenUpdating = True
s = MsgBox("Traitement terminé")

End Sub

Gwen · Answer

Bonsoir,

ca fonctionne parfaitement, merci beaucouuuuuuuuuuuuuuuuup !!!

Bon week end,

COPIER FORMULES CELLULES

7 réponses

Discussions similaires

Newsletters