Contenu récent par BremyHH

  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

    Re : Execution de code avant arrêt d'une macro Bonjour, merci pour la réponse concernant la macro BeforeClose, je vais test ca dans mon code. En fait, le problème étant que les personens utilisant mon programme sont des "opérateurs", ne connaissant pas le fonctionnement des macro Excel, et...
  3. 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...
  4. B

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

    Re : Save (forcer l'ouverture dans un dossier donné) Bonjour camarchepas, et merci pour ta réponse. J'avais deja essayé cette petite subtilité en essayant avec "d:\xxx\xxx\".. mais malheuresement ca fonctionne pas, avec l'adresse duserveur non plus malheuresement. N'existerait il pas un...
  5. B

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

    Re : Save (forcer l'ouverture dans un dossier donné) Je viens d'essayer une autre méthode en essayant a l'aide d'un mixe de ChDir et de Application.GetSaveAsFileName.. mais ca ne marche pas non plus, et ce coup ci, impossible de proposé un nom de fichier prédéfini. Comme quoi se sont parfois...
  6. 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...
  7. B

    Optimisation de GetOpenFilename

    Re : Optimisation de GetOpenFilename Désolé pour la réponse tardive, mais merci bien, ca marché trés bien avec ta solution Pierrot ! Cordialement Rémy.
  8. 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...
  9. 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...
  10. B

    Extraction d'une plage de cellules

    Re : Extraction d'une plage de cellules Non pas de soucis avec le Worksheets("XXXX") manquant, mais je l'ai rajouté, au cas ou, pour etre sur de ne pas avoir de probleme
  11. B

    Extraction d'une plage de cellules

    Re : Extraction d'une plage de cellules Tu viens de me faire tilter mon erreur.. L'extention, en fait le soucis Out of range provient du fait que je mettais Workbooks("main_file")... au lieu de workbooks(main_file) avec main_file était une variable :/ Merci pour ton aide, c'est...
  12. 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...
  13. B

    Optimisation du temps d'écriture dans cellules

    Re : Optimisation du temps d'écriture dans cellules Dernier petit problème résolu ! L'erreur de débutant, j'ai vu dans la fenetre des variables locale qu'il n'y avait qu'un espace vide en trop a la fin de ma valeur mes(201), j'ai donc remplacé dim mesure as string *2828 par 2827, et ca résout...
  14. B

    Optimisation du temps d'écriture dans cellules

    Re : Optimisation du temps d'écriture dans cellules Merci pour vos informations précieux, ca marche comme il faut. Et bien plus rapidement. Mon dernier petit soucis (et oui, je sais qu'il y a en a toujours un :)) est un problème de longueur de chaîne consernant la derniere valeur.. Si ne...
  15. B

    Optimisation du temps d'écriture dans cellules

    Re : Optimisation du temps d'écriture dans cellules En fait, je m'étais trompé lors de la saisit de ma réponse. Le séparateur de la chaîne est "," et non un ";". Et les données qui me servent de références sont elles stockés sur mon fichier Exel, sur 2 colonnes distinctes