Discussion :

[familledacp]

Bonjour à tous et toutes

Dans mon application, je me sers de boucles sur un tableau tableau excel pour aller copier de multiples bouts de textes word et les coller dans un fichier word

Parfois (rarement) cela fonctionne, plus souvent ca plante -à un avancement de l'application qui n'est pas toujours le même- avec le message suivant :

Erreur 4605 / Cette méthode ou propriété n'est pas disponible car le presse papier est vide ou non valide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
With objwordz
    .Selection.WholeStory
    .Selection.Copy
End With
 
     objword.Selection.Paste
     vider 'appelle la sub vider le presse papier
     objwordz.Quit

La ligne qui plante est "objword.Selection.Paste"

La plupart des choses lues sur le net font état d'un presse papier qu'il faut vider. C'est pour cela que j'ai l'instruction vider juste après qui appelle le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub vider()
'MsgBox "on vide !"
Dim truc As DataObject
   Set truc = New DataObject
   truc.SetText ""
   truc.PutInClipboard
   Set truc = Nothing
End Sub

Avez vous une explication ? un conseil ?

Merci d 'avance pour votre aide

Danie S

[Theze]

Bonjour,

Essai d'affecter "Selection" à une variable et de travailler ensuite avec la variable.

Hervé.

[familledacp]

Bonsoir Theze et merci pour cette piste

Puis je avoir quelques pistes complémentaires ?

La variable sera de type Range ?

J'ai essayé de me lancer dans le code suivant, mais je ne trouve pas le moyen d'affecter le contenu de la sélection à la variable

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
Private Sub CommandButton36_Click()
 
Const wdStory = 6
Const wdMove = 0
 
Dim copie As Range
Set objwordz = CreateObject("Word.Application")
objwordz.Visible = True
Set objDocz = objwordz.Documents.Open("e:\gen gen.doc")
 
With objwordz
    .Selection.WholeStory
    .Selection.Copy
End With
 
 
Set copie = Selection
 
Workbooks("modele.xls").Worksheets("f1").Range("A2").Value = copie
 
End Sub

Merci pour votre aide

Daniel S

[Theze]

Re,

La variable est un Objet Selection qui te faut définir avec "Set" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Dim S As Selection
Set S = Selection
MsgBox S.Text

Hervé.

[fring]

Bonjour,

Une autre méthode éventuelle pour vider le presse papier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
'Déclarations en tête de module
Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function EmptyClipboard Lib "user32" () As Long
'*********************************************************** 
Private Sub Vider_PP()
    OpenClipboard 0
    EmptyClipboard
    CloseClipboard
End Sub

Sinon tu peux toujours vérifier si le presse papier contient quelque chose ou non

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
'Déclarations en tête de module
Private Declare Function CountClipboardFormats Lib "user32" () As Long
'********************************************************
 
If CountClipboardFormats <> 0 Then
    'si le presse papier n'est pas vide alors on copie
Else
    'sinon...
End If

[familledacp]

Bonsoir Theze et merci pour cette réponse rapide

Voici le code mis à jour suite à tes indications

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
Private Sub CommandButton36_Click()
Const wdStory = 6
Const wdMove = 0
Set objwordz = CreateObject("Word.Application")
objwordz.Visible = True
Set objDocz = objwordz.Documents.Open("e:\gen gen.doc")
With objwordz
    .Selection.WholeStory
End With
 
Dim S As Selection
Set S = Selection
MsgBox S.Text
 
End Sub

J'ai un message d'erreur "incompatibilité de type sur la ligne Set S = selection

Fring, je regarde tes éléments

Merci

Daniel S

[Theze]

Re,

Il te faut cocher la référence "Microsoft Word 12.0 Object Library" -> "12.0" fonction de ta version d'Office.

Hervé.

[familledacp]

Bonjour

Elle l'est, mais après celle d'Excel et d'office

Il fallait aussi que je fasse cette petite modif

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set S = objwordz.Selection

En modifiant mon code, j'ai réussi à coller le contenu de S dans un fichier Word "test". Mon souci est que je perds toute la mise en page du fichier source (styles titres entre autres)

Merci pour ton aide

Merci également à Fring, j'ai utilisé cette méthode et cela -après plusieurs tests- fonctionne parfaitement

Bonne journée

Daniel