Identifier une page d'un fichier autre qu'Excel

[Xtian_Québec]

Bonjour le Forum,

j'ai roulé ma bosse durant presque toute la soirée et je ne trouve pas...Même dans les fils de Dan, _Thierry ou Tibo

je me demande s'il est possible d'identifier à partir d'un code dans un fichier Excel une page précise d'un document externe (pas un fichier Excel) comme un fichier .TXT ou un fichier .DOC qui contient plusieurs pages?

Exemple un document .TXT qui contient 3 pages et je voudrais dans mon code sélectionner seulement la page 2 du document et la copier dans mon fichier Excel...est-possible ?

Est-ce possible avec PowerPoint (.ppt)

Est-ce possible également avec un fichier PDF ? 🙂cool: oui oui, j'inclus ce bout de message dans ce nouveau fil car mon post précédent n'a pas trouvé preneur...)
Je me dis souvent que tout est possible avec Excel, il s'agit de savoir comment faire et là, je ne sais vraiment pas 🙁 ...

Merci de votre aide

Xtian_Québec
@+++

 

[MichelXld]

Re : Identifier une page d'un fichier autre qu'Excel

bonjour

Tu peux essayer d'adapter cette macro VBA Word dans Excel, pour extraire une page spécifique Word

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 journée
MichelXld

 

[Xtian_Québec]

Re : Identifier une page d'un fichier autre qu'Excel

Re le Forum, re MichelXld,

Merci pour ton code. J'ai tenté d'ajuster le code pour un fichier PDF en ajoutant au début du code

ThisWorkbook.FollowHyperlink "C:\MonFichier.pdf"

pour ouvrir mon fichier PDF. Tout est OK, mon fichier PDF s'ouvre avec Acrobat reader 8.0 mais le code bloque à

NombrePage = _
ActiveDocument.BuiltinDocumentProperties("Number of Pages")

J'utilise Acrobat Reader 8.0 français et en vérifiant manuellement les propriétés de mon fichier PDF (Fichier-Propriétés et sous l'onglet "Description" je vois bien un champ qui m'indique "Nombre de pages : 8".)J'ai pensé modifier le code de la façon suivante

NombrePage = _
ActiveDocument.BuiltinDocumentProperties("Nombre de pages")

pour voir s'il s'agissait d'un problème de langue (anglais-français) mais ce n'est pas le cas...

Étant bloqué à cette ligne du code, jJe ne peux valider le reste du code...

Une idée ???

Merci de ton aide

Xtian_Québec
@+++

 

[MichelXld]

Re : Identifier une page d'un fichier autre qu'Excel

bonsoir

L'exemple concerne uniquement Word ...


Bonne soirée
MichelXld

 

[Xtian_Québec]

Re : Identifier une page d'un fichier autre qu'Excel

J'avais bien saisie dans ton exemple mais j'ai essayé de l'adapté à PDF...j'obtiens un message d'erreur "Objet requis"...
Peut on identifier un objet qui ne fait pas partie du groupe Office comme Excel, Word, PowerPoint ???

Merci encore pour ton aide

Christian