Discussion :

[C.R.E.A.M]

Bonjour a tous,

J'ai une petite question pour vous: comment copier le contenu d'une cellule (correspondant a du texte) dans un string en VBA ?
J'aimerais savoir ceci afin de pourvoir ouvrir un fichier, dont une partie du nom est stocke dans une cellule (c'est un nombre, mais il est stocke sous forme de texte, pour des problemes de format - il y a des 0 au debut).

Merci pour votre aide.

Voici le bout de code - defectueux - que j'ai essaye :

Code :

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

1
2
3
4
 
which_month = Cells(6 + i, 2).Value
which_day = Cells(6 + i, 1).Value
Windows("Truc" & which_day & "-" & which_month & "-08").Activate

[zandru]

Je l'écrirai plutôt comme cela :

Code :

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

1
2
3
4
5
6
 
Dim which_month as String
Dim which_day as String
which_month = ActiveSheet.Cells(6 + i, 2)
which_day = ActiveSheet.Cells(6 + i, 1)
Windows("Truc" & which_day & "-" & which_month & "-08" & ".xls").Activate

[patbou]

bonjour

Code :

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

1
2
3
 
dim st as string
st = cells(1,i)

[C.R.E.A.M]

Ca marche, merci !

Pendant que j'y suis, question bonus (qui fait pas perdre de points mais qui peu en rapporter ): est-ce que je peux faire en sorte que l'option "ne pas sauvegarder les modifications" soit automatiquement choisie lors de la fermeture d'un fichier excel par la macro ?

[C.R.E.A.M]

J'ai trouve un truc qui marche (Application.DisplayAlerts = False)