Excel Vba Chercher dans un autre fichier
Résolu
Benjamin35008
Messages postés
12
Date d'inscription
Statut
Membre
Dernière intervention
-
Benjamin35008 Messages postés 12 Date d'inscription Statut Membre Dernière intervention -
Benjamin35008 Messages postés 12 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Excel Vba Chercher dans un autre fichier
- Fichier bin - Guide
- Comment réduire la taille d'un fichier - Guide
- Comment ouvrir un fichier epub ? - Guide
- Fichier rar - Guide
- Fichier .dat - Guide
6 réponses
Salut !
Si tu mettais ton fichier sur cjoint.com
et que tu nous donnes le lien
Ce serait plus simple pour nous de répondre.
une simple Recherchev pourrait peut-être suffire ...
Si tu mettais ton fichier sur cjoint.com
et que tu nous donnes le lien
Ce serait plus simple pour nous de répondre.
une simple Recherchev pourrait peut-être suffire ...
Bonjour,
essaies cette modif d'une partie de ta procédure
a quoi sert
il serait plus prudent de préciser le nom de l'onglet où tu as la cellule "O5"
nom1=sheets(....).range("O5")
essaies cette modif d'une partie de ta procédure
Application.ScreenUpdating = False Workbooks.Open Filename:="C:\Users\Ben\Desktop\Trash Test\copie expurgee de synthèse RNC 2005.xls" If Application.CountIf(Worksheets("Répertoire RNC").Range("C6:C1000"), nom1) > 0 Then 'C6:C1000 à adapter MsgBox "Le Numéro de lot " & nom1 & " existe déjà, merci d'augmenter l'indice avec la mollette " Else MsgBox "Le Numéro de lot " & nom1 & " n'existe pas, vous pouvez importer les données et enregistrer le RNC " End If ActiveWorkbook.Close
a quoi sert
Dim Wb As Excel.Workbook
il serait plus prudent de préciser le nom de l'onglet où tu as la cellule "O5"
nom1=sheets(....).range("O5")
Bonjour xkristi,
Pour des raisons de confidentialité je ne peux malheuresement pas vous transmettre ces classeurs, si ça ne tenait qu'à moi je le ferai sans aucun problême, mais l'entreprise est assez à cheval là dessus, et je serai passible de 5ans de cabane.
Merci michel-m, je vais essayer ça dès que je serai rentré chez moi.
le dim wb as Exce... c'est une ligne que je mets toujours en debut de code vba pour des soucis de comptabilité mais il peut s'avérer que ce soit inutile en effet.
Je vous tiens au courant et merci pour vos réactions
Pour des raisons de confidentialité je ne peux malheuresement pas vous transmettre ces classeurs, si ça ne tenait qu'à moi je le ferai sans aucun problême, mais l'entreprise est assez à cheval là dessus, et je serai passible de 5ans de cabane.
Merci michel-m, je vais essayer ça dès que je serai rentré chez moi.
le dim wb as Exce... c'est une ligne que je mets toujours en debut de code vba pour des soucis de comptabilité mais il peut s'avérer que ce soit inutile en effet.
Je vous tiens au courant et merci pour vos réactions
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Sub Macro4()
' Macro 4 Module 3 Fonction Tester le n° de RNC
' Macro enregistrée le 19/12/2009 par XXXXX
Dim Wb As Excel.Workbook
Dim Nom1 As String
Nom1 = Range("O5")
Application.ScreenUpdating = False
Workbooks.Open Filename:="C:\Users\Ben\Desktop\Versions finales\copie expurgee de synthèse RNC 2005.xls"
If Application.CountIf(Worksheets("Répertoire RNC").Range("C6:C1000"), Nom1) > 0 Then 'C6:C1000 à adapter
MsgBox "Le Numéro de lot " & Nom1 & " existe déjà dans la base Synthèse des RNC, merci d'augmenter l'indice avec la mollette "
Else
MsgBox "Le Numéro de lot " & Nom1 & " n'existe pas, vous pouvez importer les données et enregistrer le RNC "
End If
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub
' Macro 4 Module 3 Fonction Tester le n° de RNC
' Macro enregistrée le 19/12/2009 par XXXXX
Dim Wb As Excel.Workbook
Dim Nom1 As String
Nom1 = Range("O5")
Application.ScreenUpdating = False
Workbooks.Open Filename:="C:\Users\Ben\Desktop\Versions finales\copie expurgee de synthèse RNC 2005.xls"
If Application.CountIf(Worksheets("Répertoire RNC").Range("C6:C1000"), Nom1) > 0 Then 'C6:C1000 à adapter
MsgBox "Le Numéro de lot " & Nom1 & " existe déjà dans la base Synthèse des RNC, merci d'augmenter l'indice avec la mollette "
Else
MsgBox "Le Numéro de lot " & Nom1 & " n'existe pas, vous pouvez importer les données et enregistrer le RNC "
End If
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub