Discussion :

[redstoff]

bonjour j'expose rapidement ce que je cherche à faire

j'ai un dossier où il y a des fichiers par jours d'un mois identique
genre novembre 30 jours donc 30 fichiers
les fichiers sont nommés par exemple pour le 1/11/2010 "011110"
pour le 2/11/2010 "021110" ainsi de suite

j'ai une autre fenêtre ou l'on marque la date du jours dans le même style que le nom du fichier donc exemple "011110"
ce fichier inscrira les valeurs sur le fichier du jour

donc ce que je souhaite c'est faire une macro qui viendra lire la date inscrite (par exemple en A1) et ira faire la modif sur le fichier souhaité. et donc le lendemain prendra le fichier correspondant et non le même


merci

[patricktoulon]

bonjour


tu prend la value da "a1" en variable de type string
tu utilise la fonction replace "/"
et tu passe le resultat soit en variable object soit toujour en string

sheets(" resultat obtenu".activate

blablabla
exemple:

Code :

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

1
2
3
4
5
6
7
    Sub trucmachin()
Dim nom As String
    nom = Sheets(1).Range("a1").Value
    nom = Replace(nom, "/", "")
 
 
 Sheets(nom).Activate

au plaisir

[tedo01]

Bonjour,

Si par exemple la variable strDate contient la valeur saisie (sous la forme "011110"), alors tu peux ouvrir le bon classeur par le code suivant :

Code :

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

1
2
Dim objClasseur as Workbook
Set Classeur = Workbooks.Open strDate & ".xls"

Ensuite, tu peux travailler dans le fichier avec l'objet Classeur, à la fin il faut juste le sauver et/ou fermet par

Code :

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

1
2
Classeur.Save
Classeur.Close

[redstoff]

merci pour les réponses rapides qui ma permis de gagner du temps cependant je ne sais pas pourquoi il me donne une erreur pas sur le changement mais une commande Range je link ce que j'ai ecrit

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
'PERMET L'AUTOMATISATION DE L'OUVERTURE DU FICHIER
Dim nom As String
nom = Sheets("acceuil").Range("F5").Value
 
    'COPIE DES DONNEES A TRANSFERER :
 
Range("c62").Select
Selection.Copy
 
Workbooks.Open Filename:="C:\Documents and Settings\mappam\Bureau\MAPPA Michael\dossier test programme\novembre\" & nom & ".xls"
 
Windows(nom).Activate
 
    Range("l68").select
 
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
End Sub

je ne sais pas pourquoi

merci

[tedo01]

Attention, il vaut mieux toujours préciser où on se trouve pour une instruction Range.
Moi j'écrirais

Code :

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

1
2
dim Classeur as Workbook
Set Classeur = Workbooks.Open...

Puis

Code :

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

1
2
3
Classeur.Activate
Classeur.Range("I68").Select
Selection.Paste...

[redstoff]

j'ai trouvé la solution aux problème
a chaque fois que je rajouté une commande ça me planter mon programme
ce que j'ai du faire c'est creer un nouveau bouton a chaque fois que je rajoutais une commande



merci