Comment enregistrer une seule feuille d'un document sous word

[Didpa]

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

[AlainTech]

Envoyé par Didpa

Je suis débutant depuis maintenant merci

Et le "maintenant" dure combien de temps, chez toi?

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

[SilkyRoad]

bonjour Didpa, bonjour Alain...;o)


j'espere que cette macro pourra t'aider

Code :

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

[Didpa]

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:

Code :

1
2
3
Private Sub CommandButton1_Click()
Call Test
End Sub

quand j'exécute la macro il me met que le texte n'est pas sélectionné.
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.

[AlainTech]

Envoyé par AlainTech

A ce sujet, très peu sont marquées "résolu". Pourrais-tu y jeter un oeil et les mettre à jour?
Merci

Et pour cette partie de mon message???

[Didpa]

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.

[AlainTech]

Pour la dernière fois!

Si tu ne vas pas faire un tour dans tes anciennes discussions, je ferme toutes celles que tu ouvriras.

[ouskel'n'or]

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

[ouskel'n'or]

Me semblait bien que j'avais fait ça (sélectionner puis copier une feuille)

Code :

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

Tu dis