Discussion :

[antoinelavigne]

Bonjour,
désolé pour le titre je ne voulais pas faire accocheur mais je ne savais pas quoi mettre . Je suis actuellement en stage dans une entrprise et je suis censé leur coder une macro en VBa pour Excel. Sans rentrer dans les détails de la macro, j'avance de jour en jour dans mon travail.

Seulement voilà, personellement, quand je veux tester ma procédure, je passe par l'éditeur Microsoft Visual Basic pour importer mon .BAS, après je reviens sous Excel, là je fais ALT+F11 et j'éxécute ma macro.

Seulement voilà je ne dois pas laisser un fichier .Bas à mon employeur et le laisser faire cette fastidieuse manipulation (qu'il ne saurait pas forcément faire)

Sans lui avoir parlé encore, j'aimerais savoir si il y avait un autre moyen de lui présenter, enfin un autre moyen de lui faire éxécuter plus facilement.

Merci d'avance !

[Ania]

Je ne connais pas le contenu de ton fichier .BAS

mais s'il contient juste le code brute il te suffit d'insérer un module sous l'éditeur d'Excel dans la fenêtre Projet

et de copier ton code dans cette le module

bonne continuation

[antoinelavigne]

Mais c'est justement ca ! Cest un module que j'ai exporté, et l'extension des modules est BAS !
Evidemment qu'il y a du code brut dedans tu veux qu'il y ai quoi ?

[Ania]

bah pourquoi tu le laisse pas avec ton fichier Excel
avec un bouton ou une combinaison de touche pour lancer ta macro ???

[antoinelavigne]

En fait il s'agit d'une macro que je test sur un classeur TEST.xls, mais cette macro doit servir sur du moyen terme sur d'autres classeurs qui n'ont aucun rapport ... d'où ma volonté de pouvoir exporter/importer le plus facilement au monde

[Ania]

je peus te proposer une solution pas tres propre mais qui fonctionne.

Elle consiste à laisser la macro dans ton fichier Excel.

Lorsque tu en as besoin tu ouvre ce fichier, tu retournes sur le fichier ou tu souhaites appliquer la macro et tu utilises le menu Outils -> Macro -> Macros

il te suffit alors de choisir la macro correspondante

Voila j'espere que ca pourra t'aider

[antoinelavigne]

Ania .... stop !!!!!
C'est exactement ce que je fais, et je demandais si il y avait un moyen moins fastidieux pour lancer ma procédure plutôt que de passer par Microsoft Visual Basic .

[Catbull]

Tu peux construire un script VBS qui importe un fichier BAS dans un fichier Excel.

[ouskel'n'or]

Ania à poposé sa solution, je t'en soumets donc une autre
Tu places ta macro dans un .xla (macro complémentaire)
Tu crées une barre d'outils danslaquelle tu mets un bouton, bouton qui lance la macro du xla.

Tu dis s'que t'en dis...

[antoinelavigne]

Ok, plus de problème de compréhension, je pense que vous avez cerné mon problème maintenant .

CatBuLL > Je ne sais pas coder en "VBS" (c'est quoi d'ailleurs?). Est-ce compliqué ou ya t-il quelqu'un qui pourrait me le faire si ce n'est pas compliqué ?

ouskel'n'or > je ne trouve pas de tutos sur la création de barre d'outils. As tu une URL pour moi stp ? Est-ce compliqué ?

[ouskel'n'or]

Zazaraignée a donné un exemple il y a environ six mois. Une recherche sur le forum devrait permettre de le retrouver. Cherche de ton côté, je cherche du mien

A+

[antoinelavigne]

Tu voudrais pas plutôt dire 6 jours ?

-> http://www.developpez.net/forums/sho...mpl%E9mentaire

Je ne l'ai pas encore lu, je vais le faire car c'est long, je finis ce que je fais avant. Est-ce bien le bon topic ? ThAnKs .

[ThierryAIM]

A "Question bete", reponse idiote : vous allez me laisser ce titre stupide encore longtemps ??

[ouskel'n'or]

Si, tu as raison, tu as tout à cette adresse

Et change le sujet de ta question, 1 - il ne veut rien dire, 2 - C'est pas à toi de juger, 3 - Imagine une recherche de solution sur le forum sur ton titre, et 4 - t'as jamais vu thierry se fâcher !

[antoinelavigne]

A "Question bete", reponse idiote : vous allez me laisser ce titre stupide encore longtemps ??

Tout de suite chef

ouskel'n'or > Ok, jte tiens au courant sur ce topic d'ici une heure. En fait, j'ai une question : JE travaille sur plusieurs classeurs pour ma macro, ces derniers possédant des noms de mois (actuellement Juin, et mai). Mais le but étant d'utiliser la macro dans les mois prochains, si je met dans mon code : Workbooks.Open "c:\Ca_Juin.xls" cela ne marchera pas car les noms des fichiers auront changé, et ce sera juillet, août etc ...

N'y a til pas un moyen de stocker plutôt dans une variable le nom du mois en cours ? Cela resoudrai mon problème.

Sinon, il faut que j'ouvre ces classeurs pour chercher des informations dans les cases, mais sans que l'utilisateur ne voit les classeurs s'ouvrir à l'écran. La solution : la lecture seule ? Est-ce bien la lecture seul ? Merci .

[ouskel'n'or]

essaie

Code :

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

MsgBox Format(Date, "MMMM")

A+

[antoinelavigne]

essaie

Code :

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

MsgBox Format(Date, "MMMM")

A+

Ouai ca marche, et pour faire le mois précédent ?

[antoinelavigne]

Deuxième question également, mon code ci-dessous n'est pas bon, je n'arive pas à le corriger et je pense que vous voyez mon erreur :

Code :

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

1
2
3
4
 
   Worksheets("Synthese").Range("B4").Value = Workbooks _ 
("V2 Réalisé "&mois_en_cours&"").Worksheets(1). _ 
Range("I34").Value

Comment faire ? et pour le moins précédent du mois en cours ?
Merci d'avance =)

[antoinelavigne]

Bon, je suis désolé si mes questions fusent un peu, mais je suis dans le noeud du problème là, et vous comprendrez qu'une fois dénoué le travail ne sera plus qu'une question de temps. Voilà mon code :

Code :

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

1
2
3
4
5
6
7
 
Sub deplacer()
    Dim mois_en_cours As String
    mois_en_cours = Format(Date, "MMMM")
    Workbooks.Open "V2 Réalisé " & mois_en_cours & "", , True
    Worksheets("Synthese").Range("B4").Value = Workbooks("V2 Réalisé "& mois_en_cours& "").Worksheets(1).Range("I34").Value
End Sub

En gros j'essaye d'ouvrir le fichier du mois actuel mais je craint que ma syntaxe soit mauvaise. Je pense que vous avez compris mon but, tout repose dans ce transfert de données : je prends les données d'un autre classeur, et je les dépose dans la feuille 'Synthese' que j'ai précédemment créer (non visible sur le bout de code que jai copier/colle).

Ca ne marche pas ! Need S0me Help !!

[antoinelavigne]

Cest cette phrase qui est en rouge :
Worksheets("Synthese").Range("B4").Value = Workbooks("V2 Réalisé "& mois_en_cours& "").Worksheets(1).Range("I34").Value

Pourtant j'ai véirifié :

- Le workbook que jessaye d'aller chercher est dans le mm répertoire
- Son unique feuille s'apelle RealAnnu mais en mettant (1) ca devrait etre ok no ?
- Bonne case (I34)
- Dans le classeur ouvert cest la bonne feuille Synthese .