UPDATE (SELECT [Feuil1$].NOM
FROM [Feuil1$] IN 'C:\Myrep\DavidMM\Planning Paris octobre 2022.xlsm'[excel 12.0;HDR=Yes;])
AS frm INNER JOIN [Remplace$] ON frm.NOM = Remplace.N_Avant
SET frm.nom = [Remplace$].[N_Apres];
Sub Maj(Fichier As String)
Dim Cn As Object
Dim Sql As String
Set Cn = CreateObject("AdoDb.connection")
Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Fichier & ";Extended Properties=""Excel 12.0;HDR=YES;"""
With Sheets("Remplace").Range("A1").CurrentRegion
For i = 2 To .Rows.Count
Sql = "UPDATE [Feuil1$] " & _
" SET [NOM] = '" & Replace(.Cells(i, "B"), "'", "''") & "'" & _
" Where [NOM]= '" & Replace(.Cells(i, "A"), "'", "''") & "'"
Cn.Execute Sql
Next
End With
Cn.Close
End Sub
Boujour @DavidMM ,@Staple1600 ,@dysorthographieEn fait je pense que la version que j'ai posté est grandement suffisante car je ne pense pas que notre ami doit perpétrer cette action journellement !
Je suis juste frustré de ne pas avoir fait mieux !
Je ne baisse pas les bras et je vais investiguer
Merci à vous tous pour le travail effectué. Juste que je suis novice et un peu perdu, surtout quand j'ai entre 200 et 250 fichiers à ouvrir et à modifier un par un.Boujour @DavidMM ,@Staple1600 ,@dysorthographie
@dysorthographie : En arrière plan, j'attends la suite
Bonne journée
je voulais m'épargner d'ouvrir et de refermer connexion ADODB en utilisant ThisWorkbook.FullNameMerci à vous tous pour le travail effectué. Juste que je suis novice et un peu perdu, surtout quand j'ai entre 200 et 250 fichiers à ouvrir et à modifier un par un.
Merci merci et merci ! je vais tester
Cn.Execute = "UPDATE [Feuil1$] " & _
" SET [NOM] = '" & Replace(.Cells(i, "B"), "'", "''") & "'" & _
" Where [NOM]= '" & Replace(.Cells(i, "A"), "'", "''") & "'"