IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Traitement de données généalogiques (conception et mise en place technique)


Sujet :

Macros et VBA Excel

  1. #61
    Membre du Club Avatar de touche_a_tout
    Profil pro
    Inscrit en
    Août 2006
    Messages
    476
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Août 2006
    Messages : 476
    Points : 43
    Points
    43
    Par défaut Traitement de données généalogiques (conception et mise en place technique)
    Bonjour,
    Bloqué !
    Ca avait l'air tout simple. J'avais une "maquette" (masse de données très réduite) qui tournait très bien, sauf petit problème de chemin d'enregistrement. Donc copier le code de la maquette et le coller dans la "vraie" appli en faisant les modifications nécessaires. En fait, un énorme boulot (inspiré du modèle donné par Pierre F. , je ne retrouve pas le N° du post). Il y a donc trois parties: naissances, mariages, décès. Ca tourne mais ça s'arrête au stade de la sauvegarde des naissances*** qui ne sont pas complètes. J'ai déjà ouvert un fil sur ces arrêts intempestifs mais sans obtenir de solution codable.
    J'ai relu un fil sur les limites d'une variable String et avec 28500 caractères environ je suis au-dessous. Je crois qu'un caractère occupe 8 octets, ce qui me donne 228.000 octets, donc bien moins que la limite.
    Pour quel autre motif ma manip peut-elle s'arrêter avant la fin ?
    Merci d'avance pour toute piste.
    Cordialement
    touche_a_tout


    ***et comme le programme ne dépasse pas la sauvegarde des naissances le reste (mariages, décès) n'est pas fait.

    EDIT: le post de Pierre Fauconnier est le N° 36
    There is always an easy solution to every human problem - neat, plausible. And wrong.

  2. #62
    Membre du Club Avatar de touche_a_tout
    Profil pro
    Inscrit en
    Août 2006
    Messages
    476
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Août 2006
    Messages : 476
    Points : 43
    Points
    43
    Par défaut Traitement de données généalogiques (conception et mise en place technique)
    Re,
    Je réalise (un peu tard ) que je n'ai pas besoin de poster tout mon code, mais seulement ce qui pose problème (selon moi), donc:
    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
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    89
    90
    91
    92
    93
    94
    95
    96
    97
    98
    99
    100
    101
    102
    103
    104
    105
    106
    107
    108
    109
    110
    111
    112
    113
    114
    115
    116
    117
    118
    119
    120
    121
    122
    123
    124
    125
    126
    127
    128
    129
    130
    131
    132
    133
    134
    135
    136
    137
    138
    139
    140
    141
    142
    143
    144
    145
    146
    147
    148
    149
    150
    151
    152
    153
    154
    155
    156
    157
    158
    159
    160
    'extraits de code pour le forum
    Option Explicit
    Public GED_N As String, GED_M As String, GED_D As String
    Public ligne As Integer, colonne As Integer, compteur, n  As Integer
    Public l As Integer, C As Integer, i As Integer, Today As Object
    Public r As Range, lieu As String
    Public domicile As String, parenté As String, sa_dateN As Variant
    Public Aujourdhui  As Variant, son_age  As Variant, annee  As Variant
    Public logoN As String, milogoN As String
    Public logoM As String, milogoM As String, logoD As String, milogoD As String
    Public lig, col, m As Integer, Jour As Variant, Heure As Variant
    Public Z As Integer, k As Integer, fin As Integer
    Public ws As Worksheet
    Public wb As Workbook
     
    Sub creation_gedcoms_d_apres_XL()    '= lanceur
    Dim fere As String, porte As String, site As String
    Z = 3
    compteur = 0
    ThisWorkbook.Sheets("registre").Activate
    ActiveSheet.Cells(Z, 1).Value = "Début: Nous sommes le" & " " & Date & " " & " à " & " " & Time
    Z = Z + 1
    GED_N = ""
     
    Call transfere(fere)        'section naissances
    Call transporte(porte)      'section mariages
    Call transite(site)         'section décès
    ThisWorkbook.Sheets("registre").Activate
    ActiveSheet.Cells(Z, 5).Value = "Fin: Nous sommes le" & " " & Date & " " & "à" & " " & Time
     
    End Sub
    Sub transfere(fere)
    Dim r As Range
    Dim mes_logoN() As String, mes_milogoN() As String
    Dim i As Integer
    Dim tempsN As String, teteN As String, resuN As String, oursN As String
    Dim bapN As String, papaN As String, dompereN As String, mamaN As String
    Dim dommereN As String, parmarN As String, tem1N As String, tem2N As String
    Dim remN As String, autresN As String, prepimprN As String, sousdirN As String, imprN As String
    i = 1
    lig = 1
    ligne = 1
     
    ReDim mes_logoN(50) As String
    ReDim mes_milogoN(50) As String
     
    ThisWorkbook.Sheets("range_logo").Activate
    col = 1
    i = lig
    For lig = 1 To 47
            mes_logoN(i) = ThisWorkbook.Sheets("range_logo").Cells(lig, col + 2).Value
            mes_milogoN(i) = ThisWorkbook.Sheets("range_logo").Cells(lig, col).Value
            logoN = mes_logoN(i)
            milogoN = mes_milogoN(i)
            Set wb = Workbooks.Open("E:\" & "3_G_E_N_E_A_L_O_G_I_E\Creation_sources_ged\test_mono_wbk\P_Fau_new_new_consolidation.xlsm")
            i = i + 1
    Next
     
    For i = 1 To 47
    Set r = ThisWorkbook.Sheets(logoN).Range("A1").CurrentRegion
            For ligne = 3 To r.Rows.Count
            logoN = mes_logoN(i)
            Set ws = ActiveWorkbook.Sheets(logoN)
            ws.Activate
     
                mise_à_lheure_mise_a_jourN tempsN
                en_teteN teteN
                redaction_resuméN resuN
                impressumN oursN
                baptemeN bapN
                pereN papaN
                domicile_pereN dompereN
                mereN mamaN
                domicile_mereN dommereN
                parrain_marraineN parmarN
                témoin01N tem1N
                témoin02N tem2N
                remarquesN remN
                autres_interessesN autresN
                fin_et_donnees_dimpressionN prepimprN
        If i > 47 Then
        GoTo repertoire
        End If
        Next
    Next
    repertoire:
    Call cree_sous_repertoireN(sousdirN)
     
    GED_N = CreerGED_N(tempsN, teteN, resuN, oursN, _
    bapN, papaN, dompereN, mamaN, _
    dommereN, parmarN, tem1N, tem2N, _
    remN, autresN, prepimprN, sousdirN) & "0 RTLR"
     
    Call imprime_GED_N(imprN)
     
     
        If ligne >= r.Rows.Count Then
        Exit Sub
        End If
        ligne = ligne + 1
     
     
    End Sub
     
    Sub en_teteN(QteteN As String)
    'ici une vingtaine de function traitant un ou quelques aspects de l'acte de naissance
    End Sub
    'suite de mon code:
    Function CreerGED_N(tempsN As String, teteN As String, resuN As String, oursN As String, _
    bapN As String, pereN As String, dompereN As String, mereN As String, _
    dommereN As String, parmarN As String, tem1N As String, tem2N As String, _
    remN As String, autresN As String, prepimprN As String, sousdirN)
    End Function
     
    Function imprime_GED_N(QimprN As String)
     
    ThisWorkbook.Sheets("registre").Activate
    Cells(Z, 1).Value = "Je lance l'impression des feuilles Naissances le" & " " & Jour & " " & "à" & " " & Heure
    Z = Z + 1
    'Crée un gedcom dans Word en utilisant Automation (liaison tardive)
        Dim WordApp As Object
        Dim saveasname As String
     
        saveasname = "allged" & "_" & "feuilles_naissances" & "_" & Jour & "_" & Heure & ".docx"
     
    'Lance Word et crée un objet
        Set WordApp = CreateObject("Word.Application")
     
    'Transmet les commandes à Word
            With WordApp
                .Documents.Add
                With .Selection
                    .Font.Name = "courier new"
                    .Font.Size = 12
                    .ParagraphFormat.Alignment = 0
                    .Font.Bold = False
                    .TypeText TEXT:=GED_N
                End With
            End With
    'Pour imprimer      'l'impresion est neutralisée; elle n'est pas indispensable au
                        'projet et consommerait des centaines de feuilles
                        'de plus elle ne démarre que par F8; le code ne la déclenche pas.
            With WordApp
                   '.ActiveDocument.PrintOut , Range:=3, From:="1", To:="3"
    'Pour sauvegarder    'la création de sous-répertoires ne ffonctionne pas mais daans
                        'la mesure où les données sont concentrées en 3 fichiers texte.
                        'elle n'est pas indispensable non plus.
                    .ActiveDocument.SaveAs "E:\" & "3_G_E_N_E_A_L_O_G_I_E\ALL_GED\" & milogoN & "\" & saveasname
                    '.ActiveDocument.SaveAs "E:\" & "3_G_E_N_E_A_L_O_G_I_E\ALL_GED\" & saveasname
    'La sauvegarde ne produit pas un document complet mais s'interrompt en cours
    'de traitement, pratiquement toujous au même endroit.
            End With
                     ThisWorkbook.Sheets("registre").Activate
                     Cells(Z, 1).Value = saveasname
                     Z = Z + 1
    i = i + 1
    'Tuer l'objet
        WordApp.Quit
        Set WordApp = Nothing
    End Function
    Merci d'avance pour toutes vos suggestions, corrections, améliorations !
    Cordialement
    touche_a_tout
    There is always an easy solution to every human problem - neat, plausible. And wrong.

  3. #63
    Membre du Club Avatar de touche_a_tout
    Profil pro
    Inscrit en
    Août 2006
    Messages
    476
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Août 2006
    Messages : 476
    Points : 43
    Points
    43
    Par défaut Traitement de données généalogiques (conception et mise en place technique)
    @dysorthographie
    Bonjour,
    Bien démarré la semaine ?
    Il y a un certain temps, tu as écrit (grosso modo): "il n'est pas nécessaire de passer par Word pour transférer des données Excel vers du texte" en ajoutant que ce n'était pas le moment d'entrer dans les détails. Je suis arrivé à la conclusion que mon idée de passer par Word tenait bêtement au fait que j'avais la moulinette toute prête, mais en fait je n'ai pas besoin d'imprimer mes dizaines (si pas centaines) de pages de sources ! Je pense que tu faisais allusion à write que j'essaie d'utiliser mais, malgré mes recherches, je ne trouve pas de tutoriel sur cette technique. En connais-tu un ? Je n'ai pas non plus retrouvé un post où un de tes collègues conseillait, pour les retours chariot, de remplacer Chr(10) par autre chose, mais je ne sais plus quoi. As-tu une piste ?
    Merci d'avance si tu as une minute.
    Cordialement
    touche_a_tout
    There is always an easy solution to every human problem - neat, plausible. And wrong.

  4. #64
    Inactif  

    Homme Profil pro
    cuisiniste
    Inscrit en
    Avril 2009
    Messages
    15 379
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : cuisiniste
    Secteur : Bâtiment

    Informations forums :
    Inscription : Avril 2009
    Messages : 15 379
    Points : 12 073
    Points
    12 073
    Billets dans le blog
    8
    Par défaut re
    re
    bonjour
    chr(10) dans cellule et vbcrlf dans texte
    pour la fonction write
    write dans quoi
    si c'est un fichier ".txt" oui avec open for output as #x
    x étant un long et et surtout une instance du fichier dispo (freefile )
    ca peut être print aussi

    exemple
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    Sub ecriture()
        Dim fichier$, x&
        fichier = "C:\Users\polux\Desktop\ttt.txt"
        x = FreeFile
        Open fichier For Output As #x
        'Print #x, "truc ma chin " & vbCrLf & "bidule"' ne prends pas les guillemets !!!!!!!!!
        Write #x, "truc ma chin " & vbCrLf & "bidule" 'ATTENTION !!!!!! prends aussi les guillemets comme des caractères du texte
       Close #x
    End Sub
    le fichier est créé et se retrouve sur ton bureau
    mes fichiers dans les contributions:
    mail avec CDO en vba et mail avec CDO en vbs dans un HTA
    survol des bouton dans userform
    prendre un cliché d'un range

    si ton problème est résolu n'oublie pas de pointer : : ça peut servir aux autres
    et n'oublie pas de voter

  5. #65
    Membre du Club Avatar de touche_a_tout
    Profil pro
    Inscrit en
    Août 2006
    Messages
    476
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Août 2006
    Messages : 476
    Points : 43
    Points
    43
    Par défaut Traitement de données généalogiques (conception et mise en place technique)
    Merci Patrick,
    Entre temps j'ai un petit peu avancé, mon code produit exactement le texte que je veux dans le fichier allged.txt, mais j'ai un nouveau pb. Comme mon truc est une vaste boucle, je voudrais qu'à chaque passage un bout de texte vienne s'ajouter à ce qui est écrit au tour précédent, mais je ne m'en sors pas de ces Open et de ces Close.
    Pour plus de clarté, les données sont des enregistrements et à chaque boucle le code lit une nouvelle ligne du tableau soit un nouvel enregistrement. Voici un bout de code; mon "If compteur..." sert à sauter dès le 2ème passage le bloc écrire pour passer directement au bloc ajouter:
    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
    If compteur > 1 Then
    GoTo ajouter
    End If
     
    'CREATION DU FICHIER TEXTE POUR ECRIRE
            allged = teteN
            'Open "E:\3_G_E_N_E_A_L_O_G_I_E\ALL_GED\allged.txt" For Output As #1
            Open "allged.txt" For Output As #1
     
            Write #1, teteN
            'Close #1
            allged = ""
            teteN = ""
    'FERMETURE
     
    ajouter:
            allged = teteN
            allged_Path = "E:\3_G_E_N_E_A_L_O_G_I_E\ALL_GED\allged.txt"
            'Open allged_Path For Append As #1
            Write #1, teteN
            'Close #1
            allged = ""
            teteN = ""
     
    'Ici une vingtaine de courtes sub produisant chacune une variable string 
    'qui vient s'ajouter au contenu du fichier allged.txt. A la fin, on a:
     
    allged_Path = "E:\3_G_E_N_E_A_L_O_G_I_E\ALL_GED\allged.txt"
            'Open allged_Path For Append As #1
            Write #1, autresN
            'Close
            allged = ""
            autresN = ""
     
    'ici un "Next" qui lance le tour suivant
    C'est ce dernier bloc append qui ne marche pas. Si je ferme allged.txt, le code en ouvre un autre au tour suivant.
    Bref, mon fichier texte ne contient que le produit d'un tour de boucle.
    J'ai passablement circulé sur le web mais je n'ai pas trouvé de cas correspondant à celui-ci.
    Si tu connais la solution ou l'adresse où je pourrais la trouver...
    Merci d'avance
    Cordialement
    touche_a_tout
    There is always an easy solution to every human problem - neat, plausible. And wrong.

  6. #66
    Responsable
    Office & Excel


    Homme Profil pro
    Formateur et développeur chez EXCELLEZ.net
    Inscrit en
    Novembre 2003
    Messages
    19 122
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 57
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur et développeur chez EXCELLEZ.net
    Secteur : Enseignement

    Informations forums :
    Inscription : Novembre 2003
    Messages : 19 122
    Points : 55 955
    Points
    55 955
    Billets dans le blog
    131
    Par défaut
    Attention que si tu as des caractères accentués dans tes données, le write risque de te donner un résultat inattendu. Méfie-toi tout de même des bouts de code qui te sont donnés et vérifie qu'ils correspondent bien à ton besoin.
    "Plus les hommes seront éclairés, plus ils seront libres" (Voltaire)
    ---------------
    Mes billets de blog sur DVP
    Mes remarques et critiques sont purement techniques. Ne les prenez jamais pour des attaques personnelles...
    Pensez à utiliser les tableaux structurés. Ils vous simplifieront la vie, tant en Excel qu'en VBA ==> mon tuto
    Le VBA ne palliera jamais une mauvaise conception de classeur ou un manque de connaissances des outils natifs d'Excel...
    Ce ne sont pas des bonnes pratiques parce que ce sont les miennes, ce sont les miennes parce que ce sont des bonnes pratiques
    VBA pour Excel? Pensez D'ABORD en EXCEL avant de penser en VBA...
    ---------------

  7. #67
    Membre du Club Avatar de touche_a_tout
    Profil pro
    Inscrit en
    Août 2006
    Messages
    476
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Août 2006
    Messages : 476
    Points : 43
    Points
    43
    Par défaut Traitement de données généalogiques (conception et mise en place technique)
    Merci Pierre Fauconnier,
    Je serai circonspect, mais s'il faut même se méfier de l'aide Microsoft en ligne, à moi la peur !
    Belle journée
    touche_a_tout
    There is always an easy solution to every human problem - neat, plausible. And wrong.

  8. #68
    Membre du Club Avatar de touche_a_tout
    Profil pro
    Inscrit en
    Août 2006
    Messages
    476
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Août 2006
    Messages : 476
    Points : 43
    Points
    43
    Par défaut Traitement de données généalogiques (conception et mise en place technique)
    Bonjour,
    Plus j'avance, plus l'horizon recule (merci La Palice)
    J’ai complètement remanié mon projet, suivant divers avis donnés sur ce forum. J’ai 3 procédures différentes: naissances, mariages, décès, donc 3 classeurs. Je suis maintenant sur les mariages. J’ai scindé mon interminable code (+ de 400 lignes) en une trentaine de procédures spécialisées. Enfin j’ai abandonné le recours à Word et mis en place l’utilisation des fichiers texte. Mais il y a 2 soucis :
    1) La collecte des données consiste dans le balayage des feuilles par une variable string mais le processus se bloque en route ; je pense à diviser le classeur concerné en deux, contenant chacun la moitié des feuilles. Ce n’est pas encore fait à cause de l’autre problème :
    2) J’imagine que ma variable string qui collecte les résultats de la trentaine de procédures les concatène dans l’ordre où on balaie les feuilles (mais non, pas les feuilles mortes !); pourtant dans les fichiers textes sauvegardés le contenu est comme « classé » : j’ai par exemple une dizaine de fois une formule comme « gedcom construit d'après base Excel, feuille ECFM2 » répétée à l’identique.
    J’ai bricolé un extrait de mon code pour ne pas surcharger (je supprime notamment les déclarations !)
    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
    59
    60
    61
    62
    63
    64
    Option Explicit
    'j'efface les déclarations Public
     
    Sub creation_gedcoms_M_d_apres_XL()  'mariages
    'j'efface les dim
    ThisWorkbook.Sheets("range_logo").Activate '= liste des feuilles de données
    col = 1
    lig = 1
    For lig = 8 To 12  '(une autre passe fait 1 to 7                              ' For 1  lig
        mes_logoM(lig) = ThisWorkbook.Sheets("range_logo").Cells(lig, col).Value
        logoM = mes_logoM(lig)
        Set wb = Workbooks.Open("E:\" & "3_G_E_N_E_A_L_O_G_I_E\Creation_sources_ged\test_mono_wbk\fichier_texte_mariages.xlsm")
        Set r = ThisWorkbook.Sheets(logoM).Range("A1").CurrentRegion
        For ligne = 3 To r.Rows.Count     'for 2 ligne
            Set ws = ActiveWorkbook.Sheets(logoM)
            ws.Activate
            'appels de 30 procédure de collecte des données,
            'j'en garde 2
            mise_a_lheure_mise_a_jourM
                    fin_et_donnees_dimpressionM ligne 'code_final 'en fait : sauvegarde
        Next  'next 2, boucle sur les lignes de la feuille sélectionnée par lig
            Sauvegarde monfichier, les_mariages, logoM '= Dernière procédure
                    lig = lig + 1
                    If lig >= 9 Then
                    indice = 0
                    Exit For
                    End If
    Next     'next 1, boucle sur les étiquettes des feuilles (en liste sur une feuille séparée)
    End Sub
                 'ici les 30 procédures, j'en garde deux
    Sub redaction_resuméM(resuM, ligne)
     resuM = resuM & vbCrLf & "1 TEXT Texte résumé:" & " " & vbCrLf
     resuM = resuM & "LE FUTUR," & " " & Cells(ligne, 15).Value _
    & " " & Cells(ligne, 16).Value & ", "
    Select Case Cells(ligne, 17).Value
                  'les choix sont sans intérêt, un seul est conservé
    End Select
    'Lieu naissance:
    lieu = Cells(ligne, 19).Value
    Select Case lieu
                    'mêmes remarques
       End Select
    Montexte = Montexte & resuM 'resuM = variable locale de la section "résumé"
    End Sub
    Sub fin_et_donnees_dimpressionM(ligne)
                                 'Elimine les caractères interdits dans Time et Date
    Montexte = Montexte & vbCrLf & "0 TRLR"     'TRLR tag fin de gedcom
            ThisWorkbook.Sheets(logoM).Activate
    compteur = compteur + 1
    End Sub
     
    Sub Sauvegarde(monfichier, les_mariages, logoM)
    Dim indice As Integer
    Dim le_resultat As String
    Dim f As Integer
    Dim Cham, CMF, ECCHM, ECFM, MF, ParFM, ParCHM, RehM, VerM As String
    Close
    monfichier = "E:\" & "3_G_E_N_E_A_L_O_G_I_E\Creation_sources_ged\" & "les_mariages" & "(" & logoM & ")"
    f = FreeFile
    Open monfichier For Output As #f
    Print #f, Montexte
    Close #f
    Montexte = ""
    End Sub
    Mes questions : pour 1) le blocage vient-il du dépassement de capacité de la variable Montexte ?
    Pour 2) pourquoi le texte produit ne reste-t-il pas dans l’ordre original (c’était le cas pour les naissances qui utilisent le recours à Word) ?
    Le code ci-dessus est très élagué, détails sur demande.
    Merci d’avance et cordial salut
    touche_a_tout
    There is always an easy solution to every human problem - neat, plausible. And wrong.

Discussions similaires

  1. Réponses: 6
    Dernier message: 06/09/2006, 14h08
  2. [C#] Application.Run sans Form
    Par papouAlain dans le forum Windows Forms
    Réponses: 4
    Dernier message: 09/06/2006, 17h36
  3. [C#]Fenetre de chargement avant Application.run()
    Par 5:35pm dans le forum Windows Forms
    Réponses: 3
    Dernier message: 05/05/2006, 04h02
  4. [VBA][EXCEL]Erreur '1004' avec "Application.Run"
    Par Ania dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 16/01/2006, 11h50
  5. Application.run ?
    Par bobymaw dans le forum Langage
    Réponses: 5
    Dernier message: 29/12/2005, 21h21

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