Comment unloader un module ou si qqn a une autre solution

Comment unloader un module ou si qqn a une autre solution - VB/VBA/VBS - Programmation

Marsh Posté le 12-07-2005 à 14:00:21    

Bon -jour, -soir, -nuit,
 
J'ai un petit probleme sur vb.
Je commande un logiciel de CAO -Catia pour ne pas le nommer- et je cherche à automatiser la création de fichiers excel.
J'ai une macro en deux parties : une qui appelle mes parametres et les ecris dans un fichier excel, l'autre qui ouvre ce fichier et l'édite et le tri.
Voila le probleme. Exécuté d'abord la premiere partie, puis fermeture de la macro, puis réouverture et exécution de la seconde partie, ca marche. Mais si je programme une userform avec un bouton 'macro' et que j'exécute les deux partie à suivre

Code :
  1. Private Sub Macro_Click()
  2.    MacroCatia
  3.    MacroExcel
  4. End Sub


ca ne marche plus, il me met une erreur n°1004 sur la méthode range sur l'objet Global arrivé dans la partie excel sur ce code

Code :
  1. Set Premiere_Cellule_Trouvee = _
  2.         Range("a1:a1000" ).Find(What:="Récapitulatif", LookIn:=xlValues, LookAt:=xlPart)


là ya comme :bug:

Reply

Marsh Posté le 12-07-2005 à 14:00:21   

Reply

Marsh Posté le 12-07-2005 à 14:09:23    

Active la feuille sur laquelle tu vas travailler puis:

Activesheet.Range(...

Reply

Marsh Posté le 12-07-2005 à 14:32:36    

J'ai pas reussi a reproduire la meme erreur que toi.
Pourtant j'ai cree une procedure MacroCatia qui entre des infos dans une feuille:

Code :
  1. Sub MacroCatia()
  2. Dim data As String
  3. data = InputBox("Saisir des infos" )
  4. With ActiveWorkbook.Worksheets(1)
  5.     .Range("A1:A10" ).Value = data
  6. End With
  7. End Sub


 
Puis une autre procedure MacroExcel qui cherche des infos dans cette meme feuille:

Code :
  1. Sub MacroExcel()
  2. Dim c As Range
  4. With ActiveWorkbook.Worksheets(1)
  5.     Set c = .Range("A:A" ).Find(What:="Representatif", LookIn:=xlValues)
  6.     If Not c Is Nothing Then
  7.             MsgBox "Representatif at line: " & c.Row, vbInformation
  8.     Else
  9.         MsgBox "Representatif doesn't found", vbInformation
  10.     End If
  11. End With
  12. End Sub


 
Et enfin une Userform qui execute les 2 procedures successivement:

Code :
  1. Private Sub CommandButton1_Click()
  2.     MacroCatia
  3.     MacroExcel
  4. End Sub


 
...Et ca fonctionne tres bien... (en esperant t'avoir aide a deceler ton erreur)


---------------
Guendalf
Reply

Sujets relatifs:

Leave a Replay

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