Excel VBA

Résolu
ROGER -  
Bonjour,

Je suis débutante et j'ai besoin de votre aide pour deux choses
J'ai développé une interface sous Excel 2000 en VBA et je suis bloquée
1) Dans un fichier Excel, je souhaite sélectionner les feuilles se terminant par _TAB pour pouvoir les imprimer

2) A partir d'un bouton je souhaite ouvrir une page htm

Pouvez vous s'il vous plait m'aider à résoudre mes petits problèmes.
Je vous remercie par avance

Cordialement
Configuration: WIndows 2000
Excel 2000

5 réponses

  1. roger
    Re-Bonjour,

    Je finalise mon projet et j'ai encore un petit problème :
    Par un simple clic sur un bouton, j'aimerais accéder à un répertoire précis sur mon réseau et pouvoir ouvrir un des fichiers présents dans ce répertoire.
    Par avance merci
    2. gbinforme Contributeur
      bonjour

      pour ouvrir une page htm :

      Workbooks.Open Filename:="ta_page.htm"

      et tu peux la voir et l'imprimer sans problème,
      directement sous excel.

      1. mohammed
        salut,
        j'aimerai faire impression d'une page d'une feuil1 excel sur changement du contenu d'une cellule pour détourner le pblème qui existe entre VBAaccess et excel à ce niveau ( niveau impression).
        Merci
      2. Armojax
        @mohammedBonjour Mohammed,

        Est-ce que tu veux que l'impression se fasse pour n'importe quel changement dans la feuille, ou bien suite au changement de valeur d'une cellule bien précise ?
    3. Armojax
      suite...

      Pour ta deuxième question, est-ce que ce ne serait pas plus pratique de mettre un petit lien hypertexte ?
      Il suffit de sélectionner l'endroit où tu veux le mettre, puis de faire :
      Insertion/Lien hypertexte....
      Tu choisis :
      - fichier ou page web existante
      - le texte que tu veux voir afficher
      - le chemin pour localiser le fichier (regarder dans :).
      Pour modifier le lien si tu veux y revenir : clic droit sur le lien...

      Armojax.
      2. Armojax
        Bonsoir ROGER,

        Voilà toujours pour ton point n° 1 : 

        Sub EditF()

    Dim Feuille As Worksheet
    For Each Feuille In Worksheets
        If Right(Feuille.Name, 4) = "_TAB" Then
            Feuille.PrintOut
        End If
    Next
    
End Sub


        Armojax