Comment enregistrer une seule feuille d'un document contenant plusieur feuilles sous word dans un nouveau dossier en spécifiant le nom et l'endroit de destination du dossier ?
Je suis débutant depuis maintenant merci
Comment enregistrer une seule feuille d'un document contenant plusieur feuilles sous word dans un nouveau dossier en spécifiant le nom et l'endroit de destination du dossier ?
Je suis débutant depuis maintenant merci
Et le "maintenant" dure combien de temps, chez toi?Envoyé par Didpa
Tu es là depuis début août et tu as posé une vingtaine de questions.
A ce sujet, très peu sont marquées "résolu". Pourrais-tu y jeter un oeil et les mettre à jour?
Merci
N'oubliez pas de cliquer sur quand vous avez obtenu ou trouvé vous-même la réponse à votre question.
Si vous trouvez seul, pensez à poster votre solution. Elle peut servir à d'autres!
Pensez aussi à voter pour les réponses qui vous ont aidés.
------------
Je dois beaucoup de mes connaissances à mes erreurs!
bonjour Didpa, bonjour Alain...;o)
j'espere que cette macro pourra t'aider
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46 Sub Test() IsolerPage 4 End Sub Public Sub IsolerPage(NumPage As Integer) Dim NbLigne As Long Dim NombrePage As Integer NombrePage = _ ActiveDocument.BuiltInDocumentProperties("Number of Pages") If NombrePage < NumPage Then Exit Sub ActiveDocument.Range.Select Selection.GoTo What:=wdGoToPage, _ Which:=wdGoToAbsolute, Count:=NumPage + 1 Selection.Move Unit:=wdCharacter, Count:=-1 If NombrePage = NumPage Then Selection.Move Unit:=wdCharacter, _ Count:=ActiveDocument.Range.Characters.Count NbLigne = Selection.Information(wdFirstCharacterLineNumber) If NombrePage = NumPage Then NbLigne = NbLigne - 1 Selection.Move Unit:=wdCharacter, Count:=1 With Selection .HomeKey Unit:=wdLine, Extend:=wdMove .ExtendMode = True .MoveUp Unit:=wdLine, Count:=NbLigne .ExtendMode = False End With Selection.Copy Documents.Add ActiveDocument.Range.Paste If NumPage < NombrePage Then Selection.Move Unit:=wdCharacter, _ Count:=ActiveDocument.Range.Characters.Count Selection.Delete Unit:=wdCharacter, Count:=1 End If End Sub
bonne soiree
michel
Quand je voulais dire nouveau evidement c'etait dans la programmation dans word
Sinon pour le code, cela n'as pas l'air de fonctionner comme prévus, donc j'ai inseré un bouton
style:
quand j'exécute la macro il me met que le texte n'est pas sélectionné.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Private Sub CommandButton1_Click() Call Test End Sub
Ce que j'aimerais et si c'est possible, c'est que quand j'exécute la macro, une msg box apparaisse en me disant style enregistre la page n° :
moi je n'ai plus qu'a saisir le numero de la page,
Je Fais "Ok"
Ensuite une nouvelle msg Box aparaisse et demande sous quelle nom :
et là on saisi le nom sous lequelle on veut enregistrer la feuille.
Celle çi s'enregistre dans un dossier créé d'avance mais sous le nom que l'on viens de lui donner.
j'espère avoir été assé clair pour moi je me comprend mais bon, merci d'avance quand même.
Et pour cette partie de mon message???Envoyé par AlainTech
N'oubliez pas de cliquer sur quand vous avez obtenu ou trouvé vous-même la réponse à votre question.
Si vous trouvez seul, pensez à poster votre solution. Elle peut servir à d'autres!
Pensez aussi à voter pour les réponses qui vous ont aidés.
------------
Je dois beaucoup de mes connaissances à mes erreurs!
Quand j'exécute la macro il enregistre tout.
Ce que j'aimerais et si c'est possible, c'est que quand j'exécute la macro, une msg box apparaisse en me disant style enregistre la page n° :
moi je n'ai plus qu'a saisir le numero de la page,
Je Fais "Ok"
Ensuite une nouvelle msg Box aparaisse et demande sous quelle nom :
et là on saisi le nom sous lequelle on veut enregistrer la feuille.
Celle çi s'enregistre dans un dossier créé d'avance mais sous le nom que l'on viens de lui donner.
j'espère avoir été assé clair pour moi je me comprend mais bon, merci d'avance quand même.
Pour la dernière fois!
Si tu ne vas pas faire un tour dans tes anciennes discussions, je ferme toutes celles que tu ouvriras.
N'oubliez pas de cliquer sur quand vous avez obtenu ou trouvé vous-même la réponse à votre question.
Si vous trouvez seul, pensez à poster votre solution. Elle peut servir à d'autres!
Pensez aussi à voter pour les réponses qui vous ont aidés.
------------
Je dois beaucoup de mes connaissances à mes erreurs!
Une indication pour retrouver tes messages avant cloture : Un clic sur ton nom -> Suivre tous les messages de... toi Une fois là, tu fais le ménage
Me semblait bien que j'avais fait ça (sélectionner puis copier une feuille)
Tu dis
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 Sub SélectionnerXpagesEtLesCopierSurUnNouveauDoc() Dim X, Pageàcopier X = 1 Pageàcopier = 3 'La page à copier sera la 4 (la 1ère n'est pas comptée) Selection.HomeKey Unit:=wdStory Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Count:=Pageàcopier With Selection .ExtendMode = True .GoTo What:=wdGoToPage, Which:=wdGoToNext, Count:=X End With Selection.Copy Documents.Add ActiveDocument.Range.Paste End Sub
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager