Bonjour le forum,
J'ai une macro qui me permet de récupérer les infos d'un petit tableau d'une feuille excel pour les retranscrire dans un autre tableau mais sur Word.
Ce fichier word porte le nom "test" mais je souhaiterais pouvoir l'enregistrer (sur le bureau, un dossier du bureau peu importe) avec pour nom la valeur d'une cellule particulière du mon tableau excel.
Voici mon code
Sub test()
Dim i As Byte
Dim appword As New Word.Application
Dim a As String
Dim Chemin As String, NomFichier As String
a = Range("B3").Value
-----------------------OUVERTURE DE MON FICHIER WORD "TEST"-------------------------------------------------------------------------------
With docword
Application.DisplayAlerts = True
appword.ShowMe
appword.Visible = True
Set docword = appword.Documents.Open("C:\Users\lescorro\Desktop\Test.doc", ReadOnly:=False)
End With
-----------------------ON RETRANSCRIT LE CONTENU DU TABLEAU EXCEL VERS LE TABLEAU WORD PAR UNE BOUCLE------------------------------
With appword
For i = 1 To 14
docword.Tables(1).Cell(i, 2).Range.Text = ActiveSheet.Range("B" & i)
Next i
--------ET ON ENREGISTRE-------------------------------------------------------
Chemin = "C:\Users\user\Desktop\"
NomFichier = a & ".doc"
docword.SaveAs Chemin & NomFichier
End With
End Sub
Tous fonctionne jusqu'à la ligne docword.SaveAs Chemin & NomFichier ou VBA m'indique que l'opération à échouer....
Je suis pas très à l'aise avec les macros jouant sur exce let word à la fois, si quelqu'un à des réponses ou éléments sa m'intéresse.