Exporter onglet Excel en word

bonjour

je travail sur un code que j'ai trouvé afin de sauver un rage sous excel en document word.

Le soucis c'est que le debugger d'excel me trouve des erreurs que je n'arrive pas à résoudre

Sub exporter_word()
Dim Nomfich As String
'nom du fichier sur lequel tu veux enregistrer tes images, cellules...

Nomfich = "c:temptemp.doc"
Dim wd As Object

Set wd = CreateObject("Word.Application")
wd.Documents.Add Template:="c:temptemp.dot",NewTemplate: false
' ouverture d'un nouveau document suivant le document type fourni tu peux juste faire add si tu veux un document vide

Range("A1:B5").Select
'Selection de se que tu veux copier
Selection.Copy
wd.activedocument.Range.PasteSpecial Link:false,DataType:=wdPasteText

wd.activedocument.SaveAs FileName:=Nomfich,FileFormat:=wdFormatDOSText, LockComments:false, ReadOnlyRecommended:false,EmbedTrueTypeFonts:false, SaveNativePictureFormat:false, SaveFormsData:false,SaveAsAOCELetter: false
wd.Quit
Set wd = Nothing
End Sub

Salut,

En passant en commentaire les morceaux qui ne convenaient pas au VBA le code s’exécute.

Sub exporter_word()
Dim Nomfich As String
'nom du fichier sur lequel tu veux enregistrer tes images, cellules...

Nomfich = "c:temptemp.doc"
Dim wd As Object

Set wd = CreateObject("Word.Application")
wd.Documents.Add 'Template:="c:temptemp.dot",NewTemplate: false
' ouverture d'un nouveau document suivant le document type fourni tu peux juste faire add si tu veux un document vide

Range("A1:B5").Select
'Selection de se que tu veux copier
Selection.Copy
wd.activedocument.Range.PasteSpecial 'Link:false,DataType:=wdPasteText

wd.activedocument.SaveAs Filename:=Nomfich, FileFormat:=wdFormatDOSText ', LockComments:false, ReadOnlyRecommended:false,EmbedTrueTypeFonts:false, SaveNativePictureFormat:false, SaveFormsData:false,SaveAsAOCELetter: false
wd.Quit
Set wd = Nothing
End Sub

Par contre il ne fait pas son boulot jusqu'au bout.

Si j'affiche une page word et que je fait coller à la main, ça fonctionne. Il faut donc trouver le moyen de faire passer word au premier plan.

Merci pour ta réponse

j'ai trouvé une solution pour qu'il copie les données:

Il faut ajouter '\' au chemin d'accès, ce qui donne:

Nomfich = "c:\temptemp.doc"

Par contre il ne respecte par la mise en page contrairement à mes sauvegarde sous pdf quand je suis sous excel!!!!!

j'ai essaie d'autres changement, mais ça ne marche pas pour le moment