COPIER FORMULES CELLULES
gwen
-
Gwen -
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,
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,
A voir également:
- COPIER FORMULES CELLULES
- Formules - Télécharger - Études & Formations
- Comment copier une vidéo youtube - Guide
- Super copier - Télécharger - Gestion de fichiers
- Excel additionner plusieurs cellules - Guide
- Verrouiller cellules excel - Guide
7 réponses
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+
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
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...
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,
le nom de la feuille à copier est "STAT" ainsi que la feuille de destination. Le fichier est identique.
Merci d'avance,
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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.
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
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
