Contenu récent par treza88

Une petite dernière question, sais tu si il es possible de forcer un nouvel alias pour le compte Outlook et de remettre l'alias d'origine après avoir envoyer le mail ? En espérant que j'ai été clair dans mes explications.

Super merci Patrick et toujours aussi performant. Tout fonctionne parfaitement

Merci Patricktoulon, Forcément je comprend mieux. Par contre pour envoyer le mail avec le deuxième compte Outlook, tu à une idée, car j'ai beau mettre su la ligne ci dessous 1 ou 2, aucune différence : Set OutAccount = OutApp.Session.Accounts.Item(2)

Bonjour à tous, Sujet déjà évoqué dans différent post, mais je n'arrive pas a un résultat qui fonctionne même après une multitude d'essais. Mon image dans le corps du mail n'apparait une fois le mail envoyé et j'ai deux comte de messagerie dans ma session Outlook, mais je n'arrive pas à...

Bonjour dysorthographie, Oui tout à fait, mais j'ai quand même besoin d'un ReDim, car j'ai besoin d'un tableau du type Array(x, 5). Et du coup ça ressemblerait à ça : Function SansDoublonsArray(a As Variant) As Variant Dim sdba() As Variant Set mondico =...

Merci Dranreb, Nicolas JACQUIN et job75, Grace à vos codes et explication j'ai réussi à m'en sortir. Code de base : 'Récupération des données de la feuille dans un tableau caseArray = Workbooks(file_Name).Sheets(tab3dFinal(j, 1)).Range("C" & tab3dFinal(j, 2) + 2 & ":J" & dernCell)...

Merci Dranreb pour cette information qui me permet de mieux comprendre, Par contre ce qui m'étonne c'est que quand j'ai plusieurs valeurs, j'ai bien sdba qui est un tableau a 2 dimension. Mais si je n'ai qu'une valeur mon tableau sdba est à une dimension Le fait que Transpose fabrique un...

bonjour à tous, j'utilise une fonction à l'intérieur avec un Array dynamique à une dimension "sdba", qui a chaque fois que j'appelle cette fonction utilise ce tableau, mais qui n'a pas toujours la même longueur. A mon premier appel tout ce passe bien, mais après j'ai une erreur "l'indice...

Merci à vous deux, Mais supprimer : Application.Calculation = xlCalculationAutomatic à résolut mon problème, la macro s'exécute en 6 secondes et je peux reprendre la main, merci gbinforme. Le code ci dessus devait forcer le recalcul du classeur et prendre du temps pour rien.

Bonjour à tous, Je voudrais avoir votre avis sur le temps réel d'exécution d'une macro, je m'explique. J'ai une macro avec avant End Sub le code suivant : Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True If nbNewProject < 2 Then MsgBox "durée du...

Merci laurent950, J'avais essayer comme ça, mais j'ai du me planter quelque part.

Bonjour à tous, j'ai cette erreur, et je ne trouve pas pourquoi, le chemin et le nom de fichier est correct puisqu'il fonctionne 2 lignes au dessus, pouvez vous me dire ce qui cloche. Code : file_Name = "Plan de charge.xlsm" ' Permet à l'utilisateur de sélectionner le fichier source...

Merci sousou, c'est a peu de chose près ce que j'ai fait au post #4, sauf que moi c'est la plage 1 au dessus de la plage 2. Mais j'ai l'erreur : "Argument ou appel de procédure incorrect"

j'ai deux plages dans un fichier source non ouvert dans 2 feuilles différentes et je veux affecter la première plage a un objet Range, puis intégrer/concaténer la deuxième plage dans ce même objet Range en passant par ou plusieurs objet Range. Plage de même largeur, mais hauteur différente...

J'ai essayé ça aussi, mais j'ai sur la deuxième ligne cette erreur : Argument ou appel de procédure incorrect Set plageUnion = Nothing plageUnion1.Copy plageUnion plageUnion2.Copy plageUnion.Offset(plageUnion1.Rows.Count, 0)