Discussion :

[gandalf20000000]

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 :

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

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

[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 :

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

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

Remplace A1 par ton adresse

Ensuite

Code :

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

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

[HurGeek]

Bonjour Gandalf,

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

Code :

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

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

[gandalf20000000]

Rebonjour,

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

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 :

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

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

Remplace A1 par ton adresse

Ensuite

Code :

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

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 :

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

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 :

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

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

[Krovax]

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

Code :

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

workbooks("NomDuClasseur").saveas

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

Code :

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

Application.Workbooks("Nomduclasseurasauvegarder").SaveAs saved

Au passage pour éviter les activate et autre truc inutile

Code :

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

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

[gandalf20000000]

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