[VBA AutoCAD] Problème inter-application

Problème inter-application [VBA AutoCAD] - VB/VBA/VBS - Programmation

Marsh Posté le 03-04-2011 à 10:28:17    

Bonjour,
 
Actuellement je travaille sur une petite application lancée depuis AutoCAD 2011.
Je souhaite en effet  générer un classeur Excel contenant diverses informations du dessin courant. Jusque là ça va!
En voulant améliorer le rendu esthétique de la feuille du classeur (Bordures, fond de cellule), Je rencontre un problème dès lors que je lance une deuxième instance. C'est à dire que la première fois tout ce passe bien, les propriétés de cellules sont générées, mais à la seconde, message d'erreur:  
 
Erreur d’exécution.  
Variable Objet ou variable de bloc With non définie.
 
Et la troisième fois la session Excel est lancée avec toutes les infos du dessin courant mais les propriétés de cellules sont absentes!  
 
Voici le code:
 

Code :
  1. Option Explicit
  3. Sub ExcelApp(LayerVal As String)
  5. '******************'
  6. '* Création Excel *'
  7. '******************'
  9. 'Déclaration des variables'
  10. Dim MSExcelApp As Object
  11. Dim NewSurvey As Object
  13. 'Création d'une instance de l'objet Microsoft Excel'
  14. Set MSExcelApp = CreateObject("Excel.application" )
  16. 'Création d'un nouveau Fichier'
  17. Set NewSurvey = MSExcelApp.Workbooks.Add
  18. NewSurvey.sheets("Feuil1" ).Name = "Métrés"
  19. NewSurvey.sheets("Feuil2" ).Delete
  20. NewSurvey.sheets("Feuil3" ).Delete
  22. 'Exécution des tâches'
  23. With NewSurvey.sheets("Métrés" )
  24.            
  25.     '****************'
  26.     '* Titre Numéro *'
  27.     '****************'
  28.     With .Range("A1" )
  29.         .Value = ("N°" )
  30.         .HorizontalAlignment = xlCenter
  31.         .Font.Bold = True
  32.     End With
  33.    
  34.     .Range("A1" ).Select
  35.     Call BordCell
  37. End With
  38.      
  39. 'Enregistrement du Fichier'
  40. On Error Resume Next
  41. MSExcelApp.DisplayAlerts = False
  42. NewSurvey.SaveAs FileName:=ThisDrawing.Path & "\AutoCAD - Métrés - " & LayerVal
  43. MSExcelApp.dispalyalerts = True
  44.    
  45. 'Affichage de l'objet Microsoft Excel'
  46. MSExcelApp.Visible = True
  48. 'Suppression des classeurs inactifs'
  49. If NewSurvey.Workbooks.Name <> "\AutoCAD - Métrés - " & LayerVal Then
  50.     MsgBox ActiveWorkbook.Delete
  51. End If
  53. 'Libération variable'
  54. Set NewSurvey = Nothing
  55. Set MSExcelApp = Nothing
  57. Unload LayerBox
  59. End Sub


 
Ligne 35:
Appel de sous-routine pour générer les bordures.
 

Code :
  1. Sub BordCell()
  3. '********************'
  4. '* Bordures Cellule *'
  5. '********************'
  7. Debug.Print "Selection = " & Selection
  8. Selection.Borders(xlDiagonalDown).LineStyle = xlNone
  9. Selection.Borders(xlDiagonalUp).LineStyle = xlNone
  11. With Selection.Borders(xlEdgeLeft)
  12.     .LineStyle = xlContinuous
  13.     .Weight = xlThin
  14.     .ColorIndex = xlAutomatic
  15. End With
  17. With Selection.Borders(xlEdgeTop)
  18.     .LineStyle = xlContinuous
  19.     .Weight = xlThin
  20.     .ColorIndex = xlAutomatic
  21. End With
  23. With Selection.Borders(xlEdgeBottom)
  24.     .LineStyle = xlContinuous
  25.     .Weight = xlThin
  26.     .ColorIndex = xlAutomatic
  27. End With
  29. With Selection.Borders(xlEdgeRight)
  30.     .LineStyle = xlContinuous
  31.     .Weight = xlThin
  32.     .ColorIndex = xlAutomatic
  33. End With
  35. End Sub


 
Ligne 7:  
- La première fois Debug.print me renvoie bien la valeur "N°".
- La seconde fois plante.
- La troisième fois me renvoie rien.
 
Que se passe t-il?


Message édité par mmarle le 15-11-2011 à 14:37:46
Reply

Marsh Posté le 03-04-2011 à 10:28:17   

Reply

Marsh Posté le 06-04-2011 à 19:23:14    

Rapidement et à vue de nez, la sub ne sait pas sur quel objet il faut faire les sélections et les bordures si tu ne lui dis pas !
 
Essaye à ta ligne 35 de ton programme principal de donner en argument la feuille excel :

Call BordCell(NewSurvey.sheets("Métrés" ))


(au passage, il semble manquer un End With après ou avant cette ligne)
 
et dans la 2nde sub :

Sub BordCell(Feuille as Excel.Sheet)
With Feuille
'********************'
'* Bordures Cellule *'
'********************'
Debug.Print "Selection = " & Selection
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
    .LineStyle = xlContinuous
    .Weight = xlThin
    .ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
    .LineStyle = xlContinuous
    .Weight = xlThin
    .ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
    .LineStyle = xlContinuous
    .Weight = xlThin
    .ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
    .LineStyle = xlContinuous
    .Weight = xlThin
    .ColorIndex = xlAutomatic
End With
End With
End Sub


Pas garanti que ça fonctionne, mais je rechercherais dans cet esprit là.


---------------
OtObOxBlOg - - - Etre seul à avoir tort  c'est plus difficile, mais c'est bien plus beau que d'avoir raison avec une bande de cons
Reply

Marsh Posté le 08-04-2011 à 08:33:59    

Salut otobox,
 
Tout d'abord je te remercie de t'être penché sur mon problème.  
 
J'ai testé les modifications que tu as apporté à mon application et malheureusement ça n'aboutit à rien. Pour l'instant je n'utilise plus la sous-routine de propriétés de cellule et j'ai saisi le code directement à partir de la ligne 22 "Exécution des tâches". Ca fonctionne très bien. C'est un peu dommage car le code est recopié bon nombre de fois et j'aurais voulu optimiser l’écriture afin d'avoir quelque chose de plus "Propre".  
 
Pour le End With en effet il en manquait un! Je l'ai supprimé par inadvertance lorsque j'ai effacé une partie des tâches à exécuter.
 
Merci.


Message édité par mmarle le 07-06-2011 à 10:11:41
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed