probleme sur fichier ouvert [Résolu]

deyan92 · 17/11/2011, 12h39

Bonjour,

J'ai un petit probleme avec ma macro Excel pour traiter une information.
Dans ma macro j'ouvre un fichier et je viens recopier une ligne que l'utilisateur indique avant. Jusque la tout va bien, mais j'ai un probleme quand le fichier est deja ouvert. Je souhaite verifier si le fichier "Planning Clip.xls" est ouvert et si il est ouvert mettre son nom dans un workbooks que j'ai appelé WorkBookData

Sans le traitement de la partie fichier ouvert Oui/non voici ma macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Set WorkBookData = Application.Workbooks.Open("\\chemin reseau\Planning Clip.xls")
WorkBookData.Sheets("Production CLIP").Select

Merci de votre aide

Ormonth · 17/11/2011, 12h46

Bonjour,

Vois ce fil :
Vérifier si un classeur n’est pas ouvert, sur ce poste, un autre poste ou une autre instance

cordialement,

Didier

deyan92 · 17/11/2011, 15h31

Merci

En effet j'ai un début de solution, ce qui me manque encore c'est si le fichier est ouvert reprendre la main sur le fichier ouvert pour aller chercher la ligne

Merci de votre efficacité

Ormonth · 17/11/2011, 15h57

ainsi ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set WorkBookData = Nom du fichier ouvert

deyan92 · 17/11/2011, 16h34

Merci de votre aide

17/11/2011, 12h46	#2
Ormonth Rédacteur Didier GONARD Formateur Développeur Office - indépendant Inscription : février 2008 Messages : 2 353 Détails du profil Informations personnelles : Nom : Didier GONARD Localisation : France, Loire Atlantique (Pays de la Loire) Informations professionnelles : Activité : Formateur Développeur Office - indépendant Informations forums : Inscription : février 2008 Messages : 2 353 Points : 4 685 Points : 4 685	Bonjour, Vois ce fil : Vérifier si un classeur n’est pas ouvert, sur ce poste, un autre poste ou une autre instance cordialement, Didier __________________ Didier Gonard Ps : Pour noter positivement ou négativement un post, vous pouvez cliquer sur les pouces en bas à droite ! Tutoriels : Voir la liste de mes tutoriels et mon site pro sur ma Page DVP N'oubliez pas de mettre : ..quand c'est le cas !
	00

17/11/2011, 15h31	#3
deyan92 Invité de passage Ingénieur qualité méthodes Inscription : novembre 2011 Messages : 3 Détails du profil Informations personnelles : Sexe : Localisation : France, Hauts de Seine (Île de France) Informations professionnelles : Activité : Ingénieur qualité méthodes Secteur : Transports Informations forums : Inscription : novembre 2011 Messages : 3 Points : 1 Points : 1	Merci En effet j'ai un début de solution, ce qui me manque encore c'est si le fichier est ouvert reprendre la main sur le fichier ouvert pour aller chercher la ligne Merci de votre efficacité
	00

17/11/2011, 15h57	#4
Ormonth Rédacteur Didier GONARD Formateur Développeur Office - indépendant Inscription : février 2008 Messages : 2 353 Détails du profil Informations personnelles : Nom : Didier GONARD Localisation : France, Loire Atlantique (Pays de la Loire) Informations professionnelles : Activité : Formateur Développeur Office - indépendant Informations forums : Inscription : février 2008 Messages : 2 353 Points : 4 685 Points : 4 685	ainsi ? Code : Sélectionner tout - Visualiser dans une fenêtre à part Set WorkBookData = Nom du fichier ouvert __________________ Didier Gonard Ps : Pour noter positivement ou négativement un post, vous pouvez cliquer sur les pouces en bas à droite ! Tutoriels : Voir la liste de mes tutoriels et mon site pro sur ma Page DVP N'oubliez pas de mettre : ..quand c'est le cas !
	00

17/11/2011, 16h34	#5
deyan92 Invité de passage Ingénieur qualité méthodes Inscription : novembre 2011 Messages : 3 Détails du profil Informations personnelles : Sexe : Localisation : France, Hauts de Seine (Île de France) Informations professionnelles : Activité : Ingénieur qualité méthodes Secteur : Transports Informations forums : Inscription : novembre 2011 Messages : 3 Points : 1 Points : 1	Merci de votre aide
	00

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email