Bonjour à tous je suis en se moment en stage et à l'issu de celui ci je doit fair un programme VBA qui pourrais convertir un fichier excel en word déjà complété.
J'ai déjà fait un programme cependant il y a un problème dessus et je ne sais pas où est mon erreur pourriez vous y jetez un coup d’œil et me faire un retour si possible corriger l'erreur . Merci d'avance .
'imprimer la zone Page1
Sub ImpZoneEtTitle()
With Worksheets("Feuil1").PageSetup
.CenterHorizontally = True
.PrintArea = "Page1"
.Orientation = xlPortrait
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Worksheets("Feuil1").PrintOut
End Sub
Sub Deplacer()
' Deplacer Macro
ActiveSheet.Shapes.Range(Array("Image2")).Select
ActiveSheet.Shapes("Image2").IncrementTop -111
End Sub
Sub Rectangle2_Cliquer()
Sheets("Page de garde").Range("Page1").CopyPicture xlScreen, xlBitmap
Set wrdApp = CreateObject("Word.Application")
On Error GoTo Line1
Set wrdDoc = wrdApp.Documents.Open("\\Firmin\a2a\Gestion_Technique\Interventions\Rapport décontamination\A2A Rapport décontamination.docm")
wrdApp.Visible = True
Exit Sub
Line1:
MsgBox "Le fichier 'x' doit être placé dans le répertoire 'C:\x.doc'", vbOKOnly + vbExclamation, "Attention"
End Sub