probleme adressage

judoka0209

XLDnaute Occasionnel
bonjour ma macro ne va pas ouvrir mon fichier à l'adresse suivante
\\atlas.edf.fr\CO\45dam-dpn\restreint.007\ps.004\Pap_pcp\LISTES\Planning_EP.xlsm").Sheets("ep").Range("F7:BE7")

VB:
Sub ep_33111()
'equipe A
Dim plage1 As Range, plage2 As Range, jour, c As Range, j As Variant
Set plage1 = Workbooks("\\atlas.edf.fr\CO\45dam-dpn\restreint.007\ps.004\Pap_pcp\LISTES\Planning_EP.xlsm").Sheets("ep").Range("F7:BE7")
Set plage2 = Workbooks("\\atlas.edf.fr\CO\45dam-dpn\restreint.007\ps.004\Pap_pcp\LISTES\Planning_EP").Sheets("ep").Range("F2:BE2") 'ligne 2 et non pas 5
jour = Array("jeu") 'liste à adapter
With Application
.ScreenUpdating = False
Range("C13:NC13").ClearContents
For Each c In Range("C13:NC13")
If UCase(c.Offset(-8)) = "A" Then 'M,A,N
If IsNumeric(.Match(c.Offset(-11), jour, 0)) Then
i = .Match(c.Offset(-10), plage2)
If IsNumeric(i) Then If UCase(plage1(i)) = "A" Then c = 6 'equipe
End If
End If
Next
End With
End Sub
merci[/CODE]
 
Dernière édition:

Staple1600

XLDnaute Barbatruc
Bonjour le fil, le forum

@judoka0209
Pour infos
Les balises BBCODE idoines rendent les messages plus agréables à lire.
https://www.excel-downloads.com/help/bb-codes/
cf la balise [CODE=vb]code de la macro[/CODE] qui permet de formater les macros VBA dans les messages sur le forum.

Et sinon quelle est la question ?
Car telle qu'actuellement rédigée, la question n'est pas très claire (en tout cas pour moi)
 

Staple1600

XLDnaute Barbatruc
Re

Ta macro définie deux plages de cellules qui laissent entendre que les classeurs sont déjà ouverts, non ?
VB:
Set plage1 = Workbooks("\\atlas.edf.fr\CO\45dam-dpn\restreint.007\ps.004\Pap_pcp\LISTES\Planning_EP.xlsm").Sheets("ep").Range("F7:BE7")
Set plage2 = Workbooks("\\atlas.edf.fr\CO\45dam-dpn\restreint.007\ps.004\Pap_pcp\LISTES\Planning_EP").Sheets("ep").Range("F2:BE2") 'ligne 2 et non pas 5

D'ailleurs pour plage2, on devrait plutôt lire
Set plage2 = Workbooks("\\atlas.edf.fr\CO\45dam-dpn\restreint.007\ps.004\Pap_pcp\LISTES\Planning_EP.xlsm").Sheets("ep").Range("F2:BE2") 'ligne 2 et non pas 5
 

job75

XLDnaute Barbatruc
Bonjour judoka0209, JM,

Pas croyable, 11 posts pour en arriver là...

Il suffit de rechercher Workbooks sur le web pour savoir que cela est la collection des fichiers Excel ouverts.

Et quand on écrit Workbooks(XXX) XXX doit être le nom d'un de ces fichiers, sans le chemin d'accès.

Bonne journée.
 

Statistiques des forums

Discussions
311 720
Messages
2 081 909
Membres
101 836
dernier inscrit
karmon