[VBA Access] currentproject.path probleme

Fermé

csensoli Messages postés 1 Date d'inscription jeudi 20 juillet 2006 Statut Membre Dernière intervention 20 juillet 2006 - 20 juil. 2006 à 15:52
snake44 - 22 mars 2008 à 12:02

Bonjour, longue explication pour petite question mais si qq peut m'aider ce serait super!!

j'utilise:
DoCmd.TransferSpreadSheet acImport, 5, "TableNom1",
"C:/blabla/chemin/fichier.xls", True, "FeuilleNom1!"
pour importer mes donnees de Excel vers Access. Pas de probleme mais je veux
utiliser
CurrentProject.Path pour ne pas avoir C:/blabla/etc... puisque le chemin
ne
sera pas le meme selon les ordi.
Alors la, quand j'affiche Application.CurrentProject.Path ou
Application.CurrentDb.Name dans un Msgbox, il m'affiche bien le bon
chemin
mais quand je l'utilise dans la ligne de commande au-dessus comme ceci:

DoCmd.TransferSpreadSheet acImport, 5, "TableNom1",
" " & Application.CurrentProject.Path & ". \fichier.xls", True,
"FeuilleNom1!"

la, il m'affiche qu'il ne trouve pas le fichier "C:/Documents and
Settings/Claire/My Documents/C:/blabla/chemin/fichier.xls" !!!
??
Pourquoi il me rajoute ce truc devant??
MERCI POUR L'AIDE

PS: apres, je me suis demandee si ca venait pas des options, dans
l'onglet
general, le chemin par defaut de mes bases de donnees, c'est
C:/Documents
and Settings/Claire/My Documents/, mais en enlevant ce chemin par
defaut, ca
marche tjrs pas et puis de toute facon en l'enlevant, qd je ferme
access et
que je le reouvre, ce chemin par defaut revient!
ou le supprimer pour de bon sinon?
MERCI!

A voir également:

Application.currentproject.path
Access appdata - Guide
Find vba - Astuces et Solutions
Excel compter cellule couleur sans vba - Guide
Vba attendre 1 seconde ✓ - Forum VB / VBA
Acer quick access - Forum logiciel systeme

1 réponse

Réponse 1 / 1

snake44
22 mars 2008 à 12:02

Bonjour,

Cela fait longtemps que ton message est posté mais bon voici la solution à ton problème a ceux qui veulent.

Dans ton "" " & Application.CurrentProject.Path & ". \fichier.xls", True, " tu as utilisé un antislash alors que c'était une "/"

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop

a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

Erreur d'exécution 13 Incompatibilité de type

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur

'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...

C'est quoi le runtime Access ?

Bonjour,

il y a des questions que je me pose sur Access : Qu'est ce que le runtime d'Access par rapport à Access en lui-même ? Est ce que ça nécéssite une installation particulière comme Access ? Est ce que ça peut faire tourner des macros ?

Merci de vos réponses !

Configuration: Windows XP / Internet Explorer 7.0

Acer quick access

Bonjour,

Quand j'ouvre ma session, j'ai Acer quick access qui s'ouvre a droite de mon écran mais la fenêtre charge et reste noire tout le temps. Quand je veux la fermer on me dit que le programme ne répond pas.
A quoi sert cette application et est-il possible de la supprimer?
Merci d'avance.

Configuration: Windows / Chrome 54.0.2840.99

ouverture d'un fichier excel à partir d'un code VBA

Bonjour,

je souhaite ouvrir un fichier excel à partir du code suivant:

Sub Ouvrir()
Workbooks.Open Filename:="C:\Documents and Settings\Administrateur\Bureau\TRADING\Action.xlsx"
End Sub

sauf que lors de l'exécution j'ai cette erreur
==> Instruction incorrecte à l'extérieur d'une procédure et il met en bleu cette partie :
C:\Documents and Settings\Administrateur\Bureau\TRADING\Action.xlsx

merci