chemin de programmation dans une cellule

  • Initiateur de la discussion Initiateur de la discussion VELO
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

VELO

XLDnaute Nouveau
bonjour a tous,
j'ai besoin aide sur une programmation je souhaite inscrire le chemin dans la feuille TARIFAIRE celulle A1



dans mon exemple ci dessous ma macro fonctionne correctement "chemin inscrit en dur"

d'avance merci de votre aide



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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
283
Réponses
10
Affichages
547
Réponses
18
Affichages
316
Réponses
17
Affichages
1 K
Réponses
3
Affichages
582
Retour