Comparer deux fichiers excel, VBA
Bonjour a tous,
je vous demande premièrement de m'excuser pour le manque d'accent a certain endroit, je vous écrit depuis l’étranger.
Voila j'ai un problème avec la fonction Workbooks.Open sur lequel je bloque depuis plusieurs jours c'est incompréhensible
Je souhaite ouvrir un fichier dont le nom est une variable mais rien ne marche : je vous met un bout du code ici en espérant qu'une âme généreuse pourra m'aider !
Sub ChoixFichier2()
Dim Fichier2 As Variant
Dim strRepFic2 As String
Dim wbFic1 As Workbook, wbFic2 As Workbook, wbFicAna As Workbook
Dim wsFic1 As Worksheet, wsFic2 As Worksheet, wsFicAna As Worksheet
Fichier2 = Application.GetOpenFilename("Tous les fichiers (*.*),*.*")
If Fichier2 = False Then Exit Sub
strRepFic2 = CStr(Fichier2)
Set wbFicAna = ThisWorkbook
Set wsFicAna = wbFicAna.ActiveSheet
Set wbFic2 = Workbooks.Open(Filename:=strRepFic2, UpdateLinks:=0) ]]] PROBLÈME ICI !!!
Set wsFic2 = wbFic2.Worksheets("rapport")Impossible de faire comprendre a la machine quel fichier ouvrir pourtant strRepFic2 est bien un string....
quand j`affiche la valeur de strRepFic2 dans une cellule, le chemin est le bon....
je précise que j'ai essaye plusieurs syntaxes avant de venir vous déranger !
Merci d'avance !
Abel
bonjour,
et ton problème se manifeste comment..
UPDATE :
J'ai réécrit le code plus simplement et bizarrement ça marche...
Si quelqu'un veut la correction écrivez moi
Bonjour,
ben oui, ça serait bien que tu mettes la réponse ici pour les futurs lecteurs qui ont le même type de problème.
eric
Alors, voila le fichier qui marche,
il permet de comparer deux fichiers que l"utilisateur sélectionne sur son ordinateur, puis créer un rapport
Le code n'est probablement pas le plus efficient mais ça marche plutôt bien !
Bonjour Abel,
je voudrais savoir quel sorte de fichiers Excel vous comparez avec ce comparateur, j'essaye de l'adapter sur mes fichiers mais j'ai des messages d 'erreur, merci de votre retour.
Je joint à ce message mes deux fichiers.
