Contenu récent par Samtchevsky

Sousou, Merci pour tes retours. Je vais prendre le temps d'analyser tout ça et de faire des essais.

Bonjour SOUSOU, Du coup avec ta méthode mon code complet pourrait se résumer à ça: Sub CommandButton1_Click() Dim FL1 As Worksheet, NoCol As Integer Dim NoLig As Long, Var As Variant, NoSupslash As String, NoLimitcar As String, NoTitle As String, NoSupslashspace As String...

Bonjour MJ13, Je te remercie pour ton message, j'ai bien conscience que le fichier Excel sera très lourd si je "colle" l'image directement dans le fichier Excel. Mais en tout cas la solution m'intéresserait pour ma connaissance personnelle^^ Est-il possible alors de faire une macro qui serait...

Microsoft Office 365

En toute transparence, cela vient de plein de macro que j'ai adapté avec mes "connaissances" pour coller à ce que je veux! Pour le coût à part ce souci de "fixer" l'image le reste fonctionne bien haha 1. Je ne vois pas de quoi tu parles sur les liens vers d'autres fichiers? Les seuls liens sont...

J'ai refais le fichier plus simplement pour l'alléger pour que vous compreniez le besoin et ayez l'ensemble de la macro! 1. Il vous suffit de reprendre le lien du dossier source "Test" comprenant les 3 photos sur l'onglet "Equipement" en B2. 2. En appuyant sur le bouton "Créer fiche...

Comment ça pas de problème? Lorsque tu modifies/supprimes le nom du dossier source la photo reste présente sur ton fichier Excel? Je gère la construction du lien comme suit: 1. Le lien du fichier est inscrit dans une cellule de la Feuill3 ou va être collée l'image: ='Feuill1'!$E$4&$F$9&".jpg"...

Bonjour, Je n'ai malheureusement pas trouvé de réponse à ma problématique sur les différents forums! Sur un fichier je fais de l'intégration de photos (en masse) d'un fichier source dans mon Excel avec la macro ci-dessous: Sub AffImage() Const hDefaut = 200 Dim msg As String, r As...

Re-bonsoir, Je suis désolé mais je n'arrive pas à l'intégrer... J'ai remplacé les données With Selection.ShapeRange .LockAspectRatio = msoTrue 'conserver les proportions .Height = h - 4 .Left = C.Offset(0, r).Left + 2 .Top = C.Top...

Bonsoir Job75, Merci beaucoup ça fonctionne super bien. Je me permets d'abuser. Seriez-vous quelle modification je dois faire pour placer l'image centrée la cellule D14 de la feuille "Fiche équipement" en ayant pour hauteur maximum la taille de la ligne 14 et garder la proportion sur la...

Bonjour à tous, J'ai un fichier qui me permet de faire un inventaire des équipements techniques d'un bâtiment. Je rempli le tableau dans la feuille "Equipement" et à l'aide d'une macro je crée automatiquement de nouvelle feuille correspondant aux équipements les plus important. Une seconde...

Non ça va j'ai bien compris ce que tu as fait. Je sais lire le vba mais je ne sais pas l'écrire^^ Je te remercie pour ces simplifications^^ J'ai simplement recorriger le nommage de le feuille ou le "D" avait disparu et l'alignement centré du texte colonne D. Tu as une idée par contre pour la...

Je t'avoue que j'ai pensé à un lien hypertexte! Et idem dans la page travaux pour les autres boutons que je vais devoir créer et également rattacher à des macros (dans le module tu verras une macro qui ouvre un autre fichier Excel situé ailleurs). Mais je trouve que cela fait beaucoup plus pro...

@Staple1600 Pour As Long, je vais faire la modification. Pour ta suggestion, c'est effectivement plus clair. Je vais voir pour l'intégrer. Merci de prendre le temps de regarder les autres macros. Je n'y connais pas grand chose. Je compose mes macros en prenant ce qui m'intéresse sur les...

@Staple1600 Désolé, tu trouveras le fichier modifié en PJ. J'ai passé pas mal de code en texte afin d'éviter que la macro aille chercher des liens externes au fichier en lui-même... J'ai également supprimer la macro de création du dossier qui comportait des informations particulières. Pour ton...