[Vba-E] Importation simple de macro

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