probleme adressage

[judoka0209]

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")

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]

 

[Staple1600]

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)

 

[judoka0209]

le fichier "ep" ce trouve ici \\atlas.edf.fr\CO\45dam-dpn\restreint.007\ps.004\Pap_pcp\LISTES\Planning_EP.xlsm
mais ne s'ouvre pas avec la macro

 

[judoka0209]

module 3

 

[Staple1600]

Re

Sauf erreur de ma part, rien dans ta macro "ne sert à ouvrir" un fichier.

 

[judoka0209]

ah la je seche

 

[Staple1600]

Re

Ta macro définie deux plages de cellules qui laissent entendre que les classeurs sont déjà ouverts, non ?

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

 

[judoka0209]

non ils doit s'ouvrir avec mon fichier mais je sais pas comment

 

[judoka0209]

j'ai reussi ton bbcode 🙂

 

[Staple1600]

Re

C'est beaucoup plus lisible, non ? 😉

Sinon: quoi non ??

Je te dis juste que telle qu'est écrite la macro ep_33111, il n'y a pas de dedans de ligne VBA qui a pour action d'ouvrir un fichier Excel.

 

[judoka0209]

c'est bon j'ai trouvé une alternative
j'ouvre le fichier en amont comme ca plus de probleme

 

[job75]

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.