Discussion :

[LimsWolf]

Bonsoir, je suis débutant en VBA, et je dois améliorer un programme.

J'ai cherché un peu partout, mais honnêtement j'ai pas trouver, j'ai tester "shell", les liens hypertextes... J'ai bidouillé dans tout les sens.

Mon problème est que l'ancien programme permet d'ouvrir et d'importer des données et d'ouvrir autocad, à partir de la commande : "Application.GetOpenFilename()", mais qui permet de choisir le fichier.
Moi je ne veux pas laisser le choix à l'utilisateur.

Autre problème, il faut que la commande mette en oeuvre un lien relatif car le dossier contenant mon fichier excel et mon fichier autocad doivent pouvoir être déplacés.

Voici mon code actuel qui marcher mais qui ne fait pas ce que je voudrai :
La ligne en question : Fichier = Application.GetOpenFilename("fichier DWG (*.dwg), *.dwg", , "G:\LP CAO DAO\PROJET D'ENTREPRISE")

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Option Explicit
Public AcadObj As Object
Public AcadDoc As Object
Public AcadUtil As Object
Public AcadEspaceObj As Object
Public Fichier As String
 
Public ListeObjetDessinAutocad(10) As Object
Public ListeNomDessinAutocad(10) As String
Public NombreDessinAutocad As Integer
 
 
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''LANCEMENT EXPORTATION
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub LancerExportation()
 
Sheets("Divers").Unprotect
 
    Fichier = Application.GetOpenFilename("fichier DWG (*.dwg), *.dwg", , "G:\LP CAO DAO\PROJET D'ENTREPRISE")
    'Fichier = Application.GetFile("G:\LP CAO DAO\PROJET D'ENTREPRISE\gabarit.dwg")
    'Fichier = Shell("gabarit.dwg")
 
 
 
    If Fichier = "Faux" Then
        Sheets("Divers").Protect
        Exit Sub
    Else
        Sheets("Divers").Cells(LigneLibreFichier, 7).Value = Fichier
        Sheets("Divers").Select
        Sheets("Divers").Range("D3:E1500").Select
        Sheets("Travail").Select
 
        InitialiserExport
    End If
 
Sheets("Divers").Protect
 
End Sub

Merci à vous.
Cordialement.

[SfJ5Rpw8]

bonsoir,

Application.GetOpenfilename.. ne permet pas de lancer autocad ni d'ouvrir le fichier dessin mais seulement de récupérer le chemin et le nom de ce fichier ..

le lancement d'autocad et l'ouverture du fichier doit être plus loin dans ton code ... voir peu-être initialiserExport.

[LimsWolf]

Merci de la réponse rapide.

Oui effectivement c'est plus tard.

Mais je voudrai que le programme face la même opération mais qui prenne toujours de récupéré le fichier et le chemin gabarit.dwg à la place de s'embeter avec GetOpen... et en relatif.

[SfJ5Rpw8]

en relatif par rapport à quoi ?


sinon en absolu ta ligne devient simplement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Fichier = "G:\LP CAO DAO\PROJET D'ENTREPRISE\gabarit.dwg"

[LimsWolf]

oui je suis d'accord mais la suite du programme ne suit pas

Normalement cette procédure, me semble-t-il, ouvre le fichier autocad et récupère les calques qu'il contient, mais avec la derniere modif, plus rien ne se passe :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub InitialiserExport()
 
    On Error Resume Next
        Set AcadObj = GetObject(, "AutoCAD.Application")
        If Err.Number <> 0 Then
            Set AcadObj = CreateObject("AutoCAD.Application")
            NombreDessinAutocad = -1
        End If
        AcadObj.Visible = True
 
        Set AcadDoc = AcadObj.ActiveDocument
        Set AcadUtil = AcadDoc.Utility
        Set AcadEspaceObj = AcadDoc.ModelSpace
 
    Excel.Application.Visible = True
 
End Sub

En Relatif:

Mes 2 fichiers (excel et autocad) sont dans un répertoire "PROJET D'ENTREPRISE", je voudrai que le lien parte du fichier excel et non pas de la racine, ici G:, Ceci m'est indispensable car je travail mon projet sur Clef USB et sur différent pc, l'entreprise, l'iut et chez moi :/.

[SfJ5Rpw8]

le code d'ouverture fichier manque il doit utiliser ta variable "fichier" et je le vois pas la ...


pour le répertoire .:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Fichier = ThisWorkbook.path & "\PROJET D'ENTREPRISE\gabarit.dwg"
 
msgBox "est-ce bien le bon répertoire : " & vbCrlf & Fichier