Résultats de la recherche

  1. B

    Template Graphique

    Bonjour, J'aurais besoin d'aide avec les graphiques. En fait, grâce à un programme apart, des graphiques se génèrent sur Excel, mais la mise en forme de ceux-ci ne convient pas. J'ai donc crée un Chart Template afin de facilement basculer sur la mise en forme voulu, et cela marche très bien...
  2. B

    Execution de code avant arrêt d'une macro

    Bonjour tout le monde ! Je voulais avoir votre avis sur un petit problème que je rencontre. J'ai crée un programme en VBA commandant un source-mètre ainsi qu'une carte électronique, respectivement en Gpib et RS232. A différents endroits de mon programme, je viens commander l'envoi de courant...
  3. B

    Save (forcer l'ouverture dans un dossier donné)

    Bonjour, Voici mon petit soucis. Dans mon programme vba, j'ouvre un fichier exel deja existant que je recupere grâce au code: ChDrive "D" ChDir "D:\IV_AUTO\PRODUCTS" MonFichier = Application.GetOpenFilename(FileFilter:="Exel files (*.xls*), *.xls*", Title:="Choose product file") If...
  4. B

    Optimisation de GetOpenFilename

    Bonjour a tous, voila, j'aimerais essayer de perfectionner un peu mon programme, et particulièrement au niveau du Application.GetOpenFilename. Voici mon programme: MonFichier = Application.GetOpenFilename(FileFilter:="Text Files (*.txt), *.txt", Title:="Choose File") Je voudrais savoir si...
  5. B

    Imposer un format/unité a un axe

    Bonjour à tous, Je viens vous voir à cause d'une petite subtilité que je n'arrive pas a résoudre tout seul ! Voila, en fait, dans mon programme je fais l'acquisition données provenant d'un source metre, afin de tracer un graphique. J'ai imposé un format d'affichage en ce qui conserne...
  6. B

    Extraction d'une plage de cellules

    Bonjour, Voici la petite partie de programme qui me pose probleme.. Sub ouvrir_txt() Dim MonFichier As String Dim main_file As String Dim data_file As String Dim tbl As Variant main_file = ActiveWorkbook.Name MonFichier = Application.GetOpenFilename If MonFichier = "False" Then End End If...
  7. B

    Optimisation du temps d'écriture dans cellules

    Bonjour, Voila je vous explique mon problème. L'objectif de mon programme est de récuperer des données provenant d'un source-mètre (Stockées dans la variable "mesure", qui est une chaine de caractères (chaine envoyée par l'appareil) comportant les coordonnées de chaque point (chaque valeur...