Comment unloader un module ou si qqn a une autre solution

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Comment unloader un module ou si qqn a une autre solution

dorianhawkmoon

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 :

Private Sub Macro_Click()
MacroCatia
MacroExcel
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 :

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

là ya comme :bug:

Publicité

AlainTech

Pas trouvé? Cherche encore!

Active la feuille sur laquelle tu vas travailler puis:

Activesheet.Range(...

guendalf

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 :

Sub MacroCatia()
Dim data As String
data = InputBox("Saisir des infos" )
With ActiveWorkbook.Worksheets(1)
.Range("A1:A10" ).Value = data
End With
End Sub

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

Code :

Sub MacroExcel()
Dim c As Range
With ActiveWorkbook.Worksheets(1)
Set c = .Range("A:A" ).Find(What:="Representatif", LookIn:=xlValues)
If Not c Is Nothing Then
MsgBox "Representatif at line: " & c.Row, vbInformation
Else
MsgBox "Representatif doesn't found", vbInformation
End If
End With
End Sub

Et enfin une Userform qui execute les 2 procedures successivement:

Code :

Private Sub CommandButton1_Click()
MacroCatia
MacroExcel
End Sub

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

---------------
Guendalf

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Comment unloader un module ou si qqn a une autre solution

Sujets relatifs
[SOLUTION] pour obtenir le nom de session (username) depuis php	Où trouver un module de news wap téléchargeable?
module net::telnet::cisco	Java script autre solution ?
Memory leak dans le module at_chritai	DOM XML est-il ma solution ???
Problème d'installation du module XML::PARSER	Autre solution que header()?
texte defilant marche pas sur MAC ... (script simple)1autre solution ?	[VB] Faire tourner un module dans son propre thread
Plus de sujets relatifs à : Comment unloader un module ou si qqn a une autre solution

Page générée en 0.050 secondes