Créer une macro de fichiers word vers Excel

Bon quand je suis dans une phase excel j'en profite pour poser la suite:

Je voudrai déterminer l'évolution du Z score pour chaque personne. Le Z score correspond à l'IMC pondéré par l'âge (selon son âge de la vie l'IMC standard n'est pas le même, comme on peut le voir sur les courbes de poids)

Voilà le fichier source (obtenu grâce à la macro avant):

L'IMC d'inclusion est déjà noté

le fichier destination est le suivant:

20essai-z-score.xlsx (383.74 Ko)

Je voudrai mettre pour chaque date dans la case bilan n°X, X variant suivant chaque mesure après le bilan d'inclusion.

Pensez vous que ce soit possible de le faire?

Si besoin je peux reposter en tant que nouveau sujet

Merci d'avance!

Salut,

Pou répondre à ta question du 18 Octobre

Il faut dans le code précèdent :

Supprimer cette ligne

    Cells(p, 1).Value = "Dossier N°: " & NumDossier

Modifier cette ligne

Cells(p, 2).Value = "Nom et Prénom : " & ID

par

Cells(p, 1).Value = "Nom et Prénom : " & ID

Modifier ce bloc :

If LastLigne <> 1 Then
        For i = 1 To UBound(MonTab, 1)
            For j = 1 To UBound(MonTab, 2)
                Sheets(1).Cells(p + i, j).Value = MonTab(i, j)
            Next j
        Next i
        p = p + i
    End If

par ce code

If LastLigne <> 1 Then
        For i = 1 To UBound(MonTab, 1)
            If i = 1 Then
                Sheets(1).Cells(p + i, 1).Value = "N° Dossier"
            Else
                Sheets(1).Cells(p + i, 1).Value = NumDossier
            End If
            For j = 1 To UBound(MonTab, 2)
                Sheets(1).Cells(p + i, j + 1).Value = MonTab(i, j)
            Next j
        Next i
        p = p + i
    End If

En espérant que cela te convienne.

Merci beaucoup, cela marche parfaitement

Bonne journée!

Pour le reste, je repost ca dans un nouveau sujet

Juste, serait ce possible de faire la même chose pour la première version du document? (avec le tableau simple dans excel)

J'ai essayé de voir si je pouvais pas bidouiller mes les codes me semblent quand même différents, donc je n'y arrive pas trop

Merci!

Salut Boltu,

Dans ton code :

Tu supprimes

Cells(p, 1).Value = "Dossier N°: " & NumDossier

Tu remplaces

    Cells(p, 2).Value = "Nom et Prénom : " & ID  

par

    Cells(p, 1).Value = "Nom et Prénom : " & ID  

Tu remplaces

For i = 1 To WordDoc.Tables(1).Rows.Count
        p = p + 1
        For j = 1 To WordDoc.Tables(1).Columns.Count
            Valeur = Application.WorksheetFunction.Clean(WordDoc.Tables(1).Columns(j).Cells(i).Range.Text)
            If j = 1 And Valeur = "" Then
                If Application.WorksheetFunction.Clean(WordDoc.Tables(1).Columns(2).Cells(i).Range.Text) = "" Then
                    GoTo Suite
                Else
                    Cells(p, j).Value = Valeur
                End If
            Else
                Cells(p, j).Value = Valeur
            End If
        Next j
    Next i

par

For i = 1 To WordDoc.Tables(1).Rows.Count
        p = p + 1
        For j = 1 To WordDoc.Tables(1).Columns.Count
            Valeur = Application.WorksheetFunction.Clean(WordDoc.Tables(1).Columns(j).Cells(i).Range.Text)
            If j = 1 And Valeur = "" Then
                If Application.WorksheetFunction.Clean(WordDoc.Tables(1).Columns(2).Cells(i).Range.Text) = "" Then
                    GoTo Suite
                Else
                    Cells(p, j + 1).Value = Valeur
                End If
            Else
                Cells(p, j + 1).Value = Valeur
            End If
        Next j
        If i = 1 Then
            Cells(p, 1).Value = "N° Dossier"
        Else
            Cells(p, 1).Value = NumDossier
        End If
    Next i

A+

Genial parfait, merci beaucoup

Juste en retravaillant sur le document, je me rends compte que souvent les mois et les jours sont inversés

Ex: 04/08/15 devient 08/04/15

Ce n'est pas gravissime mais serait ce possible de rectifier cela?

sur quel fichier (le nouveau ou l'ancien)?

Sur l'ancien

Rechercher des sujets similaires à "creer macro fichiers word"