modifier chemin d'acces dans programmation

[VELO]

😕
Bonsoir a tous,
Si quelqu'un peu m'apporter de l'aide sur cette programmation
Je vous l'ai joint ci dessous elle fonctionne
Elle va dans un dossier ouvrir un a un des fichiers XLS copier une partie de cellule et les coller dans mon fichier TONY sur la feuille TARIFAIRE

En faite je souhaiterai modifier la programmation c'est a dire remplacer le chemin d'acces au dossier ("C:\Documents and Settings\FRNTO2M\Bureau\TEST\*.xls") par sheets("TARIFAIRE") range ("A1") afin qu'elle aille chercher son chemin dans la celulle A1 de la feuille TARIFIARE.

d'avance merci de votre aide


code:

Sub EXPORT()
Application.ScreenUpdating = False

R = MsgBox("Vous voulez importer les Relevés de Prix ? ", vbYesNo + vbQuestion, "EXTRACTION DES RELEVES")
If R = vbYes Then

With ActiveWorkbook
.Sheets("TARIFAIRE").Unprotect
End With

Dim W As String
i = 9
W = Dir("C:\Documents and Settings\FRNTO2M\Bureau\TEST\*.xls")
Do Until W = ""
i = i + 1
Workbooks.Open Filename:="C:\Documents and Settings\FRNTO2M\Bureau\TEST\" & W
If i = 110 Or i = 112 Then i = i + 2
Worksheets(1).Unprotect ("AZERTY")
'or boeuf
ActiveWorkbook.Sheets(1).Range("c3:c5").Select
Selection.Copy
Application.Windows("TONY.xls").Activate
Cells(5, i).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Cells(5, i).Validation.Delete
Cells(6, i).Validation.Delete
Cells(7, i).Validation.Delete
Windows(2).Activate
Application.CutCopyMode = False

'le magasin
Range("d5:d6").Select
Selection.Copy
Application.Windows("TONY.xls").Activate
Cells(9, i).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Cells(9, i).Validation.Delete
Cells(10, i).Validation.Delete
Windows(2).Activate
Application.CutCopyMode = False

Worksheets(1).Protect ("AZERTY")

Application.Windows(1).Activate
ActiveWorkbook.Close savechanges:=False
W = Dir
Loop


End If


Sheets("TARIFAIRE").Select

Application.ScreenUpdating = True


End Sub

 

[James007]

Re : modifier chemin d'acces dans programmation

Bonjour,

As tu essayé :

w= Sheets("TARIFAIRE").Range ("A1").Value

A +

 

[Gorfael]

Re : modifier chemin d'acces dans programmation

Salut VELO et le forum
Tu n'utilises toujours pas les balises de code (#)
Peut-être est-ce une erreur de ma part, mais il me semble que tu as posé la même question dans un précédent sujet https://www.excel-downloads.com/threads/chemin-de-programmation-dans-une-cellule.152997/.
Multiplier les sujets ne t'apportera pas de meilleure réponse ! Exploite les réponses déjà données.

Si tu n'arrives pas à comprendre les réponses, essaies de faire une macro pour les tester, du genre :

Sub test
dim X as string
x =Sheets("TARIFAIRE").[A1] & "/.xls"
msgbox x
end sub

et vérifie que ton chemin est correct
A+
A+

 

[VELO]

Re : modifier chemin d'acces dans programmation

bonsoir Gorfael, bonsoir le forum,
encore merci pour l'aide que vous m'apportez
j'ai remplacer le debut mais j'ai un beug sur cette ligne de programmation -> Workbooks.Open Filename:=Sheets("TARIFAIRE").[A1] & " & W"


Dim W As String
i = 9
W = Sheets("TARIFAIRE").[A1] & "/.xls"
'W = Dir("[A1] * .xls")
Do Until W = ""
i = i + 1
Workbooks.Open Filename:=Sheets("TARIFAIRE").[A1] & " & W"

If i = 110 Or i = 112 Then i = i + 2

 

[Gorfael]

Re : modifier chemin d'acces dans programmation

Salut VELO et le forum
918552]bonsoir Gorfael, bonsoir le forum,
encore merci pour l'aide que vous m'apportez
j'ai remplacer le debut mais j'ai un beug sur cette ligne de programmation

sub test()
Dim W As String
 W = Sheets("TARIFAIRE").[A1] & "/.xls"
msgbox Sheets("TARIFAIRE").[A1] & " & W"
 end sub

et tu la testes : j'ai enlevé ce qui est inutile et remplacer la commande d'ouverture (OpenFileName) par une boîte de dialogue. Je pense que tu comprendras ton erreur.
A+

 

[VELO]

Re : modifier chemin d'acces dans programmation

re bonsoir,
désolé Gorfael mais j'ai toujours un probleme maintenant le bug se trouve au niveau de Windows(2).Activate peux tu m'aider STP

With ActiveWorkbook
.Sheets("TARIFAIRE").Unprotect
End With

Dim W As String
i = 9
 W = Sheets("TARIFAIRE").[A1] & "/.xls"
MsgBox Sheets("TARIFAIRE").[A1] & " & W"
Do Until W = ""
i = i + 1

If i = 110 Or i = 112 Then i = i + 2
Worksheets(1).Unprotect ("AZERTY")
'or boeuf
ActiveWorkbook.Sheets(1).Range("c3:c5").Select
Selection.Copy
Application.Windows("TONY.xls").Activate
Cells(5, i).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Cells(5, i).Validation.Delete
Cells(6, i).Validation.Delete
Cells(7, i).Validation.Delete
[COLOR="Red"]Windows(2).Activate[/COLOR]
Application.CutCopyMode = False

'le magasin
Range("d5:d6").Select
Selection.Copy

 

[Gorfael]

Re : modifier chemin d'acces dans programmation

Salut VELO et le forum

désolé Gorfael mais j'ai toujours un probleme maintenant le bug se trouve au niveau de Windows(2).Activate peux tu m'aider

Non !
- Mon VBA reconnaissant l'instruction, ce n'est pas une erreur de syntaxe, que je pourrais corriger, mais une erreur d'algorithme.

- Comme je l'ai déjà mentionné, je n'utilise jamais cette instruction, je préfère nommer le classeur, la feuille : c'est plus complexe à écrire, mais je sais exactement à quoi je fais référence.

- Tu utilises l'index des fenêtres pour "identifier" celle-ci => comme pour les feuilles, il est évolutif suivant l'environnement.
De plus, l'index n'est pas calculé, mais fixé en dur, ce qui fais que si tu as 3 fenêtres d'ouvertes avant ce fichier, bonjour la surprise (et je vais jusqu'à plus de 10, alors je te dis pas l'angoisse, obligé de me rappeler l'ordre mis dans mes macro, avant d'ouvrir une nouvelle, ou d'en fermer une).

Tout ça fait que je ne peux pas t'aider. Mais tu commences à mettre des balises de code, on est dans la bonne voie 😛
Nota : Tu n'as toujours pas compris ton erreur précédente, sinon tu n'aurais pas mis une msgbox à la place de ton openfilename : je ne t'ai donné le bout de code, que pour que tu puisses visualiser le chemin/nom du fichier que tu essaies d'ouvrir. Résous d'abord ça
A+

 

[VELO]

Re : modifier chemin d'acces dans programmation

merci Gorfael d'avoir essayé de m'aider