[Vba-E] Importation simple de macro

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 !

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 :D

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 ?

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

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

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 :?

Ania .... stop !!!!! 8O :lol:
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 .

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

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...

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é ?

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+

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 .

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

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 !

Citation:

---

Envoyé par ThierryAIM

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

---

Tout de suite chef :oops:

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 .

essaie

Code:

---

MsgBox Format(Date, "MMMM")

---

A+

Citation:

---

Envoyé par ouskel'n'or

essaie

Code:

---

MsgBox Format(Date, "MMMM")

---

A+

---

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

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:

---

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 =)

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:

---

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 !!

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 .

L'éditeur de VB signale une erreur de syntaxe car tu as oublié les epsaces entre l'opérateur de concaténation & et la suite de l'expression :

Exemple :

Code:

---

MaVariable = "Un "& "Deux"

---

génère une erreur.

Code:

---

MaVariable = "Un " & "Deux"

---

fonctionne.

Question : la fonction du forum est-elle de résoudre ce genre problème?

Je ne trouvais pas de doc sur la concaténation .... mais maintenant ca marche merci à vous 2 je vous aime :D :oops:
2 problemes :

Code:

---

1 2	Dim mois_en_cours As String mois_en_cours = Format(Date, "MMMM")

---

me fournit 'juin' ... et il me faudrait le mois avec une majuscule en premier car sinon il dit que le fichier est introuvable ! et même apres recherches sur les fonctions des textes jene trouve pas celle pour appliquer une majuscule . J'ai trouvé ucase mais je n'arrive pas à l'utiliser.

Deuxième probleme : je n'arrive pas à inclure une procédure Sub dans une autre, est-ce possible ? Car c'est un peu embétant ... Merci !

EDIT : en fait même en tapant le nom manuellement avec une majuscule il ne le trouve pas : il faut donc renseigner manuellement le chemin je pense. Je vais faire des essais et je vous tiens au courant.

Rebonjour,
j'ai passé 1 heure ce matin à essayer de débuger le code mais je n'y arrive pas. Premierement il ouvre le classeur dans une nouvelle fenêtre, ce que je ne veux pas, je voudrais en lecture seul (enfin il ne faut pas que l'utilisateur le voit).
Et puis une erreur d'éxécution, quand je clique sur "Débogage" il me surligne en jaune la ligne en rouge ci-dessous :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub deplace() Dim mois_en_cours As String mois_en_cours = Format(Date, "MMMM") Workbooks.Open "E:\Automatisation V2\V2 Réalisé Juin", , True Worksheets("Synthese").Range("B4").Value = Workbooks _ ("E:\Automatisation V2\V2 Réalisé Juin").Worksheets(1).Range("I34").Value End Sub

---

Merci de m'aider si vous voyez l'erreur, comme je vous l'ai dit hier c'est le noeud du problème, après tout coulera de source :)

J'ai également essayé ca, en vain :

Code:

---

1 2 3

Sub ESSAI2() Workbooks("V2 réalisé Juin").Worksheets(1).Range("D5") = Worksheets("Synthese").Range("B4").Value End Sub

---

Ps : une question : comment stocker le nom du classeur actif dans une variable ? jai essayé ActiveWorkbook.name mais ca ne marche pas ..


Encore et toujours un autre essai, vous voyez que je persevere mais que je n'y arrive pas !

Code:

---

1 2 3 4

Dim Cel1 As Range, Cel2 As Range Set Cel1 = Range("B4") Set Cel2 = Workbooks("V2 réalisé Juin").Worksheets(1).Range("I34") Cel2.Copy Cel

---

Dans le code ci-dessus il ya un problème dans la ligne pour "Set Cel2" ... je ne vois pas ou il est, j'ai essayé également de rajouter lextension .xls, en vain.

Ca ne marche toujours pas ... Voilà mon code :

Code:

---

1 2 3 4 5 6 7

Sub Vbatest() Application.ScreenUpdating = False Workbooks.Open "E:\Automatisation V2\V2 réalisé Juin.xls", , True Workbooks("E:\Automatisation V2\V2 réalisé Juin").Worksheets(1).Range("D5") = Worksheets("Synthese").Range("B4").Value Workbooks.Close Application.ScreenUpdating = True End Sub

---

Il met une erreur d'éxécution '9' et en débugage il me surligne en jaune la ligne du transfert de la valeur du classeur à l'autre .

Ps : je doute de ma sintaxe pour fermer le workbook ..

Un peu d'aide s'il vous plait ... :pleure:

Salut,
quand tu met Workbooks(NomDeLautreFichier, en fait il faudrait mettre le nom du classeur sur lequel je travaillais juste avant, mais ca je ne sais pas le faire !!