Macro au fonctionnement aléatoire !

[guigui76]

Bonjour,
Je suis à la recherche d'une explication sur le fait que cette macro bloque ( 1 fois sur 2 )sur la recherche du fichier source.
le nom du fichier source ne change pas n'y les dossiers et que le réseaux est bien actif.
Pour moi cela reste un mystére.
Si vous avez une idée.
JE vous remercie.

'Transfert de l'onglet

ChDir "S:\Production_2_LSE\Production\Salle Contrôle\AG\archives\Archive oxydation\v2"
Application.DisplayAlerts = False
Workbooks.Open Filename[COLOR="Red"]:="vierge oxydation 2.0.xls"[/COLOR]Sheets("vierge ").Select
Sheets("vierge ").Copy Before:=Workbooks("oxydation2.0.xls").Sheets(1)
Windows("vierge oxydation 2.0.xls").Close
Application.DisplayAlerts = True

 

[mutzik]

Re : Macro au fonctionnement aléatoire !

bonjour,

si elle est vraiment écrite comme cela, il y a effectivement un problème

Workbooks.Open Filename:="vierge oxydation 2.0.xls"Sheets("vierge ").Select

Workbooks.Open Filename:="vierge oxydation 2.0.xls"
Sheets("vierge ").Select



serait mieux (sur deux lignes)

maintenant, je ne suis pas sur que le fonctionnement aléatoire de ta macro soit du à cela.
L'essai que tu peux faire :
- réduire (momentanément) la profondeur de ton chemin réseau en copiant le fichier sur
S:\Production_2_LSE
- éventuellement réduire la longueur du nom de fichier

 

[Pierrot93]

Re : Macro au fonctionnement aléatoire !

Bonjour Guigui,

avant de changer de répertoire, modifie peut être le lecteur, en supposant que la lettre soit toujours le "S" :

ChDrive "S"
ChDir "S:\Production_2_LSE\Production\Salle Contrôle\AG\archives\Archive oxydation\v2"

bon après midi
@+

Edition : bonjour Bertrand

 

[Efgé]

Re : Macro au fonctionnement aléatoire !

Bonjour guigui76, mutzik 🙂,Pierrot93
J'utilise une autre méthode, plus longue au niveau code mais qui fonctionne à chaque fois. Pour l'exemple ce serait :

Sub ouvrir()
Dim repertoire As String
Dim fichier As String
Dim Classeur As String
 
repertoire = "S:\Production_2_LSE\Production\Salle Contrôle\AG\archives\Archive oxydation\v2"
fichier = "vierge oxydation 2.0.xls"
Classeur = repertoire & "\" & fichier
 
Workbooks.Open Filename:=Classeur
Sheets("vierge ").Select
End Sub

Contrairement à mutzik, je mettrai tout le chemin depuis le serveur ( \\Serveur\niveau_1\niveau_2\....\ ) ce qui evitera le problème des lettres des raccourcis de l'explorateur.
Ce n'est pas forcément la panacée mais ça peut aider.
Cordialement

 

[guigui76]

Re : Macro au fonctionnement aléatoire !

Ok, je viens de rentrer du boulot, je regarde ceci et je ferai l'essai demain soir au travail.

 

[guigui76]

Re : Macro au fonctionnement aléatoire !

Voici la solution que j'ai employé en secour pouvez-vous me dire si cela vous semble correcte.

    [COLOR="Lime"]Workbooks.Open Filename:= _
        "S:\Production_2_LSE\Archive oxydation\v2\vierge oxydation 2.0.xls"[/COLOR]Application.DisplayAlerts = False
'Workbooks.Open Filename:="vierge oxydation 2.0.xls"
Sheets("vierge ").Select
Sheets("vierge ").Copy Before:=Workbooks("oxydation2.0.xls").Sheets(1)
Windows("vierge oxydation 2.0.xls").Close
Application.DisplayAlerts = True

Désolé pour le retard mais je n'ai pas peu avant.