Trouver le chemin d'une feuille dans un dossier et l'établir comme élément de tr

[IFFIC]

Bonsoir à tous et bonne fin de week-end
et plein de soleil milieu de vacances pour les veinards

Je bidouille un peu, pour apprendre, sur un "Répertoire de Thierry"
Mais je n'arrive pas à changer la destination de la variable "WS"

Set WS = ThisWorkbook.Sheets("DataBase") 'On identifie ici l'objet pour la feuille de travail
Thierry dixit dans sa verve visualbalaisementesque…

La mienne serait dans "C:", dossier "REPERTOIRE" et une feuille nommée "PRESCRIPTEURS" où j'aimerai pouvoir faire:

DONNEES = WS.Range("A65536").End(xlUp)……..Et c.
sans nécessairement activer la dite feuille à l'écran. (Exigent, le mec!!!)

Par la suite, j'espère créer un répertoire d'adresses actualisable
et utilisable par chacun dans le réseau interne de ma société.

Chuis mal barré, je n'arrive même pas à trouver un chemin dans mon ordi perso!

C'est dire que j'ai besoin d'une âme charitable !!!

Mes derniers cheveux et moi-même vous remercions par avance.

IFFIC

 

[Abel]

Bonjour IFFIC,

Le code de @Thierry initialise la variable WS (pour Worksheets mais "ws" n'est pas un mot réservé par Excel) en lui attribuant un nom de feuille, à savoir en l'occurence :
dans ws je mets le nom de la feuille nommée "Database" (c'est son nom. Si cela avait été une variable, il aurait mis Database sans guillemets) trouvée dans ce classeur (ThisWorkbook = le classeur en cours).

Attention, ne pas confondre classeur, dossier et feuille.

Dossier = c'est le répertoire où le tiroir dans lequel tu ranges tes affaires,
Classeur = c'est un fichier excel, exemple "tartempion.xls",
Feuille = le classeur (ou fichier Excel, c'est pareil) est composé de feuilles.

Donc, dans l'exemple de @Thierry, "WS" représente une feuille d'un classeur Excel.
Laquelle feuille peut être copiée, supprimée, déplacée, renommée, activée, etc.

Je crois comprendre que tu veux parler d'un fichier.

La syntaxe est différente.

RechercheFichier = Application.GetOpenFilename("Fichiers Excel(*.xls), *.xls", , )
Workbooks.Open RechercheFichier

L'exemple ci-dessus ouvre la boite correspondant au menu "Fichier/Ouvrir" en indiqaunt par défaut que l'on cherche un fichier Excel.
La variable RechercheFichier en renseignée avec le nom du fichier que l'on veut ouvrir.
L'instruction Open ouvre le fichier désigné juste avant.

Regarde l'aide en ligne de Excel avec le quelques termes ci-dessus. Ce sera déjà une bonne entrée en matière.

Sinon, dis nous en un peu plus sur ce que tu veux faire exactement.

En espérant que cela te dépanne.

Abel

 

[IFFIC]

Merci Abel, c'est sympa!

Pépé IFFIC, s'est mélanger certainement un peu les pinceaux
en tentant d'expliquer son truc.

Voici où j'en suis coté "fouiner" dans un "doss-fich-feuill-cell":

.----------------------------
Dim L As Integer, LARGEUR As Integer
Dim H As Integer, HAUTEUR As Integer
Dim NOTARIF As Integer, PXTARIF As Integer

Private Sub CommandButton1_Click()
PXTARIF = 0
HAUTEUR = 0
LARGEUR = 0
L = 0
H = 0

'--------------------------------------------------------------------------------
NOTARIF = Worksheets("SAISIE").Cells(34, 3) ' AUTRE PRECISION EST FAITE PAR AILLEURS
'--------------------------------------------------------------------------------
LARGEUR = Worksheets("SAISIE").Cells(30, 3)

For i = 2 To 30

If LARGEUR <= ExecuteExcel4Macro("'C:\PVC\[ESSAI]TARIF" & NOTARIF & "'!R" & 10 & "C" & i) Then

L = i
Exit For
End If
Next i
'--------------------------------------------------------------------------------
HAUTEUR = Worksheets("SAISIE").Cells(31, 3)

For j = 2 To 30

If HAUTEUR <= ExecuteExcel4Macro("'C:\PVC\[ESSAI]TARIF" & NOTARIF & "'!R" & j + 9 & "C" & 1) Then

H = j
Exit For
End If
Next j
'--------------------------------------------------------------------------------

If L <> 0 And H <> 0 Then
PXTARIF = ExecuteExcel4Macro("'C:\PVC\[ESSAI]TARIF" & NOTARIF & "'!R" & H + 9 & "C" & L)

Worksheets("PRIX").Cells(3, 4) = ExecuteExcel4Macro("'C:\PVC\[ESSAI]TARIF" & NOTARIF & "'!R3C3")



Worksheets("SAISIE").Cells(32, 3) = PXTARIF

Else

MsgBox "Dimensions hors tableau"

End If

End Sub
.------------------------
Piquer la donnée dans la cellule qui m'intéresse:
Oui, j'ai trouvé..,
Mais définir l'adresse de la feuille: ici" TARIF1 (ou 2,,, et c.)
pour y faire un End(xlUp) ou autre, sans l'ouvrir comme sait le faire
ma prose ci-dessus, je n'y arrive pas.

Peut-être n'est-ce qu'une affaire de syntaxe?

Désolé d'abuser de ta gentilesse Abel. mais quand mes neurones coincent, elLes coincent !!!
m4EN FICHE? SI PERSONNE NE M4AIDE? J4VAIS BIEN TROUVER DU VIAGRA POUR CERVELLE§§§

Zut, c'est où déjà les minuscules?

Merci à toi en tous cas, et bonne soirée

IFFIC

 

[Abel]

Bonjour IFFIC,

Pour accéder à un fichier sans nécessairement l'ouvrir, essaie avec l'instruction OPEN Fichier FOR ....

Je n'ai pas essayer avec un xlUp.

Mets nous un exemple en pièce jointe.

Abel.

 

[IFFIC]

Bonjour Abel

En coup de vent ce midi...

Je construis un exemple pour être plus clair.

Ce soir très tard sans doute car marché nocturne et amis obligent...

Bonne fin de journée, et merci pour ton attention

IFFIC