Se connecter avec
S'enregistrer | Connectez-vous

Declaration de fichier vba

Dernière réponse : dans Programmation

Bonjour,
J'ai un pb avec VBA
J'ai un fichier Facture d'ou je lance une procedure de mise à jour avec un autre fichier excel Liste_Facture ..
Le PB est que je n'arrive pas à ouvrir le fichier j'ai un code 1004 de déclarion ..
J'essaie tout et cela bug

Je dois ensuite faire une recherche et remplir Facture avec les infos de Liste_facture , mais la je plante..

J'ouvre word met à jour le signet avec excel , mais de excel à excel je !!!!!

Autres pages sur : declaration fichier vba

Lassé par la pub ? Créez un compte
Expert Programmation

Salut,

Et si tu nous proposais le code de la procédure qui plante ?
Ensuite, tu nous dirais à quelle ligne ça plante, et quel est exactement le message d'erreur....
(Attention de bien lire le règlement pour ne pas oublier de bien présenter ton code ;)  )

Bonjour,
J'ai vu que j'avais oublié un \ dans mon chemin après plusieurs heures de recherches..

Le problème ensuite était de comparer les 2 fichiers les pointeurs ne marchaient pas ..
Je suis donc passer à un système d'automation qui copie la feuille du fichier Liste_facture dans Factures et ensuite les comparaisons se font basiquement
avec un RechercheV ..
Je sais pas très VBA mais il fallait que je speed donc j'ai trouvé un système qui fait l'affaire..

Je reviendrai avec mes codes car j'ai besoin de savoir ou je M. pour la prochaine fois.

Merci de votre support .
Cordialement
Dominic

Voici comment j'ai résolu mon PB, me dire ce que vous en pensez !!
Je ne sais si je peux faire la même chose sans ouvrir Liste_Facture.xls
Vous verrez des ' sur les messages box c'est ce qui ma permis d'avancer pas à pas
merci pour ce cite !!!

Private Sub Mise_à_Jour_Click()
Dim wsList As Worksheet
Dim Numfact As Range
Dim MyFact As Workbook
Dim MyNumfact As Range
Dim lettre As Range

'mise en place des pointeurs sur fichier Liste facture
Set wsList = ThisWorkbook.Worksheets("Factures")
Set Numfact = wsList.Range("A3")
Set MyFact = Workbooks.Open("E:\rec_vba\Liste_Facture.xls")
'MsgBox "The name of the active sheet is " & ActiveSheet.Name
Set MyNumfact = Worksheets(1).Range("a2")


Do While Numfact.Value <> ""
Do While MyNumfact.Value <> ""
If MyNumfact.Value <> Numfact.Value Then
'MsgBox Numfact.Value
'MsgBox MyNumfact.Value
Set MyNumfact = MyNumfact.Offset(1, 0)
Else
'MsgBox " trouver et à remplacer " & Numfact.Value
Numfact.Offset(0, 13).Value = MyNumfact.Offset(0, 8).Value
Exit Do
End If
Loop


Set MyNumfact = Worksheets(1).Range("a2")
Set Numfact = Numfact.Offset(1, 0)
Loop
MsgBox " Fin "
'MsgBox Numfact.Value
'MsgBox MyNumfact.Value


End Sub
Lassé par la pub ? Créez un compte