Discussion :

[Bombar]

Bonjour a tous,

Mon Pb est le suivant:
Je cherche a effectuer, dans un module Access, des opérations sur un fichier Excel.

1° - Comment effectuer un "Copier/Collage Spécial (valeur)"
Voici une parti du code que je voulais utiliser.
xlSheet.PasteSpecial Paste:=xlPasteValues, Destination:=xlSheet.columns("e")
Cela ne marche pas !!!

2° - Est-il possible de définir la feuille Excel a utiliser, lorsque l'on ne connait qu'une partie de son nom
Actuellement
set xlsheet = xlbook.worksheets("mafeuilleexcel")
Besoin
set xlsheet = xlbook.worksheets("mafeuil*")

Merci a tous

PS : Merci aux responsables de ce site, il m'a déja été bien utile !!!

[pgz]

Bonjour,

Comment effectuer un "Copier/Collage Spécial (valeur)"

On peut faire comme cela

Code :

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

1
2
3
4
xlSheet.Range("...").Select
    Selection.Copy
    xlSheet.Range("e").Select
    Selection.PasteSpecial (xlPasteValues)

Est-il possible de définir la feuille Excel a utiliser, lorsque l'on ne connait qu'une partie de son nom

A mon avis, non, mais tu peux parcourir la collection de feuilles du classeur en cherchant celle dont le nom est comme "mafeuille*"

Bon courage,

pgz

[SfJ5Rpw8]

pour le 1 les données à copier proviennent d'ou ..?


Pour le 2..

Code :

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

1
2
3
4
5
6
7
8
9
 
For each  xlsheet  in  xlbook.worksheets 'Boucle sur les feuille du classeur
    if xlsheet.name like "mafeuil*" then Exit for 'utiliser LCase si probléme majuscule/minuscule..
next
    if not (xlsheet.name like "mafeuil*")  then 
      MsgBox "Feuille introuvable"
      exit sub '.... à voir...
   endif
...

[Bombar]

Merci de vos reponses

Pour le 1, je copie 1 colonnes de "mafeuil" vers une autre colonne de "mafeuil"
mais avec un collage spécial (valeur)

[SfJ5Rpw8]

ben pour copier colonne a vers colonne e :

Code :

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

1
2
 
xlsheet.Columns("e").Value = xlsheet.Columns("a").Value

[Bombar]

Re-bonjour a tous
Désolé de vous avoir Quité hier soir mais internet parfois ?????(plus de connection!!!)
Peut-etre que mon Pb a été mal posé ! désolé
Pour le cas 1, je crée une colonne (col2) contenant une formule qui converti au format txt les valeurs d'une autre colonne (col1).Il me faut copier les valeurs de col2 vers col3, avec un collage spécial (valeur) afin de conserver le format et pouvoir sup col2 par la suite.(col1 contient des valeurs Num et AlfaNum ce qui pose Pb lors de l'import dans Access (#Nombre*!))
une partie du code
xlSheet.Columns("f").copy
xlSheet.Columns("g").Select
Selection.PasteSpecial (xlPasteValues)

les 2 premieres ligne fonctionnent !!!
la 3eme Non !!

j'ai essayé divers chose avec le meme résultat !!!

Pour le cas 2, je recherche un fichier excel.
celui-ci deviendra le fichier de travail. les differents fichiers ont tous une feuille commençant par le meme nom.(fich1 - feuil=Base toto; fich2 - feuil = Base tata ; fich3 - feuil= Base compl; etc.....)
en fonction du fichier ouvert la feuille "Base*" doit etre la feuille selectionnée.
Il me faut donc pouvoir declarer cette feuille
Set xlSheet = xlBook.WorkSheets("Base*")

[Bombar]

Super, Merci BBIL, cela fonctionne avec une petite précision.
Il faut au préalable mettre la colonne aux format txt
xlSheet.Columns("l").NumberFormat = "@"
xlSheet.Columns("l").Value = xlSheet.Columns("k").Value

[Bombar]

Doublement merci bbil
pour le cas 2, ton code m'a donné une idée, et a priori cele fonctionne.

For Each xlSheet In xlBook.Worksheets
If xlSheet.Name Like "Base*" Then Exit For
Next
If xlSheet.Name Like "Base*" Then
Feuilselect = xlSheet.Name
End If
Set xlSheet = xlBook.Worksheets("Feuilselect")