Réutiliser un nom de fichierRésolu

Question

Bonjour à tous,

J'ai utilisé ce code pour créer mon fichier au début de ma macro.

Set NewBook = Workbooks.Add
Do
fname = Application.GetSaveAsFilename
Loop Until fname <> False
NewBook.SaveAs Filename:=fname
Dossier = fname

Je veux ensuite réutiliser fname pour faire appel ) mon fichier dans cette ligne

Workbooks(Dossier).Worksheets("Sheet1").Activate

Je n'ai pas réussi à trouver la syntaxe qui marche ou la bonne manière de faire appel à ce nom de fichier (je crois que Workbooks demande seulement le nom du fichier et pas son chemin...).

Merci pour votre aide,

Lycaon

jrivet · Accepted Answer

Salut,

 (je crois que Workbooks demande seulement le nom du fichier et pas son chemin...).
Essaie alors d'activer le classeur juste avec le nom du fichier

Workbooks(Right(Dossier, InStrRev(Dossier, ""))).Worksheets("Sheet1").Activate
@+,   Ju£i?n

mortalino · Answer

Salut, essaie ceci : Set NewBook = Workbooks.Add Do fname = Application.GetSaveAsFilename Loop Until fname <> False NewBook.SaveAs Filename:=fname Dossier = NewBook.Path & "" & fname Workbooks(Dossier).Worksheets("Sheet1").Activate Coloration syntaxique automatique [mortalino] @++

--Mortalino-- Le mystérieux chevalier, "Provençal, le Gaulois" /DIV>

mortalino · Answer

Oui, c'est pas faux !!  

Je dirais même plus, l'ayant référencé par le Set, :


NewBook.Sheets(1).Activate

@++ 





<hr width="100%" size="2" />

  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>

lycaon_58 · Answer

Merci pour ta réponse.

En suivant ton code, je stocke dans fname "I:\Private_ISP\PPM\Book13.xls", dans Dossier "I:\Private_ISP\PPM\I:\Private_ISP\PPM\Book13.xls" et dans NewBook.Path "I:\Private_ISP\PPM". 

Ca ne marche donc pas dans Workbooks.

Il faudrait plutôt faire le contraire :  fname = NewBook.Path & "" & NomDuClasseur
et récupérer NomDuClasseur à partir de cette équation.

Je ne sais pas comment le formuler. Je vais chercher mais si quelqu'un a la solution...

Merci encore,

Lycaon

mortalino · Answer

en fait, c'est parce que dans l'instruction Dossier = NewBook.Path & "" & fname Tu as doublement le nom du chemin. Voici les variables pour te repérer : Set NewBook = Workbooks.Add Do fname = Application.GetSaveAsFilename Loop Until fname <> False NewBook.SaveAs Filename:=fname Dim Chemin As String Dim NomClasseur As String Dim NomCheminEtNomClasseur As String Chemin = NewBook.Path NomClasseur = NewBook.Name & ".xls" NomCheminEtNomClasseur = fname ' OU NomCheminEtNomClasseur = Chemin & "" & NomClasseur NewBook.Worksheets("Sheet1").Activate Coloration syntaxique automatique [mortalino] @++

--Mortalino-- Le mystérieux chevalier, "Provençal, le Gaulois" /DIV>

lycaon_58 · Answer

Merci à tous les deux pour vos précieuses réponses.

J'ai validé la dernière réponse de Mortalino car c'est celle qui m'a permis de résoudre une partie de mon problème mais la solution de jrivet est pas mal non plus .

Maintenant j'ai un autre problème. Bien qu'ayant déclaré NomClasseur en Public, il ne veut pas utiliser la valeur calculée dans mes sous macros. J'ai pu vérifier ça en mettant des watchs sur NomClasseur dans mes différentes Macros et VBA ne répercute pas la valeur calculée...

Comme ça se fait ?

Merci encore pour vos réponses,

Lycaon

lycaon_58 · Answer

désolé !!!!!!!!!!!!
J'avais déclaré NomClasseur plusieurs fois....

Réutiliser un nom de fichier

7 réponses

Votre réponse

Discussions similaires