Définir le nom d'un fichier à partir d'une cellule

Bonjour,


N'étant pas un grand pro de VBA, j'ai besoin de votre aide.

Je dispose d'un fichier excel par semaine nomé : Tot sem...xls


Ma macro contient les lignes suivantes:

Code:

---

1 2 3 4

Application.Workbooks.Open ("\\....\Tot sem43.xls") ' ...   Windows("Tot sem43.xls").Activate

---

J'aimerais pouvoir choisir le N° de semaine (43) à partir d'une case dans mon fichier Excel.

Ps : la case contient le n° de la semaine (43, 44 etc...)


Pouvez-vous m'aider svp?

cordialement

Bonjour,
Le mot clef (si tu veux faire un recherche pour comprendre) concaténation de chaine de caractère, en VBA le symbole est &

Code:

---

Application.Workbooks.Open ("\\....\Tot sem" & Range("A1") & ".xls")

---

Remplace A1 par ton adresse

Ensuite

Code:

---

Windows(Tot sem" & Range("A1") & ".xls").Activate

---

Edit
Bonjour HurGeek encore croisé. Par contre tu pourrais répondre au lieu de citer systématquement? Le bouton ajouter réponse (fin de la discution a droite) au lieu de Citer ou alors supprime la citation. le message auquel tu réponds on la déjà lu ;)

Bonjour Gandalf,

Si la cellule possédant le numéro s'appelle (par exemple) RGE_NUMERO_SEMAINE voici ce qu'il faut faire

Code:

---

1 2 3 4 5 6 7 8

dim str_NomClasseur as string   str_NomClasseur="Tot sem" & range("RGE_NUMERO_SEMAINE").value   Application.Workbooks.Open ("\\....\" & str_NomClasseur) ..   Windows(str_NomClasseur).Activate

---

Tu peux également mettre en paramétre dans une cellule le nom de base du classeur (Tot sem) si il peux être ammené à être modifié plus tard

Edit : krovax a été plus rapide ;)

Rebonjour,

merci pour votre aide a tous les deux, j'ai finalement utliser cette méthode qui était plus simple à mon gout.

Citation:

---

Envoyé par Krovax

Bonjour,
Le mot clef (si tu veux faire un recherche pour comprendre) concaténation de chaine de caractère, en VBA le symbole est &

Code:

---

Application.Workbooks.Open ("\\....\Tot sem" & Range("A1") & ".xls")

---

Remplace A1 par ton adresse

Ensuite

Code:

---

Windows(Tot sem" & Range("A1") & ".xls").Activate

---

Edit
Bonjour HurGeek encore croisé. Par contre tu pourrais répondre au lieu de citer systématquement? Le bouton ajouter réponse (fin de la discution a droite) au lieu de Citer ou alors supprime la citation. le message auquel tu réponds on la déjà lu ;)

---

j'ai une nouvelle question, toujours concernant la meme chose.

J'aimerais maintenant sauvegarder un fichier sous un nom précis dans un endroit précis.

j'ai donc réaliser l'opération avec l'enregistreur de macro, puis modifier le nom du fichier avec le systeme utiliser précédement, mais cela ne fonctionne pas vraiement :

Code:

---

1 2 3 4 5 6 7

' Range "Libellesave" contient le nom du fichier que je désire ActiveWorkbook.SaveAs Filename:= _ "D:\uxxxxxx\Bureau\poubelle\" & Range("libellesave"), FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False

---

'Je pense qu'un des problèmes viens du faite que le range "Libellesave" est situé sur un autre classeur et qu'il n'y a pas de plage "libellesave" dans le classeur a sauvegarder.

J'ai tenter cette macro, mais ca ne marche pas

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Sub test2()   'Note : je ne suis pas du tout familier avec les fonction Dim, string etc...   Windows("stocks_2009_10.xls").Activate     Dim libellesave As String Dim save As String   Sheets("UNE").Select libellesave = Range("B6") saved = "D:\uxxxxxx\Bureau\poubelle\stock" & libellesave & ".xls"     Windows("data_stock.xls").Activate     Application.Workbooks.SaveAs saved     End Sub

---

Bonjour,
dans le code de l'enregistreur saveas s'applique a 1 classeur en particulier

Code:

---

workbooks("NomDuClasseur").saveas

---

Il peut être utile dans ton code de préciser quel classeur enregistrer non?

Code:

---

Application.Workbooks("Nomduclasseurasauvegarder").SaveAs saved

---

Au passage pour éviter les activate et autre truc inutile

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub test2()   'Note : je ne suis pas du tout familier avec les fonction Dim, string etc... 're note ce sont des déclarations de variable pas des fonctions ;)   Dim libellesave As String Dim save As String 'au lieu de dire acticve tel classeur 'selectionner telle feuille 'selectionner telle cellule 'on pêu dire directement telle cellule de telle feuille de tel classeur libellesave = Windows("stocks_2009_10.xls").Sheets("UNE").Range("B6") saved = "D:\uxxxxxx\Bureau\poubelle\stock" & libellesave & ".xls"     Workbooks(("data_stock.xls")).SaveAs saved     End Sub

---

Merci pour l'aide, j'ai bien réussi à faire ce que je voulais!