Discussion :

[AliochaBada]

Salut

Le transfert de mes fichiers excel avec leur code VBA de la maison au boulot ne se passe pas sans probleme. J'ai abandonné l'idée de faire tourner le code sur mon poste de travail macintosh, rien que les controles ne sont pas reconnus...
Le code a été écrit sous Excel 2003 et j'utilise un PC avec Excel 2000. Et le code VBA qui fonctionnait bien bugg maintenant.
J'ai découpé le code en toutes petites parties pour localiser l'endroit où ca bugg, et.... c'est une simple activation de feuille au tout début du code avant collage d'une selection.
Voilà le code qui démarre à la validation d'un formulaire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 Private Sub CommandButtonUsfDAAdress_Click()
 
'Selectionne et copie les données sources
 
UserFormDAAdress.Hide
Workbooks(TextBoxDAFich.Value & ".xls").Sheets(TextBoxDAOnglet.Value).Activate
ActiveSheet.Range("A5:AZ5").Select
ActiveSheet.Range(Selection, Selection.End(xlDown)).Select
olignes = Selection.Rows.Count 'Recupere le NB de lignes sources initiales pour l'historik
Selection.Copy
 
'Colle la selection
 
Workbooks("ConvertAchapp.xls").Sheets("ImportDA").Activate

La sélection dans le fichier source se passe nickel. C'est la derniere ligne que le déboggueur surligne.

Sur le web, une piste suggere un probleme d'instance, que les 2 fichiers doivent etre ouverts dans la même instance. J'ai essayé d'ouvrir les deux fichiers à partir de Fichier > Ouvrir de Excel plutôt qu'en cliquant sur le fichier dans l'explorateur Windows mais ca ne change rien.

La macro automatique sur Excel 2000 propose un Windows(nomdufichier).Select mais ca ne resoud pas mon probleme non plus.

Je vais encore essayer de faire ouvrir le fichier par le code.
Sinon peut etre un probleme de code pas au bon niveau pour agir sur 2 fichiers mais je vois pas trop comment faire.

Si quelqu'un a une idée, j'aimerais tellement pouvoir utiliser ce fichier à mon boulot pour le traitement des données plutôt qu'à la maison

[conconbrr]

Déjà moi je te dirais d'éviter de sélectionner... Passe plutôt par une variable objet :

Code :

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

1
2
3
4
5
dim rgTaPlage as range
set rgTaPlage=ActiveSheet.Range("A5:AZ5")
set rgtaplage=rgtaplage(rgtaplage,rgtaplage.end(xldown))
 
rgtaplage.copy destination:=Workbooks("ConvertAchapp.xls").Sheets("ImportDA").range("qqch")

Il est possible que je me sois un peu lourdé sur la définition de rgtaplage étant donné que je suis fatigué et que j'ai pas testé mais en tt cas l'idée est là

[AliochaBada]

Merci Conconbr

Je vais essayer ca tout à l'heure !

Je croise les doigts ...

[AliochaBada]

Arggh ca ne marche toujours pas, il fait bien la sélection, mais il n'arrive pas à revenir sur le premier classeur; il y a vraiment quelque chose de louche.

Sur une autre feuille du meme fichier,j'ai presque le meme code, et il fonctionne sans probleme....

Un truc qui me met la puce à l'oreille, c'est un message lorsque je selectionne le bouton de commande de la feuille qui bugg qui dit :
"Impossible de sortir du mode création, le controle ne peut pas être créé."

JE lache l'affaire, je vais recommencer à partir d'une version qui n'est pas passé par le macintosh, peut etre c'est ca qui a tout cassé.

MErci Conconbr pout ta réponse, je connaissais pas la syntaxe de [copy destination:=]

[conconbrr]

De nada ça évite de sélectionner les cellules.
J'insiste encore sur le fait d'éviter de sélectionner les objets,ce qui te fait gagner beaucoup de temps de calcul et améliore la lisibilité et la qualité de ton code