Impression de Excel vers Word

maintenant j'ai un autre problème quand je lance les impressions a partir du userform3 je n'arrive pas a cocher les case qui se trouve au niveau de document Word et je n'arrive pas aussi a reporter les valeurs des checkbox et les

envoyées sous X vers un tableau sur le document ACCUSE_RECEPTION

BONJOUR Kamatchoudz

Lorsque vous commencez un fil de discussion et que vous posez une question sur le forum, il est de bon ton d'utiliser les formules de politesse usuelles

Dites systématiquement "Bonjour" avant de poser vos questions car ici on se comporte comme dans la vrai vie !

Vous pouvez aussi conclure vos messages par un "Merci d'avance", ou "Bonne journée", cela ne sera pas de trop.

Une fois que vous aurez commencé à interagir au sein d'un fil existant vous pourrez faire preuve de moins de formalisme.

Merci d'en prendre bonne note afin que ce forum reste accueillant et convivial !

Profitez en pour lire la charte du forum [A LIRE AVANT DE POSTER] qui vous aidera dans vos demandes et réponses sur ce forum

Cordialement

bonjour

et merci pour la remarque

Re,

Vous avez la possibilité d'éditer votre post et de le modifier avec le bouton en forme de crayon

Re,

désolé mais je la trouve pas cette option de modification

Salutations

Bonjour à tous,
pour être plus précis à ce sujet, j'ai besoin de faire une liaison entre Excel et Word. Et plus précisément de remplir automatiquement un tableau et cocher les cases sur un doc Word avec des données de Excel ci-dessus le code complet

Private Sub CommandButton5_Click()
Dim NDF As String, NDF2 As String, NDF3 As String, Rep As String
Dim WordApp As Object, WordDoc As Object

Rep = "E:\APP_SUVI_DOSSIER_CLINIQUE\ACUSE\"
NDF = Rep & "ACCUSE_RECEPTION.docx"

If Not Exist_Fichier(NDF) Then ' Verifie si le doc existe
MsgBox "Document word manquant", vbExclamation, "Floflo"
Else
On Error Resume Next
If Fichier_IsOpen(NDF) Then ' Verifie si le doc est déja ouvert
Set WordApp = GetObject(, "Word.Application")
Set WordDoc = WordApp.Documents(NDF)
Else
Set WordApp = CreateObject("Word.Application")
Set WordDoc = WordApp.Documents.Open(NDF, ReadOnly:=False)
End If

With WordApp
.Visible = False

WordDoc.Bookmarks("RAISON_SOC").Range.Text = Me.ComboBox1.Text

WordDoc.Bookmarks("TYPE_CLINIQUE").Range.Text = Me.TextBox6.Text
WordDoc.Bookmarks("Date").Range.Text = Me.TextBox11.Text
WordDoc.Bookmarks("GERANT").Range.Text = Me.TextBox5.Text
WordDoc.Bookmarks("WILAYA").Range.Text = Me.TextBox2.Text
WordDoc.Bookmarks("NTEL").Range.Text = Me.TextBox10.Text
WordDoc.Bookmarks("ADRESSE").Range.Text = Me.TextBox7.Text
WordDoc.Bookmarks("EMAIL").Range.Text = Me.TextBox8.Text
Set objWord = CreateObject("Word.Application")

Dim clinque As Single
Select Case clinque
Case Is = Me.TextBox6.Text = "MATERNITE"
WordDoc.Bookmarks.objWord("Accouchement") = "x"

Case Is = Me.TextBox6.Text = "HEMODIALYSE"
WordDoc.Bookmarks.objWord("Hémodialyse") = "x"

Case Is = Me.TextBox6.Text = "CARDIO-VASCULAIRE"
WordDoc.Bookmarks.objWord("Cardiovasculaire") = "x"
End Select

Dim dossier As Single
Select Case dossier
Case Is = Me.CheckBox1.Value = True
WordDoc.Bookmarks("demande").Range.Text = x

Case Is = Me.CheckBox2.Value = True
WordDoc.Bookmarks("Autorisation").Range.Text = x

Case Is = Me.CheckBox3.Value = True
WordDoc.Bookmarks("Technique").Range.Text = x

Case Is = Me.CheckBox4.Value = True
WordDoc.Bookmarks("praticiens").Range.Text = x

Case Is = Me.CheckBox5.Value = True
WordDoc.Bookmarks("CASNOS").Range.Text = x

Case Is = Me.CheckBox6.Value = True
WordDoc.Bookmarks("CNAS").Range.Text = x

Case Is = Me.CheckBox7.Value = True
WordDoc.Bookmarks("registre").Range.Text = x

Case Is = Me.CheckBox8.Value = True
WordDoc.Bookmarks("Contrats").Range.Text = x

Case Is = Me.CheckBox9.Value = True
WordDoc.Bookmarks("Diplômes").Range.Text = x

Case Is = Me.CheckBox10.Value = True
WordDoc.Bookmarks("exercer").Range.Text = x

Case Is = Me.CheckBox11.Value = True
WordDoc.Bookmarks("convention").Range.Text = x

Case Is = Me.CheckBox12.Value = True
WordDoc.Bookmarks("statut").Range.Text = x

End Select

End With

' pour enregistrer le doc avec les divers éléments
NDF2 = Rep & Me.ComboBox1.Text & Me.TextBox2.Text & ".docx"
WordDoc.Application.ActiveDocument.SaveAs NDF2

WordApp.Visible = True ' laisse le doc ouvert
Set WordDoc = Nothing
Set WordApp = Nothing
MsgBox "Document word prêt"

End If
End Sub

Merci d'avance

bonjour a tous et a toute

Bonjour

Dans ce cas, on peut utiliser le tableau n° 2 du doc assez simplement.

Dans le code du button5, à la place du Select Case dossier, le code devient :

Dim i As Byte
With WordDoc.Tables(2)
    For i = 1 To 12
        If Me.Controls("CheckBox" & i).Value Then
            .Cell(i + 2, 3).Range.Text = "X"
        End If
    Next i
End With

En s'assurant que de tableau du doc modèle contienne bien les 12 ou 13 lignes correspondantes chacune aux Checkbox de l'Usf

Pierre

Bonjour

merci beaucoup c'est réglé

Salutations