Résultats de la recherche

  1. F

    Microsoft 365 SI erreur 91 alors

    Bonjour, J'ai un tableau pou je cherche dans la colonne CodeClt une référence. Si celle-ci n'existe, erreur 91, pas je souhaiterai faire autre chose Je souhaiterai ecrire if ContLigne3 = Columns("M").Find(CodeClt, LookIn:=xlValues, lookat:=xlPart).Row ="" then tatatata else tototo endif...
  2. F

    Microsoft 365 Basculer vers une application déjà ouverte

    Bonjour, Je cherche a basculer sur une application déjà ouverte, j'ai trouver sur le net AppActivate ("Nom de l'appli") mais cela ne fonctionne pas Voila le script AppActivate ("Sage - Batigest i7 Apibâtiment [DUPONT] - Dossier en Euro") qui est le nom que j'ai récupéré dans le gestionnaire de...
  3. F

    Microsoft 365 Excel.Workbook(File.Contents("C:\Book1.xlsx"))

    Bonjour dans une macro j'ai la ligne suivante Dim NomDossier as string NomDossier = Feuil1.Rnage("B2").Value 'nom du chemin et fichier D:\Test\mes-cles_2023-test.xls chemin Cette commande me permet d'importer un fichier Excel externe dans ma feuille ActiveWorkbook.Queries.Add...
  4. F

    Microsoft 365 Macro pour chercher un code client dans une autre feuille

    Bonjour, J'ai une feuil12 = un tableau avec des fiches client (450) en colonne A c'est le code du client (alphanumérique) J'ai une feuil7 = un tableau avec la ligne 2 vierge D4 'jai le code du client que je recherche Quand j'excute la macro rien ne se passe ? Voila la macro 'Déclaration...
  5. F

    Microsoft 365 NB de valeur dans tableau de code poteaux suivant n° Département

    J'ai un fichier j'ai x lignes de code postaux A1:A2560 Je souhaiterais connaitre le nombre de code postaux par N° de département en prenat que les 2 premier caracteres du code postal Merci de votre aide Bonne journée Francis
  6. F

    Microsoft 365 Liste deroulante aver 5 à 6 conditions

    Bonsoir, Je souhaiterai faire une liste déroulante avec plusieurs conditions =SI(ESTERREUR(CHERCHE("Liseuse";F17;1));SI(W19="Sans finition (Z)";Données!$AG$13;SI(W19="Finition autres";Données!$AR$3:$AR$11;SI(W19="Finition commande";Données!$AR$3:$AR$15;SI(ET(W19="Finition...
  7. F

    Microsoft 365 Pb MkDir

    bonsoir, J'ai la macro suivante Sub Test chemin () Dim Chemin_pc As Variant Chemin_pc = Chemin_pc = "C:" & Environ("HOMEPATH") & ("\OneDrive - AFH France\Documents\AFH\OFFRES AT") If Dir(Chemin_pc, vbDirectory) <> "" Then ' = si dir_export existe alors Else...
  8. F

    Microsoft 365 Application.Vlookup echoue

    Bonjour, je démarre en excel VBA J'ai une cellule B13="DIRECTION_REGIONALE" qui est une liste déroulante =Données!$E$2:$E$10 Dans l'onglet données colonne D = code région, E = Nom région, F = tel, G= Nom région + tel => Code_Regions=Données!$E$2:$G$10 Dans mon onglet FRANCE après avoir, a...
  9. F

    XL 2019 Création d'un lien en a partir d'une cellule en VBA

    Bonsoir, Je démarre en VBA et je souhaiterai un coup de main. Dans une feuille excel j'ai une cellule N° Offre qui se trouve dans une colonne B mais dans x lignes de la feuille. En colonne C j'ai une rubrique me donnant le chemin pour le lien. Quand je me positionne sur une ligne j'aimerai que...
  10. F

    Microsoft 365 Calcul heure x jr = nb heures

    Bonsoir, J'ai dans rubrique A2 : Heure debut = 6:00 B2 : Heure de fin = 12:45 C2 : total heure = B2-A2 soit 6:45 B1 : Taux horaire = 10.09 € D2 : Cout journalier =$B$1*(HEURE(C2)+MINUTE(C2)/60) soit 71.87 E2 : nb jours = 6 Je souhaiterai faire le calcul suivant : F2 = C2*6 soit 40,5 avoir le...