Lucas,
J'ai effectuer les manip habituel (sans passer par la macro)
Fichier / Enregistrer sous / Format DWG.
quand j'ouvre le DWG "avec AUTOCAD2013, le même message apparaît effectivement.
Lucas,
J'ai effectuer les manip habituel (sans passer par la macro)
Fichier / Enregistrer sous / Format DWG.
quand j'ouvre le DWG "avec AUTOCAD2013, le même message apparaît effectivement.
Comme je l'ai dit dans un précédent message à propos du dossier :
"Avec une macro on peut choisir de définir un dossier commun, un dossier par type de fichier, un dossier (en fonction d'une propriété personnalisée client, numéro d'affaire) ou proposer un explorateur de fichier pour choisir à chaque fois où enregistrer les différents fichiers."
Est-ce que tu as une propriété perso ou quelque chose dans la codification qui t'indique ça :
fichier de premier niveau : VOITURE ou MOTO ou TRACTEUR ou VELO
fichier second niveau : Cabriolet ou Coupé ou monospace ou 4x4
La partie :
swDraw.SaveAs (Filepath + FileName + ".PDF")
swDraw.SaveAs (Filepath + FileName + ".DWG")
Devra ressembler à ça :
Select case type 'select case permet d'éviter de nombreux IF imbriqués
case = "VOITURE" 'si type = voiture
Dossier = "C:\VOITURE" 'on enregistre dans le dossier voiture
case = "MOTO" 'idem...
Dossier = "C:\MOTO"
case = "TRACTEUR"
Dossier = "C:\TRACTEUR"
case = "VELO"
Dossier = "C:\VELO"
case else 'si autre type ou pas de type, erreur
msgbox "Erreur type1"
exit
end select
Select case type2
case = "COUPE" 'si type1 = coupé
Dossier = Dossier & "\COUPE" 'on ajoute coupé au dossier
case = "CAB"
Dossier = Dossier & "\CAB"
case = "4x4"
Dossier = Dossier & "\4x4"
case = "MONOSPACE"
Dossier = Dossier & "\MONOSPACE"
case else
msgbox "Erreur type2"
exit
end select
Pour information :
type1 et type2 doivent être des variables qui soient existes déjà dans tes fichiers soit à demander à l'utilisateur lors du lancement de la macro.
swDraw.SaveAs (Dossier & "\PDF\" & FileName & ".PDF")
swDraw.SaveAs (Dossier & "\DWG\" & FileName & ".DWG")
Pour utiliser le FSO il faut ajouter la reference microsoft Scripting Runtime a votre macro
Voir capture
Pour le problème de message à l'ouverture avec AutoCAD, il n'y a pas de case à décocher pour que le message n'apparaisse plus ?
Sinon voir ce lien /
http://autodesk.blogs.com/between_the_lines/2005/06/how_to_tell_if_.html
Vous vous en êtes sortie ?
Bonjour, je tiens à vous remercier pour votre aide.
Pour le moment, la macro convient à notre BE. Nous ferons juste les dossiers DWG et PDF, à la main.
On y gagne déjà pas mal de temps.
Il ce peut que la socièté investisse dans EPDM...
Nous retravaillerons sur le stockge des fichiers à ce moment.
Cordialement.
Merci de désigner la meilleure réponse dans ce cas !