Bonjour,

Encore une fois, c'est un sans faute !!! une formule qui s'applique immédiatement avec l'ensemble de ses fonctions décrites.

C'est un vrai bonheur !!

Merci à Toi et à vous !

AL1

Bonjour à toutes et tous,

Voilà, je voudrai ajouter à certaines conditions des 0 dans un nombre que je concatène.

Exemple :

11 => nombre contenu dans une celulle.

153261 => nombre contenu dans une celulle.

Résultat du nombre recherché en "CONCATENER": 11153261.

Or il arrive parfois que le nombre exemple : 3261doit être précédé de 1, 2 ou 3 0 voir plus...

11 => nombre contenu dans une celulle.

Résultat du nombre recherché : en concatener et ajout de 0 : 11003261

Et là je bloque !

Auriez-vous une solution.

Bonne journée.

Bonjour Didier !

Merci de ces ajustements et de m'avoir rassuré sur le fait que tout est OK.

C'est toujours un plaisir, de vous lire.

Bien cordialement

Alain 

Je pense avoir trouvé !

Mais les 3 dernières lignes de commande ne sont pas prise en compte dans la macro

Et je n'arrive pas à faire en sorte qu'elles soient actives.

Est-ce que quelqu'un pourrait m'aider ?

Merci à vous !!!

Sub Envoi()
Dim Dest As String, Sujet As String
 Sheets("Feuil4").Select 'Saisir le nom exact la feuille
 ActiveSheet.Copy 'crée une copie de la feuille active
 Dest = xxxxxx.xxx@xxx.xx 'Saisir l'adresse mail
 Sujet = "Envoi Test" 'mettre le sujet de l'envoi
 ActiveWorkbook.SendMail Dest, Sujet, True
 Application.DisplayAlerts = False
 ActiveWorkbook.Close 'ferme la copie de la feuille active
 Application.DisplayAlerts = True
End Sub

Bonjour à toutes et tous,

je vous expose mon besoin :

J'ai actuellement un fichier excel dans lequel s'active une macro permettant à l'aide de boutons désignant des régions le TCD adéquat.

Exemple de la macro :

Sub PACA()
'Début de l'image
Sheets("TCD_IMAGE").Select
ActiveSheet.PivotTables("TCDIMAGE").PivotFields("Régions"). _
    CurrentPage = "Région Sud - Est"
    Range("G1").Select
    ActiveCell.FormulaR1C1 = "=R[5]C[-5]"
    Range("A11").Select
   
End Sub

Ces régions sont composées de sites : Exemple région PACA est composée de Marseille, La valentine, Toulon, Nice etc...

Ce que je voudrais faire :

Lorque quej'ai sélectionné la région, (exemple PACA) s'affiche dans une "boite" la liste des sites qui sont rattachés à la région et que je puisse cliquer sur un des sites pour que s'affiche les résultats contenus dans un TCD du site en question.

Il y a 5 régions différentes chacune composées de 15 à 25 sites en fonction de la région.

Je vous remercie par avance de votre contribution.

Bien cordialement et bonne journée à toutes et tous.

Bonjour, à toutes et tous,

Voilà ma question.

J'ai dans un fichier excel un onglet dont je voudrais automatiser deux opérations.

Le première est de transformer par un boutons le document contenenu dans l'onglet en PDF.

Pour cela j'ai fait, avec ma petite connaissance une petite Macro :

~~Sub Impression()
'
' Impression Macro
'
' Touche de raccourci du clavier: Ctrl+Shift+I
'
    Range("B1:AG66").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
        Range("F7:N7").Select
End Sub
Ensuite, ce que je suis incapable de faire c'est :

d'envoyer à partir du même bouton et en automatique ce document en pièce jointe par mail (OUTLOOK)

Vous m'avez déjà beaucoup aidé sur des formules dont je n'ai de cesse et grace à vous d'utiliser !

C'est donc pour cette raison que très naturellement je vous sollicite !!!

Bonne fin de journée.

Alain

Chris,

Il faut que je me reprenne ! ci dessous le lien ! et le fichier.

J'ai fais un onglet sur lequel j'ai tenté d'expliquer ce qui se passe et là où je souhaiter aller au début du projet... Je pense que j'en suis encore loin !

Bonne soirée.

Bien cordialement

Zorbrax

http://dl.free/jcoLevqx0

http://dl.free.fr/jcoLevqx0

Bonsoir Chris,

C'est encore moi j'ai maintenant l'adresse de dépôt.... mais à qui je l'envoie et par quelle adresse !

Bien cordialement

Zorbrax

Merci Chris,

J'utilise EXCEL 2003.. et oui l'évlution est lente dans les grosses structures !

Je ne trouve donc pas l'option que tu as décrite.

PS en déplacement actuellement je n'ai pu déposer le fichier. je le fais dès ce soir.

Merci encore pour toutes ces réponses et le temps passé sur mon Pb.

Zorbrax

Merci Chris,

Je fais ça ce soir !

Bonjour le forum !

En attendant l'expertise, je vais tenter de vous expliquer avec quelques exemples ce que j'ai tenté de faire et ce que ça donne au final.

J'ai mis dans VBA dans des modules les commandes suivantes :

Module regions :

Sub STHREG_PACA()
'Synth 10116 Choix régions
Sheets("Synth_Nat").Select
ActiveSheet.PivotTables("Synth_REG").PivotFields("Région"). _
    CurrentPage = "Région PACA"
End Sub

Et ce répété 8 fois (régions différentes)

dans un module : region_Sud_Ouest

Sub STHRENT_14()
'Synth 10116 Choix entrepôt SUD OUEST
Sheets("Synth_Ent").Select
ActiveSheet.PivotTables("Synth_NTRPT").PivotFields("Nom_Ent"). _
    CurrentPage = "Bordeaux"
End Sub

Cela répété 13 fois (villes différentes)

et dans 7 autres modules, la même chose que dans le module Region_Sud_Ouest, soit au total 93 villes réparties dans les 8 régions.

Et pour finir dans un module Admin

Sub STHRENT_ADMIN1()
'Synth 10116 Choix entrepôt PACA
Sheets("Synth_Nat").Select
ActiveSheet.PivotTables("Synth_REG").PivotFields("Sup_30"). _
    CurrentPage = ">30"
ActiveSheet.PivotTables("Synth_REG").PivotFields("Région"). _
    CurrentPage = "(Tous)"
End Sub
Sub STHRENT_ADMIN2()
'Synth 10116 Choix entrepôt PACA
Sheets("Synth_Nat").Select
ActiveSheet.PivotTables("Synth_REG").PivotFields("Sup_30"). _
    CurrentPage = "(Tous)"
ActiveSheet.PivotTables("Synth_REG").PivotFields("Région"). _
    CurrentPage = "(Tous)"
End Sub

Ce qui se passe : il semble que dès lors que je sélectionne le bouton qui active un TCD qui pointe sur une ville qui n'a pas de données, le TCD affiche n'importe quoi et même si je filtre sur le TCD manuellement. de plus si je j'active une autre ville à l'aide d'un bouton différent je retrouve les data incohérente de la sélection précédente.

exemple si j'active Charleville Mézière qui ne contient pas de data, le TCD affiche les data de Villeneuve et si ensuite je sélection Bordeaux je continue de voir les data de Villeneuve.

espérant être clair dans mes explications.

Bien cordialement

Zorbrax !