Bonsoir
Euh ?? vite fait il me semble que Excel est un tableur !! pas un correcteur de documents !
J'ai déjà utilisé des export word pour insérer des données dans un document , mais déjà pour ça il faut un squelette prédéfini dans word
Là je pense que tu dois penser à autre
Déjà tout bête pourquoi pas refaire ton doc word généric ? sans ligne vide ?
Bonjour,
ceci n'est qu'une partie.
Mon fichier excel sert à compiler beaucoup de données. Dans le but de créer des devis à partir de nombreux paramètres et des rapports à partir de nombreux résultats se trouvant dans d'autres feuilles excel.
on m'a fourni la solution ci dessous qui fonctionne correctement:
If ws.Cells(9, 2).Value = "" Then
SupprimerParagrapheContentControl WordDoc, "adresse2"
End If
Sub SupprimerParagrapheContentControl(ByVal WordDoc2 As Object, ByVal TitreDuControle As String)
Dim I As Integer, ParagrapheSelectionne As Integer
Dim MaSelection As Object, MonApplication As Object
ParagrapheSelectionne = 0
With WordDoc2
Set MonApplication = .Parent
Set MaSelection = MonApplication.Selection
For I = 1 To .ContentControls.Count
With .ContentControls(I)
If .Title = TitreDuControle Then
.Range.Select
MaSelection.HomeKey unit:=wdStory, Extend:=wdExtend
ParagrapheSelectionne = MaSelection.Paragraphs.Count
Exit For
End If
End With
Next I
If ParagrapheSelectionne > 0 Then
' Debug.Print MaSelection.Text
.Paragraphs(ParagrapheSelectionne).Range.Delete
End If
Set MonApplication = Nothing
Set MaSelection = Nothing
End With
End Sub