Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Macro au fonctionnement aléatoire !

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion guigui76
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
G

guigui76

XLDnaute Occasionnel
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.

Code: 
'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
 
Trier par date Trier par votes
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
 
Vote positif 0 Vote négatif
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" :

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

bon après midi
@+

Edition : bonjour Bertrand
 
Vote positif 0 Vote négatif
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 :
Code: 
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
 
Vote positif 0 Vote négatif
Re : Macro au fonctionnement aléatoire !

Voici la solution que j'ai employé en secour pouvez-vous me dire si cela vous semble correcte.
Code: 
    [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.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

R
  • Question Question
XL 2010 VBA : consolidation
Réponses
2
Affichages
988
Rousseau Benoit
R
M
  • Question Question
Consolider classeur avec actualisation possible
Réponses
2
Affichages
2 K
Mathieu34
M
J
  • Question Question
XL 2010 VBA Boite de dialogue Ouvrir et Enregistrer sous
Réponses
2
Affichages
6 K
jl456
J
N
  • Question Question
Booster une macro
Réponses
5
Affichages
3 K
Staple1600
  • Question Question
Excel Transfert de feuille et module VBA (La Macro Fonctionne) mais...
Réponses
7
Affichages
5 K
kjin
K
G
  • Question Question
copie et archivage semi automatique
Réponses
0
Affichages
598
guigui76
G
A
  • Question Question
MACRO désactivée sur un serveur
2
Réponses
15
Affichages
2 K
mutzik
J
  • Question Question
Raccourcir la durée d'ouverture et d'enregistrement d'une macro ?
Réponses
3
Affichages
2 K
Compte Supprimé 979
C
M
[REF] Wiki 1 de MichelXld (Généralités Excel)
Réponses
6
Affichages
60 K
Le_Phénomène
M
[REF] Wiki 3 de MichelXld (Piloter d'autres applications depuis Excel)
Réponses
0
Affichages
81 K
MichelXld
M
M
[REF] Wiki 5 de MichelXld (Formules, Audits de formules, Répertoires, Fichiers)
Réponses
0
Affichages
47 K
MichelXld
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…