Erreur d’exécution ' 1004' la méthode range de l'objet _Global à échouer
Bonjour tout le monde,
Jai un petit soucis avec l'erreur d’exécution ' 1004'
la méthode range de l'objet _Global à échouer
Je vous présente ci-joint le fichier excel
Marc,
Bonjour,
Commence déjà par remplacer tes ZFA par ONE et ZFI par TWO
ainsi que Tout par TOUT
Bonjour à tous,
Ce sont des champs nommés ...
Regarde dans la menu Formules > Gestionnaire des noms.
ric
bonjour j ai tout changé mais ça ne marche pas
tu as changé quoi exactement ??????
Re,
Regarde dans la macro et regarde ma première réponse
j ai vue mais comment vous avec su que cest ca la faute ?????
Re,
ZFA , ZFI, TOUT sont des valeurs qui se trouvent dans ta liste déroulante
ONE, TWO, Proc sont les noms que tu leur a donné (Variables)
Dans ta macro du premier post, tu écris Range("ZFA") qui ne veut rien dire puisque c'est la valeur dans la cellule
alors que Range("ONE") désigne la cellule qui, si tu regarde dans le gestionnaire de noms
fait référence à : =DEMO!$A$4]
A4 étant bien la cellule qui contient ZFA
Idem pour Tout qui est écrit TOUT en nom de variable
ATTENTION, en VBA les majuscules et minuscules sont prisent en compte
merci beaucoup , jai compris c est dans gestion de nom
j ai un petit problème encore j ai deux fichier excel du coup je copie du premier vers le deuxieme mais enfaite je sais pas comment faire un chemin relatif moi et jai su ca quand je lai passé a un de mes potes et ca marche pas chez lui vue que le deuxieme fichier excel il a pas mis dans le mm endroit s'il vous plais pourai vous maider ???
voici le code
Sub Mise_à_jour()
Application.ScreenUpdating = False
Dim ZFA As Workbook
Dim PlgFE1 As Range
Dim PlgFE2 As Range
Dim Cel1 As Range
Dim Cel2 As Range
Workbooks.Open Filename:=ThisWorkbook.Path & "\COEDM\Requête_ZFA011.xls"
'teste si le classeur est ouvert...
On Error Resume Next
Set ZFA= Workbooks("ZFA.xls")
'...si non, l'ouvre
If Err.Number <> 0 Then Set ZFA = Workbooks.Open(chemin_globale)
'supprime le gestionnaire d'erreur
On Error GoTo 0
With ZFA.Worksheets("Feuil1"):
Set PlgFE1 = .Range(.Cells(3, 2), .Cells(.Rows.Count, 2).End(xlUp)):
End With
With Workbooks("ZFI.xlsm").Worksheets("Documents"):
Set PlgFE2 = .Range(.Cells(4, 4), .Cells(.Rows.Count, 4).End(xlUp)):
End With
For Each Cel1 In PlgFE1 'pour chaque cellule 1 dans fichier ZFA.Worksheets("Feuil1")
For Each Cel2 In PlgFE2 'pour chaque cellule 2 dans fichier ("ZFI.xlsm").Worksheets("Documents")
If Cel1.Value = Cel2.Value Then Cel2.Offset(, 1).Value = Cel1.Offset(, 2).Value
Next Cel2
Next Cel1
ActiveWorkbook.Close
Application.ScreenUpdating = True
End Sub