| Date | Auteur du sujet | Sujet | Extrait du message |
|---|
| 07/12/2017 à 10:49 | cytho450 | Classements de fichiers Word en fonction d'une liste Excel | Je pense pouvoir t'aider mais avant d'aller plus loin, peux-tu préciser les points suivants : - Les noms des docs Word à ventiler contiennent-ils le nom des personnes présentes dans l'EXCEL de RDV... |
| 07/12/2017 à 10:39 | haonam | Extraction de données depuis plusieurs fichier Excel | Hoanam, Si ton pb est toujours d'actualité : Je te propose de faire ta boucle sur les objets files de FileSystemObject (tu dois référencer "Microsoft Scripting Runtime") : Le code se présente alors comme : Dim oWB As Excel.Workbook Dim oFS As New Scripting.FIleSystemObject Dim oFolder As Scripting.F... |
| 06/12/2017 à 17:15 | nonopince | Les 2 macro ne lancent pas quant elles sont combinés | N'oublie pas de changer l'extension en xlsx à la place de xls dans : vFilename = Application.GetSaveAsFilename(filefilter:="Microsoft Excel Workbooks,*.xlsx", _ Title:="Copie du classeur sans les macros")... |
| 06/12/2017 à 17:08 | nonopince | Les 2 macro ne lancent pas quant elles sont combinés | Je te propose le code suivant : Sub SaveWithoutMacros() 'But : Pour créer une copie du classeur actif sans macros 'NOTER SVP : Vous devez aller dans Outils, Références et cocher 'Microsoft Visual Basic for Applications Extensibility library Dim vFilename As Variant Dim wbActiveBook As Workbook Dim V... |
| 06/12/2017 à 14:46 | Houn54 | Modif les contenus des fiche | Houn54, Désolé mais je ne comprends pas ce que tu veux faire. Bye... |
| 06/12/2017 à 14:43 | chm92 | Mise en forme conditionnelle et arrondi de calcul | Chm92, Je suggère d'ajouter une cellule avec la formule =ARRONDI(TVA+HT;2) et de baser la mise en forme conditionnelle sur cette cellule... |
| 06/12/2017 à 14:01 | Houn54 | Modif les contenus des fiche | Houn54, Oui, avec cette version du classeur, on peut ajouter des fonctions. Peux-tu décrire le plus exactement possible ce que tu voudrais obtenir comme fonction... |
| 06/12/2017 à 13:50 | Houn54 | Modif les contenus des fiche | Houn54, Le code VBA de ton classeur est protégé par un mot de passe. Impossible de le modifier en l'état. Cordialement Gérard... |
| 06/12/2017 à 13:05 | Sparkletof | Impression de plusieurs feuilles | SKF, A quel endroit as-tu collé le code? Cordialement Gérard... |
| 06/12/2017 à 12:43 | Houn54 | Modif les contenus des fiche | Houn54, Ta question est curieuse...l'as-tu posée au développeur de cette appli? Cordialement Gérard... |
| 06/12/2017 à 12:35 | Kitesurf | Problème capacité Variables Integer | KiteSurf, J'ai fait un premier test sur ton classeur et n'ai pas obtenu de message d'erreur. Sur quelles lignes du code ça plante chez toi? Cordialement, Gérard... |
| 06/12/2017 à 11:25 | Sparkletof | Impression de plusieurs feuilles | Quelques pistes à te proposer : -Exporter en 3 PDF les feuilles : Set oSheet1 = ThisWorkbook.Worksheets(1) Set oSheet2 = ThisWorkbook.Worksheets(2) oSheet1.ExportAsFixedFormat xlTypePDF, "DOC1.Pdf", , , , 1, 3, False oSheet2.ExportAsFixedFormat xlTypePDF, "DOC2.Pdf", , , , , , False oSheet1.ExportAs... |
| 06/12/2017 à 11:14 | salsero75014 | Mettre en boucle le numero de colonne dans uen recherchev | Essaie ceci : Cells(6, i).FormulaR1C1 = "=IFERROR(VLOOKUP(RC2,'[Copie de P&L Nov_Valeurs-1.xlsx]Feuil1'!C1:C30," & j & ",FALSE),"""" COrdialement Gérard... |
| 06/12/2017 à 10:26 | saubin | Macro recherche dans différents fichiers si critères remplis | Tu as visiblement surmonté le problème initial. Oui, de mon point de vue, il y a plus simple et je n'aurais pas procédé comme toi. L'essentiel étant que toi, tu maitrises ce que tu fais. Bon courage, Gérard... |
| 05/12/2017 à 18:10 | saubin | Macro recherche dans différents fichiers si critères remplis | Si je comprends bien, tu as un seul EXCEL par mois par agent? Peux-tu être plus explicite sur ce qui ne marchait pas dans 1ère proposition que je t'ai faite ? Cordialement, Gérard... |
| 05/12/2017 à 17:55 | JeanBoutin | Afficher la date dans l'intitulé du fichier que l'on enregistre sous | Jean, Lorsque je compile ton code, je n'obtiens pas ce message. Es-tu sous Windows ou MACOS? Autre idée : essaye : dj = format(now(), "yyyymmdd") Cordialement, Gérard... |
| 05/12/2017 à 17:39 | JeanBoutin | Afficher la date dans l'intitulé du fichier que l'on enregistre sous | J'ai en partie testé ton code et il me semble correct sauf le Set dj = Format(Date,"yyyymmdd") à remplacer par dj = Format(Date,"yyyymmdd") et dans les saveas, de spécifier le format puisque tu es en EXCEL 2007 et que tu veux sauvegarder en format antérieur (constante xlExcel9795?) . Sinon, je ne vo... |
| 05/12/2017 à 17:17 | Dilettante | Calculs et checkbox sous VBA | Je te propose de remplacer la fonction "Worksheet_Change" par : Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If CheckBox4 Then [c10] = [c9] * 60 [c12] = [c11] * 60 Else [c9] = [c8] * 60 End If Application.EnableE... |
| 05/12/2017 à 16:30 | nonopince | Les 2 macro ne lancent pas quant elles sont combinés | Nonopince, Pourquoi ne pas tout simplement utiliser devant ton "savecopyas" l'instruction: Application.DisplayAlerts = False Bien cordialement, Gérard... |
| 05/12/2017 à 15:47 | Landry85 | Copier une partie de cellule | En B, tape une formule du genre : =GAUCHE(A1;TROUVE("(";A1;1)-1) en remplaçant A par l'adresse de la cellule contenant le texte à extraire. Bien cordialement Gérard... |
| 05/12/2017 à 15:39 | JeanBoutin | Afficher la date dans l'intitulé du fichier que l'on enregistre sous | Ce n'est pas la fonction "format" qui pose problème dans tes noms de classeur. As-tu vérifier que les dossiers existent et sont accessibles? Cordialement Gérard... |
| 05/12/2017 à 15:07 | salpetier | Copie cellule des colonnes H et M à T si cellule colonne I=code nouveau | Ma proposition en P.J. Cordialement, Gérard... |
| 05/12/2017 à 13:13 | saubin | Macro recherche dans différents fichiers si critères remplis | Saubin, Ma proposition en P.J. Pour que ça marche: il faut indiquer le chemin complet du dossier contenant les sous-dossiers "jj_mm_aa" dans le volet "Param". il faut que tu références "Microsoft Scripting Runtime" dans VB/outils/Références . Cordialement, Gérard... |
| 05/12/2017 à 11:20 | saubin | Macro recherche dans différents fichiers si critères remplis | Petite précision : tu indiques qu'il faut récupérer les plages dans les excels : c'est OK pour les plages E et F mais la plage A est vide dans l'excel que tu fournis. Cordialement Gérard... |
| 05/12/2017 à 09:30 | Souf | Transfert de automatique de donnés | Compte-tenu des contraintes que tu indiques, j'avoue ne pas connaître de moyen pour sausir les ajouts à partir d'une feuille Excel. Désolé, Cordialement, Gérard... |
| 04/12/2017 à 17:48 | Souf | Transfert de automatique de donnés | Souf, En P.J. une proposition avec formulaire et code VBA. Cordialement Gérard... |
| 04/12/2017 à 14:32 | Souf | Transfert de automatique de donnés | Avec code VBA ou bien? Cordialement, Gérard... |
| 28/11/2017 à 18:06 | chicoe | Colonne | Je te propose : =SUPPRESPACE((STXT(A1;TROUVE("/";A1;1)+1;4))) Bien cordialement GVS... |
| 28/11/2017 à 17:15 | tizi02p | Etirer une cellule avec une macro | Si j'ai bien compris ton pb, je te propose : Option Explicit Sub Main_Process() Const cColFirst = 30 ' A adapter suivant l'endroit où l'on veut le résultat Const cNbIterations = 99 Dim i As Integer, j As Integer, k As Integer, l As Integer, m As Integer Dim lColori As Long, lColorj As Long, lColork... |