Résultats de la recherche

Bonjour, pour une bourse aux vêtements que je prépare je souhaite faire un fichier d'étiquettes automatique. j'ai presque trouvé mais j'ai un soucis Pour faire simple je souhaiterai que sur la feuille 3 du classeur Bourse Mieussy, l’étiquette reprenne les info de la bourse au vêtements...

Re : Condition de cellule alors la ca marche mais voici un autre pb Dans le code qui suit je teste si le fichier pdf est fait, si oui je prends la date de dernière modif sinon je mets en rouge la ligne, Mais cela bloque lorsque il ne voit pas le pdf Sub Bouton43_Cliquer() For Lig = 8 To 133...

Re : Condition de cellule Tt d'abord merci de ta réponse, J'ai tester ton code, le pb c'est que par exemple dans la ligne 10 il ne voit rien donc il bug. En gros il faudrait qu'il passe a celle d'apres.

Bonjour, voici un petit bout de code qui ne marche pas mais je ne comprends pas pkoi. Sub AfficherInfoFichier() For Lig = 8 To 133 If Not IsEmpty(Cells(Lig, 5)) Then Else FichierATester = [M2] + Cells(Lig, 5) + Cells(Lig, 9)...

Bonjour, j'ai un petit soucis. voici un bout de code For Lig = 8 To 9 If Cells(Lig, 5).Value = "30_divers\" Then FichierATester = [M2] + Cells(Lig, 5) + Cells(Lig, 9) Set fs = CreateObject("Scripting.FileSystemObject")...

Bonjour, j'ai un petit soucis avec un lien hypertext que j'ai mis en place depuis excel. Ce lien n'existe plus Si je le copie tel quel dans mozilla, cela marche directement j'arrive sur la cible. mais dans excel, il ne m'amène pas sur la cible mais sur la page principale Savez vous...

Bonjour, petite question, dans ce code: For Lig = 8 To 10 If Cells(Lig, 2).Value = "1_01_Room-Layout\" Then FichierATester = [M2] + Cells(Lig, 4) + Cells(Lig, 8) Set fs = CreateObject("Scripting.FileSystemObject")...

Bonjour, je vous explique mon pb. voici la macro : For Lig = 8 To 10 If Cells(Lig, 2).Value = "1_01_Room-Layout\" Then FichierATester = [M2] + Cells(Lig, 4) + Cells(Lig, 8) Set fs = CreateObject("Scripting.FileSystemObject")...

Bonjour, je cherche a faire une macro qui me permettrais de comparer deux dates. Le hic c'est que si les dates sont les meme mais a une heure différente je ne veux rien faire. il faudrait que cela m'affiche en rouge la date qui est inferieur a un jour. ex: en colonne S 09.10.2014...

Bonjour, si je souhaite tester si une cellule de la colonne K, avec trois extensions qui renvoie chacun des actions différentes, le code donne quoi car je cherche mais je bloque. En gros si dans la cellule j'ai l'extension .dwg ca fait ca, l'extension.xls ca fait ci... Je sais pas si vous...

Bonjour, je voudrais savoir si ce code peut etre simplifié dans le sens ou je voudrais mettre : si dans chaque ligne de la colonne "D" les mots ....... sont present alors fais ceci sinon passe a la ligne suivante. Sub AfficherInfoFichier() For Lig = 8 To 10 If Cells(Lig...

bonsoir, question bete pour ce code: Sub Bouton2_Cliquer() For lig = 1 To 26666 If Cells(lig, 1).Value = "julien" Then Cells(lig, 2).Value = "12" Cells(lig, 2).Font.ColorIndex = 10 Cells(lig, 5).Value = Cells(lig, 1).Value End If Next lig End Sub si je veux qu'en plus de...

Re : Macro récupération de propriété d'un fichier seul pb avec ce code que tu m'as donné, il me donne ttes les propriétés or moi il ne me manque plus que le owner

Re : Macro récupération de propriété d'un fichier merci, je sais je l'avais créer mais je n'avance pas plus

Bonjour, je souhaite via ma macro récupérer l'info qui est dans les statistique proprietaire d'un fichier mais il me dit qu'il n'est pas générer or il l'est. Sub AfficherInfoFichier() FichierATester = [B2] attributs = Array("Attributes", "DateCreated", "DateLastAccessed"...

Re : Pb nickel, merci bien maintenant je vais décortiquer le code pour comprendre mes erreurs

Re : Pb voila le fichier, par contre j'ai re modif le code mais si tu colles celui que j'ai mis plus haut, je ne comprends pas que ca ne marche pas. qd ds la colonne K tu choisi Créer, cela colle bien la bonne image, mais si tu t trompé et que tu veux mettre supprimé au lieu de créer, alors...

Bonjour, Qu'est ce qui cloche ds mon bout de code??? Private Sub Worksheet_Change(ByVal Target As Range) Dim objFeuille As Worksheet, objPict As Picture Application.ScreenUpdating = False opt = Target.Value adr = Target.Row Range("F" & adr).Select On Error Resume Next...

Re : Macro Lien Hypertext c bon, en testant diverses ligne de code j'ai reussi, merci...

Re : Macro Lien Hypertext merci pour ce code, il marche presque bien, on ne peux pas faire en sorte que les liens s'inscrive ds la E13 a E21?