probleme adressage

judoka0209 · 27 Juin 2018

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]

Staple1600 · 27 Juin 2018

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 · 27 Juin 2018

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 · 27 Juin 2018

module 3

Staple1600 · 27 Juin 2018

Re

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

judoka0209 · 27 Juin 2018

ah la je seche

Staple1600 · 27 Juin 2018

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

judoka0209 · 27 Juin 2018

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

judoka0209 · 28 Juin 2018

j'ai reussi ton bbcode

Staple1600 · 28 Juin 2018

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 · 28 Juin 2018

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

job75 · 28 Juin 2018

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.

probleme adressage

judoka0209

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

judoka0209

XLDnaute Occasionnel

Pièces jointes

judoka0209

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

judoka0209

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

judoka0209

XLDnaute Occasionnel

judoka0209

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

judoka0209

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Discussions similaires