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...

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...

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"...

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...

Bonjour, je souhaite faire une macro qui va me créer des liens hypertexts. Ces liens seront stocké a partir d'une cellule par exemple E13 jusqu'a E21, Pour la création du chemin du lien je souhaite utilisé le contenue de la cellule K2 (debut du lien) + D13 (suite du liens variable) et enfin...

Bonjour, j'ai créer une macro qui test si le fichier est créer alors elle renvoie l'info, mais elle marche pas correctement. Sub Bouton43_Cliquer() Dim Fichier$ Fichier = "file///\\brindavoine\01_BE\BE_Schematique\05-Studios\RMP\1_02_Desk-Layout\1_02_Desk-Layout\01_11003.pdf " If...

Bonjour, j'ai un petit soucis. voici ma macro: 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...

bonjour voici une macro Sub RAZ() For Each Sh In ActiveSheet.Shapes If Not Intersect(Range(Sh.TopLeftCell.Address), Range("F:F")) Is Nothing Or _ Not Intersect(Range(Sh.BottomRightCell.Address), Range("F:F")) Is Nothing Then Sh.Delete End If Next Sh End Sub...

Bonjour, je souhaite assigné une image correspondant à un choix dans une cellule a liste déroulante. voici mon fichier exemple. le but est qu'en cellule F25 je choisi l'action dans la liste déroulante, cela m'affiche l'action et je souhaite que cela m'affiche dans la cellule J25 limage...

bonjour, j'utilise actuellement ce code VBA pour récupérer des infos sur des fichiers: Sub AfficheProprietesFichierXL() Sheets.Add On Error Resume Next Y = 1 For Each x In ActiveWorkbook.BuiltinDocumentProperties Cells(Y, 1).Value = x.Name Cells(Y, 2).Value = x.Value...