Résultats de la recherche

  1. F

    Macro Intervalle de date et heure qui ne fonctionne pas

    Bonjour, j'ai la macro suivante qui ne fonctionne pas : elle retourne un tableau vide, cependant quand je retourne dans le champ tout est bien renseigné et lorsque je clique ok, le filtre fonctionne avec les données bien renseignés par la macro? Vraiment l'intrigue. Quelqu'un aurait il deja...
  2. F

    Determination Suite

    Bonjour tous le monde, je suis face à un probleme: je vous voudrais déterminer le nombre de fois qu'une valeur positive intervient dans une colonne de données (colonne c dans le fichier joint) avec reinitialisation lorsqu'une valeur negative intervient dans la colonne données et la meme chose...
  3. F

    Outlook excel vba

    Bonjour à tous, j'aimerais pouvoir envoyer une plage de cellule et un graphique automatiquement d'excel dans un mail outlook. j'ai le debut de code pour creer l'email, pour la copy des infos excel, c'est autre chose. quelqu'un pourrait il m'aider, impossible de trouver des infos sur le...
  4. F

    Copy excel vers powerpoint

    Bonjour, j'ai le code suivant. Il m'affiche un message d'erreur a .Slides(2).Shapes.Paste.... "Shapes (unknown member)" Comprend pas ? Code : Sub NouvellePresentation() Dim PptApp As PowerPoint.Application Dim PptDoc As PowerPoint.Presentation Dim Diapo As PowerPoint.Slide...
  5. F

    Copy excel vers powerpoint

    Bonjour, j'ai le code suivant. Il m'affiche un message d'erreur a .Slides(2).Shapes.Paste.... "Shapes (unknown member)" Comprend pas ? Sub NouvellePresentation() Dim PptApp As PowerPoint.Application Dim PptDoc As PowerPoint.Presentation Dim Diapo As PowerPoint.Slide Dim Sh...
  6. F

    Lancer plusieurs macro avec un application ontime

    Bonsoir à tous, Est ce que la syntaxe suivante est correcte pour lancer plusieurs macro ? Application.OnTime Date + 1 + TimeValue("23:59:00"), "macro1""macro2" Tks a lot pour l'aide. ++ peace
  7. F

    Identifier si un lancement de macro via application on time est actif

    Bonjour a tous, serait il possible de savoir si un application on time est programmé pour lancer une macro? Existe t il un ecran ou une ligne de code permettant de voir ou de checker si une macro est en attente d'execution? Vous en remerciant d'avance.
  8. F

    Retour nombre 988300:14 sur un format [hh]:mm

    Bonjour, lorsque j'initialise le format en [hh]:mm, l'heure retourné est du type suivant 988300:14. Quelqu'un aurait il une solution pour afficher la date correctement. S'agissant d'une cellule sommant, plusieurs cellule heure et le total pouvant depasser 24h. Merci d'avance. :):)
  9. F

    Concatener plusieurs retour de recherchev

    Bonjour, j'essaie de concatener le resultat de plusieurs recherchev dans une cellule mais l'erreur #NOM? m'est retournée. =IF(VLOOKUP("A",'[TB.xlsm]TB'!$J$11:$BF$23,2,FALSE)="F2T",IF(VLOOKUP("A",'[TB.xlsm]T...
  10. F

    Writeline - Method or data number not found-

    Bonjour, J'ai le code ci dessous qui fonctionne dans un projet excel (fichier1) mais ne fontionne pas dans un autre (fichier2). Sub TESTAPI() Dim fs As Scripting.FileSystemObject Dim c As Scripting.File Set fs = CreateObject("Scripting.FileSystemObject") Set c...
  11. F

    Fonction day

    Bonsoir, le code ci dessous ne fontionne pas? je ne comprend pas? If day(Date + 1) < 10 Then ActiveSheet.Range("$B$1:$P$170").AutoFilter Field:=1, Criteria1:=Format(Date + 1, "ddd mmm d") ActiveSheet.Range("$B$1:$P$170").AutoFilter Field:=6, Criteria1:="=High", _...
  12. F

    Copy entete filtre

    Bonjour, lors d'une selection par filtre, si aucun resultat resort. Les titres sont selectionné et copié. tres embettant pour ma part. Sub Der_cel9() DERLIGNE = RANGE("A" & Application.Rows.Count).End(xlUp).Row Dercol = Sheets("TB").Cells(10...
  13. F

    Outlook et HTML

    Bonjour, j'utilise la macro ci dessous pour le cors d'un email, cependant, les images ne s'affiche pas et rest blanche. quelqu'un pourrait il m'orienter. Sub MAIL() Déclarations des objets et des variables Dim olApp As Outlook.Application Dim objMail As Outlook.MailItem...
  14. F

    Additionner fonction if

    Bonjour, je souhaiterais additionner le resultat de deux fonction if. Est ce possible? voila ma formule qui revient en errreur #Value. =(IF(K11="A",BV11,""))+(IF(K11="B",BV11,"")) :cool:
  15. F

    Ligne de code erreur ??

    Bonjour, Vba me retourne la ligne de code suivante en erreur: Worksheets("TEMP").[P16].Formula =...
  16. F

    Fonction recherhant la valeur minimun dans une plage de donnée a rechercher.

    Bonjour, quelqu'un pourrait il me renseigner sur la raison de la non fonctionalité de cette fonction. Function MININ(VAL1 As String, VAL2 As String) Dim Num1 As String Dim Num2 As String Num1 = WorksheetFunction.EQUIV(VAL1, Workbooks("TB").Worksheets("DATA").RANGE("A1:A36500"))...
  17. F

    Macro S'executant mal

    Bonjour, la macro ci dessous tres longue pour mettre en forme: ne s'execute pas correctement. RANGE("J" & DERLIGNE).Select Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, _ Formula1:="=0"...
  18. F

    Copie donnée a un certain point dans entete word

    Bonjour, impossible de copié des donnée dans entete word a un bookmark. j'ai essayé le code ci dessous ne fonctionne pas. With wrdDoc.Sections(1) .Headers (wdHeaderFooterPrimary) .Selection.HomeKey Unit:=wdStory .Selection.GoTo What:=wdGoToBookmark, Name:="ET"...
  19. F

    ThisWorkbook.FollowHyperlink /Run-Time Error '-21474417848 (80010108) .

    Bonjour, sur la macro ci dessous, j'ai l'erreur detailler dans l'intitulé. La macro ne s'execute pas en entier et le document htm n'est pas ouvert. Sub OPENDOC() Call DOC ThisWorkbook.FollowHyperlink "C:\Documents and Settings\PRO\Bureau\SAUVEGARDE\DOC" &...
  20. F

    Echelle Abscisse donnée quoitidienne sur 1 ans et demi.

    Bonjour, je souhaiterais que s'affiche, sur l'echelle d'un graphique, en abscisse. Le nom des mois et non toutes les dates sur 1 ans et demi. Ce qui fait brouillon. Est ce possible? Muchas gracias.