[VBA] Macro import plage de données + macro enregistrer le fichier
bonjour,
Alors, j'ai un fichier de rapport 'rapport.xlsm' et j'aimerais y importer une plage de données en fonction d'un champ 'type de pompe'. Cette plage de données est (selon le type de pompe) dans un fichier différent, mais normalement toujours dans le même dossier "C:\Pompes BDD" (mais si je ne trouve pas le dossier, j'aimerais afficher un formulaire pour en choisir un autre)
Je souhaite aussi changer le nom de mon fichier une fois les champs 'type de pompe' et 'salle des machines' remplit.
Pour l'instant je n'ai fait que le début de mon formulaire pour choisir un autre dossier.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
|
Function FileExists(FileName As String) As Boolean
FileExists = Dir(FileName) <> ""
End Function
Sub Openform()
If FileExists("C:\Pompes BDD") = False Then
DirForm.Show
Else
Import()
End If
End Sub |
