Exporter le contenu de DataReport en vb6

Lenouveauapprenti Messages postés 306 Date d'inscription   Statut Membre Dernière intervention   -  
Lenouveauapprenti Messages postés 306 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour tout le monde

N.B : l'envirenement du travail est VB6

Voilà, j'exécute l'exportation du contenu du DataReport à l'aide de l'icone d'exportation sur la DataReport ( il y a deux icones une pour imprimer, l'autre pour exporter)
Le problème est que la photo déjà insérée sur la DataReport ne s'exporte pas.

Merci d'avance pour toute aide

5 réponses

  1. Patrice33740 Messages postés 8400 Date d'inscription   Statut Membre Dernière intervention   1 784
     
    Bonjour,

    Ce n'est possible qu'avec du VBA.

    Macro à mettre dans le module de la feuille du TCD :
    Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
    Dim d&, f&
    Const p$ = "    Bien cordialement"
      
      f = Target.TableRange2.Row + Target.TableRange2.Rows.Count - 1
      d = Cells(Rows.Count, "A").End(xlUp).Row
      If d > f Then Cells(d, "A").Clear
      Cells(f + 2, "A").Value = p
    
    End Sub


    Note : On ne peut pas inhiber le message " Voulez-vous remplacer le contenu ..." lorsque la mise à jour du TCD écrase le texte situé en dessous, le plus simple est d'accepter.
    Il serait possible d'inhiber tous les messages d'alerte sur cette feuille mais c'est risqué :ça masquerait aussi toutes les autres alertes (comme par exemple lors de la suppression de la feuille).

    1
    1. Patrice33740 Messages postés 8400 Date d'inscription   Statut Membre Dernière intervention   1 784
       
      OUPS !!!

      Sorry, je me suis trompé de post pour répondre.
      0
  2. Lenouveauapprenti Messages postés 306 Date d'inscription   Statut Membre Dernière intervention   2
     
    Bonjour f89009,

    C'était un problème que je n'ai pas pu le résoudre jusqu'à maintenant.
    Certes je suis encore dans la phase préhistorique de la programmation, et entrain d'apprendre encore, je vous repose bêtement encore ma question, comment pourrai je exporter l'image insérée déjà dans le DataReport (vb6) si la tentative est possible ?

    Merci d'avance
    0
    1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
       
      Bonjour,
      Vous n'avez pas repondu a la question: exporter vers quoi?
      0
    2. Lenouveauapprenti Messages postés 306 Date d'inscription   Statut Membre Dernière intervention   2 > f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention  
       
      Rebonjour

      Sincérement je ne sais pas quelle extension est possible puisque l'image est incompatible avec .txt.
      L'idée est de pouvoir exporter la carte de travail avec photo vers le bureau , puis après la charger dans une clé usb pour la faire imprimer sur un autre poste muni d'imprimante couleur.
      0
    3. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717 > Lenouveauapprenti Messages postés 306 Date d'inscription   Statut Membre Dernière intervention  
       
      Re,
      Ce projet est pour une autre personne que vous?
      Il me faudrait votre projet car je ne peux rien faire.
      0
    4. Lenouveauapprenti Messages postés 306 Date d'inscription   Statut Membre Dernière intervention   2 > f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention  
       
      Re

      C'est mon projet, je l'ai installé pour mon frère qui gère une petite ferme.
      Pas de problème pour vous le transmettre. Rappelez moi la procédure, car ça faisait longtemps que je vous ai transférerun pseudo essai sans résultat.
      Merci d'avance
      0
    5. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717 > Lenouveauapprenti Messages postés 306 Date d'inscription   Statut Membre Dernière intervention  
       
      Bonjour,

      Il faut le dossier complet de votre projet. faites un .zip ou ;rar
      0
  3. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour,

    Avec winzip ou 7zip, gratuit télécharger le.
    0
  4. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  5. Lenouveauapprenti Messages postés 306 Date d'inscription   Statut Membre Dernière intervention   2
     
    Bonjour

    S'il vous plait, expliquez moi la procédure de vous envoyer mon projet via 7zip

    Merci
    0