Lire dans fichiers fermer

[Don Foster]

Bonsoir à toutes et à tous

Voilà mon problème :

Je voudrais récupérer des infos dans mes fiches articles mais en cliquant sur le bouton actualiser une fenêtre me demande de mettre à jour les valeurs je ne trouve pas d'ou vient l'erreur.
Le bouton se trouve dans le fichier base de donnée produit.

Merci à tous ceux qui pourront me donnée un petit coup de main.

@ + Don Foster

 

[Compte Supprimé 979]

Re : Lire dans fichiers fermer

Bonsoir Don Foster,

En mettant un point d'arrêt dans ton code et en le faisant tourner en pas à pas, tu tombes sur

With ActiveSheet.Cells(Y + 3, 5)
.Formula = "='" & Sheets("Param").Range("B7").Value & " \[" & [B][COLOR=red]Tableau(X)[/COLOR][/B] & "]Fiche Info" _
& "'!" & "C6"
.Value = .Value
End With

C'est ICI que la mise à jour est demandé, car Tableau(X) = NE PAS SUPPRIMER P.xls

Donc pour mettre la formule, il a besoin d'ouvrir le fichier

A+

 

[Don Foster]

Re : Lire dans fichiers fermer

Bonjour BrunoM45 , le Forum

Merci pour ta réponse

J'ai avancé dans mes recherche mais toujours un problème peut être que cela vient de la version windows

- Essais fait sur millenium tous fonctionne
- Essais fait sur windows XP problème

je joint un nouveau Fichier avec expliquation

Merci pour votre aide

@ + Don Foster

 

[Compte Supprimé 979]

Re : Lire dans fichiers fermer

Salut Don Foster,

Je ne comprends pas ce que tu veux faire dans ton fichier 😕
As-tu moyen de nous l'expliquer clairement ?

A+

 

[jeanpierre]

Re : Lire dans fichiers fermer

Bonjour Don Foster, Bruno,

Le problème des chemins sous Millenium ou antérieurs, Win2000 aussi, Vista peut-être, n'est pas tant dans le chemin, mais dans le nom des répertoires et sous répertoires.

C'est dans ce sens que tu dois te diriger.

Si j'ai bien compris toutefois.

Bonne pluie à tous.

Jean-Pierre

 

[Don Foster]

Re : Lire dans fichiers fermer

Bonjour jeanpierre , BrunoM45

Merci pour vos réponses .

En fait le problème que je rencontre est le suivant :

Sur windows millenium le programme fonctionne dans l'état actuel .
" listing des fichiers et affichage de certaines données "
Aucun problème .

Sur windows XP le programme me demande une mise à jour des valeurs .
" Mise à jour des valeurs "
Une fenêtre s'affiche et me demande une : Mise à jour des valeurs .
" Aucun listing de fichiers et aucune données affichées "

Le but étant de récupérer le nom des fichiers ainsi que certaines données des fichiers " fiches de produits "

Etapes :

Ouvrir le fichier : " Base de donnée produits "
Cliquer sur le bouton : " Actualiser "

En espérant être assez précis dans ma demande Merci pour vos réponses .

@ + Don Foster

 

[Don Foster]

Re : Lire dans fichiers fermer

Bonjour à toute et à tous

Personnes pour un petit coup de pouce !

Après de multiples essais toujours pas trouvé le problème.

Merci à vous ...

@ + don foster

 

[jmd2]

Re : Lire dans fichiers fermer

hello

jeanpierre t'a donné une piste, suis-la, elle semble bonne.

moi j'ai ouvert tonfichier, il s'appelle

Base de Donn'e Produits.xls (le é est remplacé par une ' )

tu comprends ce que voulait dire jeanpierre
évite les accents, les blancs, et si possible reste à 8 caractères, comme sous DOS 🙂
idem pour les répertoires.

***************************************************************

 

[Don Foster]

Re : Lire dans fichiers fermer

Bonsoir jmd2 , le Forum

Merci pour ta réponse.

J'ai modifié le nom des répertoires et fichiers mais rien n'y fait.
Par contre en mettant le chemin directement dans le code VBA ça marche.

Moi je voudrais récupérer le chemin par l'intermédiaire d'une cellule d'une feuille pour éviter à avoir à modifier le code à chaque fois que l'on déplace le dossier complet et là ça ne marche plus , du moin sur Windows XP , par contre sur millenium ça marche ... Bizarre !

Je joint un nouveau fichier avec explication dans le code VBA.

Merci à vous tous pour votre aide.

@ + Don Foster

 

[Compte Supprimé 979]

Re : Lire dans fichiers fermer

Salut Don Foster,

Peut être un petit indice

'ICI CA NE FONCTIONNE PAS . chemin récupérer dans une cellule
'-------------------------------------------------------------
'With ActiveSheet.Cells(Y + 3, 10)
'.Formula = "='" & Sheets("Param").Range("B7").Value& " \[" & Tableau(X) & "]Fiche" _
& "'!" & "B2"
'End With

Tu ajoutes un espace + slash à ton nom de fichier,
alors que la valeur de ta cellule est : D:\Nos Documents\Dossier EXCEL\_Excel-dowloads\DonPhoster\Articles\

J'ai testé

  .Formula = "='" & Sheets("Param").Range("B7").Value & "[" & Tableau(X) & "]Fiche" _
  & "'!" & "B2"

chez moi, ça fonctionne, a vérifier !

PS : C'est pour ce genre de problème semi invisible que j'aime passer par des variables
MaFormule= "='" & Sheets("Param").Range("B7").Value & " \[" & Tableau(X) & "]Fiche" _
& "'!" & "B2"

Comme tu peux vérifier la valeur de "MaFormule"

A+

 

[Don Foster]

Re : Lire dans fichiers fermer

Bonsoir BrunoM45

Merci à toi pour ta réponse , je viens de tester et tous fonctionne à merveille.

Encore merci et bonne soirée à toi.

@ + Don Foster

 

[Compte Supprimé 979]

Re : Lire dans fichiers fermer

Re,

Wouhaoouuuuu ... top gééééénnniiiiiaaaaallllll

Ca va être la fête à Gannat ce soir 😀

Aller, à la tienne Don Foster

A+