Résultats de la recherche

  1. P

    utiliser une fonction propre au fichier dans une macro

    bonjour, dans ma macro, j'ai un nom de fonction variable. Pour l'appeler, je construis la fonction dans un string str="ma_fonction(param1;param2;...)" comment faire pour l'évaluer? Je n'ai pas trouvé. merci
  2. P

    Erreur 76 avec un MkDir

    Bonjour, j'ai le problème suivant: je fais chemin = ThisWorkbook.Path & "\Photos\" & Range("encours!a4") MkDir chemin Et il me fait une erreur 76 sur le MkDir. c'est sur un fichier dont le code n'a pas été touché depuis 6 mois, et qui fonctionnait avant. Quelqu'un sait me dire quel...
  3. P

    Userfom actif: comment savoir???

    Bonjour j'ai mon USF fond et un autre en permanence affichés. Comment savoir quel est l'autre USF qui est affiché de manière simple?? merci phoque.r
  4. P

    Problème erreur 1004 - marche sur un ordi et pas sur un autre

    Bonjour, voila ma macro: Private Sub Depart_Click() ThisWorkbook.Activate Sheets("graphiques").Select Set LeGraph = ActiveSheet.ChartObjects("Graphique 3").Chart 'ActiveSheet.ChartObjects ("Graphique 2") NomImage = ThisWorkbook.Path & Application.PathSeparator &...
  5. P

    Minimiser excel avec USF

    Bonjour, mon fichier cache excel à l'utilisateur et n'affiche que les USF. Est-il possible de les réduire pour passer à une autre application, en ayant toujours un truc qui apparait dans la barre du bas??? merci
  6. P

    Mail et Outlook: Afficher le mail devant les USF

    Bonjour, dans mes macros, j'envoie des mails, mais il font que l'utilisateur clique sur "envoyer", seulement, le mail apparait derrière mon USF. Comment puis-je le faire apparaitre devant pour que l'utilisateur puisse cliquer tout de suite?? merci phoque.r
  7. P

    Créer un Histogramme

    bonjour, je vais surement paraître bête, mais je n'y comprends pas grand chose... J'ai une colonne avec des villes, dont certaines plusieurs fois. Je n'arrive pas à créer un histogramme en baton qui me fait les batons suivant le nombre de fois que la ligne est présente dans la colonne (qui...
  8. P

    Problème dans l'affichage de mes 2 USF en même temps

    aucun problème en fait... message à supprimer chers modérateurs
  9. P

    Affichage de plusieurs userforms en même temps au démarrage

    Bonjour, j'aimerais lancer mes 2 USF Fond et USF1 au démarrage Si je fais Fond.show USF1.show ca attend que Fond soit fermé pour faire apparaître USF1 Y-a-t-il une solution à ce problème?? merci phoque.r
  10. P

    Récupérer le texte d'un mail d'outlook

    Bonjour, j'utilise cette methode pour envoyer un mail: Set ElémentCourrier = CreateObject("Outlook.Application").createItem(0) With ElémentCourrier .to = Mail .Subject = Sujet .htmlBody = Msg .Display End With Dans le cas d'un mail groupé...
  11. P

    Liste de diffusion

    Bonjour, (tout se considère toujours depuis ma macro) j'ai trouvé le code de MichelXLD pour créer et remplir un liste de diffusion, mais après il me reste deux trucs que je ne sais comment faire: -l'utiliser pour l'envoi de mails -l'effacer merci phoque.r
  12. P

    Fonction Kill non reconnue

    Bonjour, la fonction kill n'est pas reconnue chez moi, ca me fait une erreur, alors que le chemin est bon Qui sait d'ou peut venir le pb merci
  13. P

    fonction FileExists qui ne fonctionne pas

    fonction FileExists qui ne fonctionne pas // Filesearch Bonjour, la fonction FileExists n'est pas reconnu chez moi!!!! c'est microsoft office 2000 je crois comment faire merci
  14. P

    Rechercher un fichier sans connaitre l'extension

    Bonjour j'ai des images dont le nom est formaté par mon fichier, mais qui garde l'extention d'origine. Les images sont dans un repertoire. Comment trouver si le fichier existe dans un format ou un autre??? Je ne tiens pas à noter pour chaque enregistrement, le format de la photo. En...
  15. P

    Envoyer un mail avec la liste de diffusion

    Bonjour, j'ai trouvé ce code, que je vais adapter pour ma liste de diffusion: Sub creationListeDistribution() Dim outApp As Outlook.Application Dim DL As distListItem Dim oItem As mailItem Dim oRecipients As Recipients Set outApp = createObject("Outlook.Application") Set DL =...
  16. P

    Déplacer en le renommant un repertoire

    Bonjour voila: j'ai un repertoire ...\A que je veux déplacer vers ...\Z\A et renommer ce A en B, par exemple comment faire merci phoque.r
  17. P

    Macro - Eliminer un caractère d'une chaine

    Bonjour j'ai une variable de ma macro qui est une chaine de caractère et qui contient plusieurs foir le caractère "/" Comment puis éliminer ce caractère de ma variable? Merci phoque.r
  18. P

    Ouvrir seulement des fichiers images

    Bonjour, j'utilise ça pour ouvrir les fichiers Fichier = Application.GetOpenFilename("Fichiers Images,*.*") mais j'aimerai uniquement ouvrir les fichiers images reconnus par Excel (pour afficher dans un UFS, dans un cadre image). Comment puis-je faire???? Merci phoque.r
  19. P

    Affichage de VBA - petit problème

    Bonjour, j'ai un petit problème qui commence à m'énerver::mad: :mad: :mad: je ne sais pas ce que j'ai fait, mais maintenant dans VBA, il m'affiche plus le fenêtre fixe avec mes USF, macros et feuilles d'un côté, la feuille objet ou code de l'autre. J'ai plein de feuilles dans tous les sens...
  20. P

    Réduire une image - macro

    Bonjour, existe-t-il une macro qui permette de réduire la taille d'une image (histoire de passer à un format assez léger) si celle-ci dépasse la format? merci phoque.r