Bonjour, J'ai un classeur excel avec plusieurs feuilles. Seule la première est utilisée par l'utilisateur. Dans la cellule K4 je souhaiterais mettre une fonction type RechercheV ou Sommeprod qui donnerait le résultat tel que pour toutes les cellules remplies dans ma feuille2( 4400 lignes) si feuil1.B4 = feuil2.A ET feuil2.H < feui... Lire la suite
Bonjour, Je souhaiterais pouvoir balayer tous les sous-dossiers contenant chacun un fichier excel et après l'ouvrir, copier la première ligne et la coller dans le classeur contenant la macro. J'ai commencé à écrire le code suivant: Sub Liste_Unique()Racine = CurDirSet fs = CreateObject("Scripting.FileSystemObject")Set Dossier = fs... Lire la suite
Bonjour, Je butte depuis plusieurs jours sur une macro simple de calcul de somme si en fonction de la couleur de fond et du nom d'un onglet. J'ai un onglet "Récapitulatif" ou je souhaite utiliser mes fonctions. De la cellule B7 à la cellule AI7, figurent mes numéros de semaine. De la cellule B22 à la cellule AI22, j'y appelle... Lire la suite
Bonjour, La plupart des scripts trouvés sur le net ne sont pas adaptés pour mon cas qui semble plus simpliste. Je souhaite que l'utilisateur ouvre manuellement le message et en cliquant sur un bouton il lance la macro qui permet d'enregistrer la (seule et unique) pièce jointe du message dans un répertoire prédéfini. J'ai écrit ceci: S... Lire la suite
Bonjour, j'ai pas mal recherché sur le forum et sur google pour régler mon problème qui doit être tout bête mais je finis malheureusement par poser la question ici. Voilà, j'ai 2 feuilles dans mon classeur. Sur l'une j'ai une liste qui contient une colonne avec Nom Prénom et l'autre colonne avec les adresses mails des personnes. Dans l'... Lire la suite
Bonjour, La méthode PasteSpécial de l'objet range à échoué. Voilà le message d'erreur que je reçois en lançant la macro suivante: Private Sub CommandButtonOK_Click()Dim numsemaine As IntegerApplication.Selection.Copy'MsgBox ActiveSheet.Namenumsemaine = Semaine.TextBoxNumSheets("Semaine Type").Copy Before:=Sheets(1)Sheets("Semaine... Lire la suite
Bonjour, J'ai un fichier Word duquel je lance une macro. (publipostage avec enregistrement du fichier avec un nom prédéterminé (DocName).) En parallèle, j'ai un fichier Excel qui est ouvert et où je sélectionne une cellule. Je souhaiterais qu'à la fin de ma macro Word, je puisse lui faire inscrire la variable DocName dans la... Lire la suite