Incomprehension totale !

[guenfood]

Bonjour,

J'ai un fichier excel avec la macro suivante :

Sub Macro1()
Dim myarray
Dim chemin As String
 myarray = Array('Couv', 'Vrai')
ChDir ThisWorkbook.Path
For L = 0 To 1
Workbooks.Open FileName:=myarray(L) & '.xls'
With Workbooks(myarray(L) & '.xls').Sheets(1)
derlgn = .Range('A65536').End(xlUp).Row
Maplage = .Range('A12:J' & derlgn).Select
Selection.Copy
End With
Application.ScreenUpdating = False
With Workbooks('pointage.xls').Sheets(1)
         .Activate
derlgn = .Range('A65536').End(xlUp).Row
         .Range('A' & derlgn).Select
 ActiveSheet.Paste
    Application.CutCopyMode = False
    Columns(6).ClearContents
     Range('F1').Select
    ActiveCell.FormulaR1C1 = '=IF(RC[-1]<0,''-'',''+'')'
    derlgn = .Range('E65536').End(xlUp).Row
    Range('F1').Select
    Selection.AutoFill Destination:=Range('F1:F' & derlgn)
    
End With
With Workbooks(myarray(L) & '.xls')
         .Saved = True
         .Close
End With
Next
Application.ScreenUpdating = True
Cells.Select
    Selection.Sort Key1:=Range('M1'), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

Lorsque ce fichier (avec les autres fichiers concernés) sur mon disque dur, pas de problème, cela s'exécute nickel.
Par contre, dès que je le place sur le serveur (toujours avec les fichiers concernés) dans un dossier déterminé, j'ai le message d'erreur 'Erreur d'exécution 1004. 'fichier.xls' introuvable.....' et cela me surligne cette ligne

Workbooks.Open FileName:=myarray(L) & '.xls'

Pourquoi cela ne fonctionne pas sur le serveur auquel l'accès n'est pas bloqué ?

 

[Hervé]

Bonjour guenfood, le forum

Une piste de réflexion :

As tu essayé en indiquant en dur dans ton code le chemin complet du répertoire ou ce trouve tes fichiers, par exemple :

Dim chemin As String

chemin = 'H:\\TOTO\\'

Workbooks.Open Filename:=chemin & myarray(L) & '.xls'

Je pense que ton code ne trouve pas le lecteur voulu, car chdir ne modifie pas le lecteur courant.

salut

 

[chris]

Bonjour
Pour compléter, il y a une commande ChDrive.
A toi d'extraire la lettre du path pour l'utiliser avec cette commande.