COPIER FORMULES CELLULES

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+

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

gilou Tu n'as pas peur toi !!!

1000 fichiers ouvrir copier /coller à raison de 30 s par fichier tu en as pour 8 heures...

Bonjour,

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

Merci d'avance,

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

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

Bonsoir,

ca fonctionne parfaitement, merci beaucouuuuuuuuuuuuuuuuup !!!

Bon week end,