utilisation de valeur

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

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:

---

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

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:

---

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:

---

1 2	Classeur.Save Classeur.Close

---

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:

---

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

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

Code:

---

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

---

Puis

Code:

---

1 2 3

Classeur.Activate Classeur.Range("I68").Select Selection.Paste...

---

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

bonjour à tous,
tu pourrais faire ceci :

Code:

---

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

'PERMET L'AUTOMATISATION DE L'OUVERTURE DU FICHIER Dim nom As String nom = Sheets("acceuil").Range("F5").Value & ".xls" '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 Windows(nom).Activate sheets ("nom de ta feuille").Range("l68").select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub

---