Discussion :

[eddyG]

Bonjour,


Je voudrais tout d'abord faire un test pour savoir si le fichier excel A est présent dans mon répertoire.

Ensuite s'il est présent, je voudrais prendre la valeur de la cellule A22 de ce fichier et la coller dans la cellule B12 d'un fichier excelB. Tout cela dans access biensur.
Avez vous une idée

Merci d'avance


EddyG

[Jean-Philippe André]

salut,
la fonction Dir() doit répondre à ton pb.

[eddyG]

Bonjour,


La focntion dir() doit me ramener un nom de fichier si j'ai bien compris, hors moi je veux savoir si mon fichier A est bien présent à un emplacement que je connais.

De plus, ensuite il y a le copier/coller de valeur???


Merci d'avance


EddyG

[Jean-Philippe André]

ben donc si tu connais le répertoire dans lequel doit figurer le fichier tu peux faire un

Code :

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

1
2
3
4
5
if Dir(dossierchoisi)<>"" then
traitement1
else
traitement2
end if

[eddyG]

Non ca ne fonctionne toujours pas, car je sais également que mon fichier excel s'appelle A, je ne recherche pas à savoir si mon répertoire est vide.


En ce qui concerne le copier/coller, une idée???


Merci

Eddy

[Jean-Philippe André]

bon ben pour le copy/paste tu fais un bête:

Code :

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

worksheet(nom1).range("B12").value = worksheet(nom2).range("A22").value

[AlainTech]

Attention, jpcheck, la collection Worksheets prend un s.

[shinta]

pour tester si ton fichier est présent dans le repertoire

Code :

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

1
2
3
4
5
If Dir(Chemin_Sauvegarde & Nom_Sauvegarde, vbHidden) <> "" Then
    'Copier ton fichier ou une cellule
Else
    MsgBox "fichier non présent"
End If

Après j'ai pas bien compris, tu cherches à copier ton fichier ou juste a copier certaine valeur ?