Tuto VBA

Avec VBA, il est possible de lire, écrire, créer, ouvrir ou supprimer des fichiers, en exploitant les objets FileSystemObject ou des méthodes comme Open, Close, et Print. Ces fonctions facilitent l’organisation et l’analyse des données tout en réduisant les tâches répétitives. Idéal pour automatiser les processus dans un environnement professionnel ou personnel !

'Path par defaut = Documents Open "FichierTest.txt" For Output As 1 Print #1, "test" Close 1 'Path par defaut = Documents Open "FichierTest.txt" For Append As 1 Print #1, "test" Close 1 Dim objWord As Object Set objWord = CreateObject("Word.Application") With objWord .Visible = True .Activate .Documents.Add End With objWord.Selection.Font.Name = "Arial" 'Modifier la police objWord.Selection.Font.Size = 13 'Modifier la taile du texte objWord.Selection.Font.Bold = True 'écrire en gras objWord.Selection.Font.Shading.BackgroundPatternColor = RGB(225, 225, 153) 'modifier la couleur de l'arrière plan objWord.Selection.Font.Color = RGB(255, 0, 0) 'Modifier la couleur du texte objWord.Selection.TypeText Text:="nouveau texte" 'écrire du texte objWord.Selection.TypeParagraph 'saut de ligne objWord.ActiveDocument.SaveAs ThisWorkbook.Path & "\test.docx" objWord.ActiveDocument.Close SaveChanges:=True objWord.Quit Dim objWord As Object Set objWord = CreateObject("Word.Application") objWord.Documents.Open ThisWorkbook.Path & "\test.docx" objWord.Selection.Font.Name = "Arial" 'Modifier la police objWord.Selection.Font.Size = 13 'Modifier la taile du texte objWord.Selection.Font.Bold = True 'écrire en gras objWord.Selection.Font.Shading.BackgroundPatternColor = RGB(255, 255, 255) 'modifier la couleur de l'arrière plan objWord.Selection.Font.Color = RGB(0, 0, 0) 'Modifier la couleur du texte objWord.Selection.TypeText Text:="nouveau texte 2" 'écrire du texte objWord.Selection.TypeParagraph 'saut de ligne objWord.ActiveDocument.SaveAs ThisWorkbook.Path & "\test.docx" objWord.ActiveDocument.Close SaveChanges:=True objWord.Quit If Dir(ThisWorkbook.Path & "\test.docx") <> "" Then Kill ThisWorkbook.Path & "\test.docx" End If FileCopy ThisWorkbook.Path & "\test.docx", ThisWorkbook.Path & "\copie-test.docx"