Macro accés chemin

[Jum_o]

Bonjour à tous,

Merci avant tout de votre aide. J'ai crée une macro sur un fichier excel me permettant d'importer des commentaires d'autres fichiers. Le problème aujourd'hui ce que maintenant je souhaiterais importer des commentaires de fichiers que ne sont pas sur le meme serveur.

For k = 1 To 40

chemin = ThisWorkbook.Sheets("admin").Cells(k, 2).Value

nomFic = ActiveWorkbook.Path & chemin
Set wrk = Workbooks.Open(nomFic)


wrk.Activate


For i = 1 To wrk.Sheets.Count

'sélection de l'onglet
'_____________________

nom_onglet = wrk.Sheets(i).Name
wrk.Sheets(nom_onglet).Select

If (nom_onglet = "commentaires" Or nom_onglet = "facteur limitant" Or nom_onglet = "NOK") Then

ind = ind - 1

If (nom_onglet = "facteur limitant") Then
If (ThisWorkbook.Sheets("admin").Cells(k, 3).Value = "mono") Then
ThisWorkbook.Sheets("synthèse").Cells(44 + k + 1, 2).Value = ""
ThisWorkbook.Sheets("synthèse").Cells(44 + k + 1, 2).Value = wrk.Sheets(nom_onglet).Cells(33, 3).Value
End If
End If



Je crois que l'origine de mon problème vient de ce bout de code:

nomFic = ActiveWorkbook.Path & chemin
Set wrk = Workbooks.Open(nomFic)


Chemin correspond donc à l'adresse des différents fichiers sur le serveur.
J'espere avoir été suffisamment clair.

Merci de vos retours

Jum_o

 

[Compte Supprimé 979]

Re : Macro accés chemin

Bonjour Jum_o

Dans ton classeur ou se trouve la macro, tu as une feuille "admin"

For k = 1 To 40
chemin = ThisWorkbook.Sheets("[COLOR=blue][B]admin[/B][/COLOR]").Cells(k, 2).Value
nomFic = ActiveWorkbook.Path & chemin
Set wrk = Workbooks.Open(nomFic)

Dans cette feuille tu as 40 lignes avec les noms de tes feuilles, il suffit de mettre en plus le chemin d'accès (exemple : \\MonServeur\MonDossier\MonFichier.xls)

Ensuite tu remplaces tes lignes de code

For k = 1 To 40
' Récupérer le chemin ainsi que le nom du fichier
VFicPath = ThisWorkbook.Sheets("[COLOR=blue][B]admin[/B][/COLOR]").Cells(k, 2).Value
Set Wrk = Workbooks.Open(VFicPath)

Voili, voilà 😉

 

[Dan]

Re : Macro accés chemin

Bonjour,

Sans voir ton fichier essaye :

Dim chemin as string, nomfic as string
chemin = ThisWorkbook.Path
nomfic = Sheets("admin").Cells(1, 2) & ".xls"
Workbooks.Open Filename:=chemin & "\" & nomfic
For i = 1 To nomfic.Sheets.Count
....

Amicalement
@+ Dan

 

[Jum_o]

Re : Macro accés chemin

Merci BrunoM45 de ta réponse,

le chemin d'accés je l'ai déja rajouté mais comme c'est sur un autre serveur j'ai l'impression que ca bugue a ce niveau la.
quand j'active mes macros et que le bug est détectée, quand je regarde le code en débbogage, en mettant mon curseur sur nomfic, j'obtiens le lien de mon premier serveur, et pas celui du nouveau.

sur ma feuille chemin , pour mon premier serveur, j'ai juste ceci:
\dossier1\dossier2\fichier.xls
je n'ai donc pas toute l'adresse et ca marche trés bien. En voulant rajouter une nouvelle adresse sur un autre serveur, je prends la précaution de mettre tte l'adresse(\\serveur\dossier3\dossier4\fichier.xls) et ca ne marche pas. Est-ce normal?

merci de vos réponses

Jum_o

 

[Jum_o]

Re : Macro accés chemin

Dan,

un message d'erreur apparait comme quoi l'adresse de mon premier chemin est inconnue...alors qu'il marche à l'origine.

Jum_o

 

[Compte Supprimé 979]

Re : Macro accés chemin

Re,

Dans le code que j'ai mis plus haut, le chemin d'accès complet est récupéré dans les lignes 1 à 40 de la colonne B

Après, vérifie que tu peux bien accéder à ton répertoire : \\serveur\dossier3\dossier4\fichier.xls
Via l'explorateur

A+

 

[Jum_o]

Re : Macro accés chemin

Bonjour,

Merci BrunoM45 ça marche!!

@+

Jum_o