Contenu récent par job75

Avec la méthode Dir pas de problème non plus et c'est plus rapide, merci de tester le fichier .xlsm du post #101. J'avais bien vu votre post #95 mais pas répondu. Car il n'y a aucun problème pour mettre des boutons ActiveX ou de formulaire : sur mon fichier il y a 2 boutons !!!

Bonjour le forum, Pascal cette manière de faire serait inadmissible pour un débutant mais que dire pour quelqu'un inscrit depuis 2005 ? Je signale le post #1, j'espère qu'un modérateur va intervenir. A+

Bonjour le forum, Avec le code précédent la macro CheminsDossiersRecursive beugue s'il y a des fichiers dans les dossiers. On l'évitera simplement avec On Error Resume Next (pas besoin d'utiliser GetAttr...) : On Error Resume Next For Each e In mem CheminsDossiersRecursive e Next e A+

Bonsoir le forum, Comme cela a été dit la méthode avec fso est nettement moins rapide que la méthode avec Dir, voici donc le code avec Dir : Dim a$(), n& 'mémorise les variables Sub CheminDossierGeneral() With Application.FileDialog(msoFileDialogFolderPicker) .Title = "Sélectionnez le...

Dans ce cas autant mettre le chemin d'accès complet en colonne A, le code est plus simple : Option Compare Text 'la casse est ignorée Dim chemin$, fso As Object, a$(), n& 'mémorise les variables Sub CheminDossierGeneral() With Application.FileDialog(msoFileDialogFolderPicker) .Title =...

Dans toutes les solutions que j'ai données le nom du dossier n'est pas précédé du chemin d'accès. En faisant un double-clic le chemin (après celui en B10) s'affiche à droite, il peut y en avoir plusieurs.

Que voulez-vous dire ? Vous avez lu mes remarques 1) 2) 3) du post #71 ?

Bon j'ai complètement revu le code : Option Compare Text 'la casse est ignorée Dim chemin$, fso As Object, a$(), n& 'mémorise les variables Sub CheminDossierGeneral() With Application.FileDialog(msoFileDialogFolderPicker) .Title = "Sélectionnez le Dossier Général" If .Show = False Then...

Vous n'avez pas dû adapter le code correctement, testez avec le fichier joint. Il faut bien sûr nommer "A-85" le 1er dossier.

Ma macro suppose que le Dossier général et le fichier Exemple.xlsm sont dans le même dossier. Donc si le Dossier général est dans "F:\House\A-85" il faut y placer aussi Exemple.xlsm.

Je complète le code de mon post #49 avec celui-ci qui permet de lister (sans doublons) les dossiers en colonne A : Option Compare Text 'la casse est ignorée Dim fso As Object, chemin$, a$(), n& 'mémorise les variables Sub RemplirColonneA() If fso Is Nothing Then Set fso =...

Bonsoir Magic_Doctor, 1-1 J'utilise vbWhite qui traite de la même manière les cellules incolores et les cellules colorées en blanc. 1-2 La fonction renvoie un espace qui n'est pas visible, cela évite de faire colorer en vert la police par la MFC. 2 Chez moi sur Excel 2019 il n'y a pas de @, ce...

Bonsoir à tous, Je n'ai pas le temps d'étudier les solutions proposées mais je les trouve bien compliquées. Celle-ci est simple, le code de la feuille du fichier .xlsm : Option Compare Text 'la casse est ignorée Dim fso As Object, chemin$ 'mémorise les variables Private Sub...

La suppression des Shapes avec la méthode de sylvanu ne se fait pas pour la raison suivante : - le nom de l'image affiché en haut à gauche est Image 1, Image 2, Image 3... la langue de l'interface Excel est utilisée - alors que le nom VBA (Name) est Picture 1, Picture 2, Picture 3... l'anglais...

Bonjour le forum, Je reviens ici par hasard et m'aperçois que j'utilise : Set s = .Shapes.AddPicture(chemin & fichier, msoFalse, msoTrue, 0, .Rows(lig).Top, 0, 0) alors qu'il faut utiliser -1 dans : Set s = .Shapes.AddPicture(chemin & fichier, msoFalse, msoTrue, 0, .Rows(lig).Top, -1, -1) pour...