COPIER FORMULES CELLULES

gwen -  
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,
Configuration: Windows XP Internet Explorer 7.0

7 réponses

  • Votes
  • Date
  • Date décroissante
  1. Bidouilleu_R
    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+
    1. gilou
      bonjour
      fichier1 > copier les T >CLIC DROIT sur l'onglet > selectionner toutes les feuilles > coller
      meme chose pour les U
      ça doit gazer
      1. Bidouilleu_R
        gilou Tu n'as pas peur toi !!!

        1000 fichiers ouvrir copier /coller à raison de 30 s par fichier tu en as pour 8 heures...
        1. gilou
          mais en utilisant selctionner toutes les feuilles cela n'irait -il pas , j'ai testé sur la 10aine , j'ai trouve cela rapide
          bien sur il faut nommer(inserer) les 1000feuilles
          qu' avez vous à proposer ;je suis interessé aussi
          a+
      2. Gwen
        Bonjour,

        le nom de la feuille à copier est "STAT" ainsi que la feuille de destination. Le fichier est identique.

        Merci d'avance,
        2. Bidouilleu_R
          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
          1.  Bidouilleu_R
            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
            1. gilou
              merci quant à moi il va falloir que j'apprene a faire la difference entre classeur et un repertoire
              bonne soirée
          2. Gwen
            Bonsoir,

            ca fonctionne parfaitement, merci beaucouuuuuuuuuuuuuuuuup !!!

            Bon week end,