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 : Sélectionner tout - Visualiser dans une fenêtre à part
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