j'ai un fichier model avec 5 pages un peu près, et j'ai un peu pres 30
fichiers doc avec les noms de fichiers tous differents les uns des autres
je doit copier l'intergralité des pages d'un des 30 doc que j'ai, dans le
fichier model apres les 5 pages
ce que je recherche c'est une macro pour automatiser tout ça ou une methode
X ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Anacoluthe
Bonjour !
'ClubDropFun' nous a écrit ...
j'ai un fichier model avec 5 pages un peu près, et j'ai un peu pres 30 fichiers doc avec les noms de fichiers tous differents les uns des autres je doit copier l'intergralité des pages d'un des 30 doc que j'ai, dans le fichier model apres les 5 pages ce que je recherche c'est une macro pour automatiser tout ça
Si copier/coller ou Insertion/Fichier doivent être automatisés (?) , utilisez l'enregistreur de macro.
Anacoluthe « Je ne cherche pas à connaître les réponses, je cherche à comprendre les questions. » - CONFUCIUS
Bonjour !
'ClubDropFun' nous a écrit ...
j'ai un fichier model avec 5 pages un peu près, et j'ai un peu pres 30
fichiers doc avec les noms de fichiers tous differents les uns des autres
je doit copier l'intergralité des pages d'un des 30 doc que j'ai, dans le
fichier model apres les 5 pages
ce que je recherche c'est une macro pour automatiser tout ça
Si copier/coller ou Insertion/Fichier doivent être
automatisés (?) , utilisez l'enregistreur de macro.
Anacoluthe
« Je ne cherche pas à connaître les réponses,
je cherche à comprendre les questions. »
- CONFUCIUS
j'ai un fichier model avec 5 pages un peu près, et j'ai un peu pres 30 fichiers doc avec les noms de fichiers tous differents les uns des autres je doit copier l'intergralité des pages d'un des 30 doc que j'ai, dans le fichier model apres les 5 pages ce que je recherche c'est une macro pour automatiser tout ça
Si copier/coller ou Insertion/Fichier doivent être automatisés (?) , utilisez l'enregistreur de macro.
Anacoluthe « Je ne cherche pas à connaître les réponses, je cherche à comprendre les questions. » - CONFUCIUS
ClubDropFun
Oui je pense que Insertion/Fichier doit être la meilleur méthode
Les 30 doc que j'ai ce trouve dans le même dossier, il y a que des doc dedans
Faire du copier/coller, un peu dur a longs termes
je doit faire ce genre de chose périodiquement
Merci
"Anacoluthe" a écrit dans le message de news:
Bonjour !
'ClubDropFun' nous a écrit ...
j'ai un fichier model avec 5 pages un peu près, et j'ai un peu pres 30 fichiers doc avec les noms de fichiers tous differents les uns des autres
je doit copier l'intergralité des pages d'un des 30 doc que j'ai, dans le
fichier model apres les 5 pages ce que je recherche c'est une macro pour automatiser tout ça
Si copier/coller ou Insertion/Fichier doivent être automatisés (?) , utilisez l'enregistreur de macro.
Anacoluthe « Je ne cherche pas à connaître les réponses, je cherche à comprendre les questions. » - CONFUCIUS
Oui je pense que Insertion/Fichier doit être la meilleur méthode
Les 30 doc que j'ai ce trouve dans le même dossier, il y a que des doc
dedans
Faire du copier/coller, un peu dur a longs termes
je doit faire ce genre de chose périodiquement
Merci
"Anacoluthe" <nopub_anacoluthe@Ouanadoo.fr> a écrit dans le message de
news:uD43bIJeEHA.3412@TK2MSFTNGP11.phx.gbl...
Bonjour !
'ClubDropFun' nous a écrit ...
j'ai un fichier model avec 5 pages un peu près, et j'ai un peu pres 30
fichiers doc avec les noms de fichiers tous differents les uns des
autres
je doit copier l'intergralité des pages d'un des 30 doc que j'ai, dans
le
fichier model apres les 5 pages
ce que je recherche c'est une macro pour automatiser tout ça
Si copier/coller ou Insertion/Fichier doivent être
automatisés (?) , utilisez l'enregistreur de macro.
Anacoluthe
« Je ne cherche pas à connaître les réponses,
je cherche à comprendre les questions. »
- CONFUCIUS
Oui je pense que Insertion/Fichier doit être la meilleur méthode
Les 30 doc que j'ai ce trouve dans le même dossier, il y a que des doc dedans
Faire du copier/coller, un peu dur a longs termes
je doit faire ce genre de chose périodiquement
Merci
"Anacoluthe" a écrit dans le message de news:
Bonjour !
'ClubDropFun' nous a écrit ...
j'ai un fichier model avec 5 pages un peu près, et j'ai un peu pres 30 fichiers doc avec les noms de fichiers tous differents les uns des autres
je doit copier l'intergralité des pages d'un des 30 doc que j'ai, dans le
fichier model apres les 5 pages ce que je recherche c'est une macro pour automatiser tout ça
Si copier/coller ou Insertion/Fichier doivent être automatisés (?) , utilisez l'enregistreur de macro.
Anacoluthe « Je ne cherche pas à connaître les réponses, je cherche à comprendre les questions. » - CONFUCIUS
Thaliss
Salut,
Je ne sais pas si cela peut t'aider ou non, mais j'avais repris une macro de l'excellente FAQ des contributeurs de ce forum (ou peut-être directement dans un post), qui servait à insérer plusieurs doc dans un seul. Je l'ai un piti peu remaniée, voilà ce qu'elle fait :
- tu indiques le répertoire où se trouvent tous les fichiers que tu souhaites copier/coller - les fichiers sont insérés les uns après les autres depuis l'endroit où était ton curseur, avec un saut de page impair entre chaque (mais bon tu peux changer)
Si j'ai bien compris et que tu veux copier/coller plusieurs fichiers (les 30) dans le même (le modèle), cela peut t'être utile. ---------------------------------------------------------------- Sub Concatenation_fichiers() ' Concatenation_fichiers Macro
Dim Chemin As String Chemin = InputBox("Indiquez le chemin complet du dossier dans lequel se trouvent les documents à traiter (ex : les sous-documents d'un manuel)", "Macro de concaténation de fichiers .doc", "Insérez votre chemin", 5000, 5000) If Chemin = "" Then Exit Sub
ChDir Chemin myName = Dir("*.*") While myName <> "" With Selection .InsertFile FileName:=myName, ConfirmConversions:úlse '.InsertParagraphAfter .InsertBreak Type:=wdSectionBreakOddPage End With myName = Dir() Wend End Sub ------------------------------------------------------------- En commentaire la possibilité de mettre un paragraphe entre chaque fichier (mais bon pas utile si saut impair)
J'en profite pour remercier encore ceux et celles du forum, je puise très souvent des infos dans vos posts et c'est souvent très utile pour moi !
-- Thaliss
"ClubDropFun" a écrit dans le message de news: celgp5$h07$
Oui je pense que Insertion/Fichier doit être la meilleur méthode
Les 30 doc que j'ai ce trouve dans le même dossier, il y a que des doc dedans
Faire du copier/coller, un peu dur a longs termes
je doit faire ce genre de chose périodiquement
Merci
"Anacoluthe" a écrit dans le message de news:
Bonjour !
'ClubDropFun' nous a écrit ...
j'ai un fichier model avec 5 pages un peu près, et j'ai un peu pres 30 fichiers doc avec les noms de fichiers tous differents les uns des autres
je doit copier l'intergralité des pages d'un des 30 doc que j'ai, dans le
fichier model apres les 5 pages ce que je recherche c'est une macro pour automatiser tout ça
Si copier/coller ou Insertion/Fichier doivent être automatisés (?) , utilisez l'enregistreur de macro.
Anacoluthe « Je ne cherche pas à connaître les réponses, je cherche à comprendre les questions. » - CONFUCIUS
Salut,
Je ne sais pas si cela peut t'aider ou non, mais j'avais repris une macro de
l'excellente FAQ des contributeurs de ce forum (ou peut-être directement
dans un post), qui servait à insérer plusieurs doc dans un seul. Je l'ai un
piti peu remaniée, voilà ce qu'elle fait :
- tu indiques le répertoire où se trouvent tous les fichiers que tu
souhaites copier/coller
- les fichiers sont insérés les uns après les autres depuis l'endroit où
était ton curseur, avec un saut de page
impair entre chaque (mais bon tu peux changer)
Si j'ai bien compris et que tu veux copier/coller plusieurs fichiers (les
30) dans le même (le modèle), cela peut t'être utile.
----------------------------------------------------------------
Sub Concatenation_fichiers()
' Concatenation_fichiers Macro
Dim Chemin As String
Chemin = InputBox("Indiquez le chemin complet du dossier dans lequel se
trouvent les documents à traiter (ex : les sous-documents d'un manuel)",
"Macro de concaténation de fichiers .doc", "Insérez votre chemin", 5000,
5000)
If Chemin = "" Then Exit Sub
ChDir Chemin
myName = Dir("*.*")
While myName <> ""
With Selection
.InsertFile FileName:=myName, ConfirmConversions:úlse
'.InsertParagraphAfter
.InsertBreak Type:=wdSectionBreakOddPage
End With
myName = Dir()
Wend
End Sub
-------------------------------------------------------------
En commentaire la possibilité de mettre un paragraphe entre chaque fichier
(mais bon pas utile si saut impair)
J'en profite pour remercier encore ceux et celles du forum, je puise très
souvent des infos dans vos posts et c'est souvent très utile pour moi !
--
Thaliss
"ClubDropFun" <ClubPower@Neant.com> a écrit dans le message de news:
celgp5$h07$1@s1.read.news.oleane.net...
Oui je pense que Insertion/Fichier doit être la meilleur méthode
Les 30 doc que j'ai ce trouve dans le même dossier, il y a que des doc
dedans
Faire du copier/coller, un peu dur a longs termes
je doit faire ce genre de chose périodiquement
Merci
"Anacoluthe" <nopub_anacoluthe@Ouanadoo.fr> a écrit dans le message de
news:uD43bIJeEHA.3412@TK2MSFTNGP11.phx.gbl...
Bonjour !
'ClubDropFun' nous a écrit ...
j'ai un fichier model avec 5 pages un peu près, et j'ai un peu pres 30
fichiers doc avec les noms de fichiers tous differents les uns des
autres
je doit copier l'intergralité des pages d'un des 30 doc que j'ai, dans
le
fichier model apres les 5 pages
ce que je recherche c'est une macro pour automatiser tout ça
Si copier/coller ou Insertion/Fichier doivent être
automatisés (?) , utilisez l'enregistreur de macro.
Anacoluthe
« Je ne cherche pas à connaître les réponses,
je cherche à comprendre les questions. »
- CONFUCIUS
Je ne sais pas si cela peut t'aider ou non, mais j'avais repris une macro de l'excellente FAQ des contributeurs de ce forum (ou peut-être directement dans un post), qui servait à insérer plusieurs doc dans un seul. Je l'ai un piti peu remaniée, voilà ce qu'elle fait :
- tu indiques le répertoire où se trouvent tous les fichiers que tu souhaites copier/coller - les fichiers sont insérés les uns après les autres depuis l'endroit où était ton curseur, avec un saut de page impair entre chaque (mais bon tu peux changer)
Si j'ai bien compris et que tu veux copier/coller plusieurs fichiers (les 30) dans le même (le modèle), cela peut t'être utile. ---------------------------------------------------------------- Sub Concatenation_fichiers() ' Concatenation_fichiers Macro
Dim Chemin As String Chemin = InputBox("Indiquez le chemin complet du dossier dans lequel se trouvent les documents à traiter (ex : les sous-documents d'un manuel)", "Macro de concaténation de fichiers .doc", "Insérez votre chemin", 5000, 5000) If Chemin = "" Then Exit Sub
ChDir Chemin myName = Dir("*.*") While myName <> "" With Selection .InsertFile FileName:=myName, ConfirmConversions:úlse '.InsertParagraphAfter .InsertBreak Type:=wdSectionBreakOddPage End With myName = Dir() Wend End Sub ------------------------------------------------------------- En commentaire la possibilité de mettre un paragraphe entre chaque fichier (mais bon pas utile si saut impair)
J'en profite pour remercier encore ceux et celles du forum, je puise très souvent des infos dans vos posts et c'est souvent très utile pour moi !
-- Thaliss
"ClubDropFun" a écrit dans le message de news: celgp5$h07$
Oui je pense que Insertion/Fichier doit être la meilleur méthode
Les 30 doc que j'ai ce trouve dans le même dossier, il y a que des doc dedans
Faire du copier/coller, un peu dur a longs termes
je doit faire ce genre de chose périodiquement
Merci
"Anacoluthe" a écrit dans le message de news:
Bonjour !
'ClubDropFun' nous a écrit ...
j'ai un fichier model avec 5 pages un peu près, et j'ai un peu pres 30 fichiers doc avec les noms de fichiers tous differents les uns des autres
je doit copier l'intergralité des pages d'un des 30 doc que j'ai, dans le
fichier model apres les 5 pages ce que je recherche c'est une macro pour automatiser tout ça
Si copier/coller ou Insertion/Fichier doivent être automatisés (?) , utilisez l'enregistreur de macro.
Anacoluthe « Je ne cherche pas à connaître les réponses, je cherche à comprendre les questions. » - CONFUCIUS