Résultats de la recherche

Re : VBA: A1 = nom du fichier Réponse: Worksheets("client").Range("A1") = ActiveWorkbook.Name

Re : VBA: A1 = nom du fichier Et lorsque je fais (tout bettement): Worksheets("client").Range("A1").Formulalocal = "=STXT(CELLULE("nomfichier";A1);TROUVE("[";CELLULE("nomfichier";A1))+1;SOMME(TROUVE({"[";"]"};CELLULE("nomfichier";A1))*{-1;1})-1)" Fichier = Sheets("client").Range("A1")...

Bonjour à tous! Je suis à la recherche d'une macro qui me permette d'afficher le nom du fichier en A1. Je connaissais pour l'afficher dans une cellule sans passer par VBA...

Re : Fouiller dossiers + récupérer des informations dans fichiers CSV Bonjour, Merci pour ton post! A ne surtout pas supprimer :) J'ai une question: je cherche à faire plus ou moins la même chose que toi à quelque différences pres! 1) je souhaite copier que certaine cellules de mes fichiers 2)...

Bonjour à tous, Après de long mois d'absences à exercer les tricks appris sur le forum, le niveau évolue et les questions reviennent... Aujourd'hui, je suis à la recherche d'une formule qui me permette de: L'objectif: J'ai dans ma colonne B:B des noms de villes En A:A une chaîne...

Re : VBA Si A1 selectionnée alors ... Ca fonctionne parfaitement ;) .CC = CellDest.Offset(0, 1).Value Merci!!!

Bonjour à tous, Je cherche un code VBA me permettant de faire la chose suivante: - J'ai une selection automatique d'adresse avec: For Each CellDest In Range("A8:A" & Range("A65536").End(xlUp).Row) If Not CellDest.EntireRow.Hidden Then Destinataire = CellDest.Value...

Re : Envoi email avec objet, contenu et pièce jointe Bonjour, Je suis toujours à la recherche d'aide pour modifier ma macro.... JE cherche à: - ajouter une personne en copie - modifier le texte en fonction des destinataires - inclure une signature Merci pour votre aide. C4rtoons

Re : Envoi email avec objet, contenu et pièce jointe Je cherche également à pouvoir mettre mon texte en fonction de du destinataire. (Colonne E) Je souhaiterai également pouvoir mettre une signature. Merci pour votre aide ;)

Re : Envoi email avec objet, contenu et pièce jointe Bonjour, Je sais que le post est relativement ancien, mais le code est très très propre!! Comment serait-il possible d'ajouter une personne en copie en fonction du destinataire de l'email? Merci de votre aide P.S: je pense que ca...

Re : Probleme de macro qui saute D1, je veux la date du jour actualisé chaque jour. Si demain j'ouvre le fichier, alors je voudrais avoir 11 Mai 2011 par exemple X1, à l'origine je voulais la date de création du fichier avec le nouveau nom - Pas la date d'origine de la première ouverture du...

Re : Petite Macro en cas de modification de cellule Sais tu si je peux créer un bouton du coup, qui désactiverai la gestion des évènements? pour implémenter ma base de données et l'activer pour les mises à jours de la base?

Re : Probleme de macro qui saute Tototiti2008 - Malheureusement le code que tu viens de me fournir ne fonction pas... Lorsque je supprime la date en D1 pour voir si cela fonctionne, elle ne réapparaît pas en D1...

Re : Petite Macro en cas de modification de cellule Oula je suis perdu dans ton explication... si: Nb cellules modifié de la 1er ligne < au nbr de colonnes? de la feuille? Pour quoi faire? :(

Re : macro pour creation de dossier Je ne comprends pas trop ce que fait la macro... Tu pourrais essayer de me détailler par étapes ce que cela génère? Le Shell32.dll par exemple?! Merci :)

Re : Probleme de macro qui saute Je parlé de la deuxieme macro... Private Sub putdate() Application.EnableEvents = False Dim vDate As String vDate = Date vDate = Format(vDate, "dd mmm yyyy") Range("D2") = vDate Dim Vdatecreation...

Re : Convert To PDF Tout fonctionne! Merci à tous pour votre aide ;)

Re : Convert To PDF A oui en effet!! Du coup je fais la modif sur toutes les macros qui comprennent cette ligne! Merci. Quelqu'un pour le reste?

Re : Probleme de macro qui saute Comme cela, ta partie fonctionne tres bien! quand la formule est toute seule, mais pas avec les autres! Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("D3:D4")) Is Nothing Then Target = UCase(Target)...

Bonjour le Forum, J'ai un souci avec une macro et je ne comprends pas pourquoi... Ma macro a fonctionnée pendant 4 jours et maintenant elle ne fonctionne plus... LA premiere partie me sert a mettre en lettre capitale la cellule D3 (mais en essayant de rajouter une partie pour faire la...