1. #1
    Nouveau Candidat au Club
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    avril 2017
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 43
    Localisation : Canada

    Informations professionnelles :
    Activité : Technicien maintenance
    Secteur : Bâtiment

    Informations forums :
    Inscription : avril 2017
    Messages : 2
    Points : 1
    Points
    1

    Par défaut Conversion d'un fichier excel vers Calc

    Bonjour a tous ,

    Premièrement J’espère que je suis dans la bonne section . je ne suis pas tres familier avec les forums mais je ferai de mon mieux pour bien présenter mon problème.

    Je voudrait l'utiliser sur un pc roulant sur Ubuntu et LibreOffice 5.3.2.2.

    J'avais lu que libreoffice supportait les macro vba de excel mais j'aurais du faire plus de recherche .loll.
    J'ai passer beaucoup de temps a monter ce petit programme en utilisant des exemple sur le net, ce n'est pas tout a fait au point mais bon je débute.


    J'ai passer plusieurs heure à faire des recherche et des testes pour le faire fonctionner mais sans succès .

    En gros ce programme sert pour définir une séquence d'assemblage .

    Fonction des boutons;
    Ajouter à la liste ; sert a ajouter le no de commande, taper dans le zone de texte, à la fin de la liste.
    Lot complété : sert à retirer la commande qui est en production( afficher dans la boite jaune). La commande
    Retirer le lot sélectionné: Sert a effacer un lot si il n'est plus nécessaire.



    Voici la description des problème que je rencontre.

    1. je peut ouvrir sans problème le fichier Je suis arriver à le faire fonctionner en ajoutant la ligne de compatibilité (option VBA support) au début des Macros.
    mais ce n'est pas encore au point.
    2. Mon plus gros problème est lors de la sauvegarde deux option de format de sauvegarde sont offert ODF ou Format excel 2007-2016 (macro Possible)

    2a. si je sauvegarde sous le format ODF j'ai des erreur 91 .
    2b. sous le format excel avec macro possible tout mes boite et mes boutons disparaisse ,j'ai essayé de les remettre mais encore la elle disparaisse après chaque sauvegarde .

    3. J'ai aussi remarqué un délais lors de l'exécution du programme.(exemple si on clic sur lot complété , il y a 3-5 seconde de délais avant que le chiffre change dans la boite jaune .

    Voici une copie du document et le code (J'espère que je l'ai bien balisé)

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
     
     
    Rem Attribute VBA_ModuleType=VBADocumentModule
    Option VBASupport 1
    Sub Add()
    Rows("2:2").Insert shift:=xlDown
    Range("A3:C3").Copy
    Range("A2:C2").PasteSpecial (xlPasteFormats)
    Range("B2") = Now
    Range("a2") = TextBox1.Text
    Recalculate
    End Sub
    Sub Complete()
    ActiveCell.Offset(0, 2) = Now
    Rows(ActiveCell.Row).EntireRow.Delete
    Recalculate
     
    End Sub
    Sub CompleteWithDelete()
    Rows(ActiveCell.Row).EntireRow.Delete
    Recalculate
     
    End Sub
     
    Sub Recalculate()
    SelectFirstBlankCell
    Label3.Caption = ActiveCell.Offset(0, -2)
     
    End Sub
     
    Public Sub SelectFirstBlankCell()
        Dim sourceCol As Integer, rowCount As Integer, currentRow As Integer
        Dim currentRowValue As String
     
        sourceCol = 3   'column F has a value of 6
        rowCount = Cells(Rows.Count, sourceCol).End(xlUp).Row
     
        'for every row, find the first blank cell and select it
        For currentRow = 30000 To 1 Step -1
            currentRowValue = Cells(currentRow, sourceCol).Value
            If (IsEmpty(currentRowValue) Or currentRowValue = "") And (Cells(currentRow, 2).Value <> "") Then
                Cells(currentRow, sourceCol).Select
                Exit For
            End If
        Next
    End Sub
     
    Private Sub Label1_Click()
     
    End Sub
     
    Private Sub Label2_Click()
     
    End Sub
     
    Private Sub TextBox1_Change()
     
    End Sub

    Je sais que ce n'est pas la plus belle feuille de calcule que vous aurez vue mais j'ai vraiment travailler très fort et je commence a manquer de temps .
    merci de votre aide et de votre compréhension.
    Fichiers attachés Fichiers attachés

  2. #2
    Nouveau Candidat au Club
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    avril 2017
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 43
    Localisation : Canada

    Informations professionnelles :
    Activité : Technicien maintenance
    Secteur : Bâtiment

    Informations forums :
    Inscription : avril 2017
    Messages : 2
    Points : 1
    Points
    1

    Par défaut Petite mise a jour de la situation

    Bonjour,

    je n'y comprend rien mais bon..Svp avant de me juger n'oubliez pas que je suis débutant

    Ce matin j'ai ouvert mon programme et enregistrer sous un autre nom.odf pour faire conserver mon original.xlsm pour voir si je pouvais corrigé le problème de boite et bouton qui disparaisse après une sauvegarde.

    Surprise ...cette fois l'apparence de mon projet n'avait pas changer ; mes boites et bouton étais restées en place. (même mon projet en xlsm fonctionnait).

    J'essaie d'entrer une nouveau numéro de lot et appuis sur le bouton pour l'ajouter a la liste ça marche .( je même sentais la la fois frustrer et heureux de voir que ça fonctionnait enfin) même si je n'avait rien changé. J'utilise toujours une copie du projet original a chaque fois que je travaille dessus.

    Je décide alors de faire quelques changement sur l'apparence , couleur ,police ..., rien de très important.

    Je sauvegarde mon projet et le ré-ouvre pour m'assurer que tout est toujours fonctionnel .

    bhaam !!! retour à la case départ je me tape des erreurs 91

    Je ne sais vraiment pas ce que je fait de travers mais j’aimerais vraiment comprendre .

    aidez moi SVP

Discussions similaires

  1. Réponses: 5
    Dernier message: 14/12/2015, 23h28
  2. Conversion d'un fichier excel en un fichier txt via une macro
    Par souhail72 dans le forum Macros et VBA Excel
    Réponses: 13
    Dernier message: 13/10/2015, 20h14
  3. [LibreOffice][Tableur] Conversion d'une macro Excel en macro libreoffice
    Par Guijack dans le forum OpenOffice & LibreOffice
    Réponses: 3
    Dernier message: 28/02/2015, 22h56
  4. Conversion d'un fichier Excel au format XML
    Par DeadPooleuh dans le forum VB.NET
    Réponses: 2
    Dernier message: 17/02/2015, 14h43
  5. Conversion d'un fichier Excel en page (X)HTML
    Par vel cheran dans le forum Langage
    Réponses: 14
    Dernier message: 24/06/2010, 15h10

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo