È soltanto un Pokémon con le armi o è un qualcosa di più? Vieni a parlarne su Award & Oscar!

Excel Forum

	Soluzioni Excel Domande e Risposte
		inserire nome cartella

Rispondi

Registrati

Pagina precedente | 1 | Pagina successiva

Vota | Stampa | Notifica email

« Discussione Precedente | Lista | Discussione Successiva »

Autore

inserire nome cartella

Ultimo Aggiornamento: 14/04/2017 13:57

maxma62

Post: 733

Registrato il: 28/12/2009

Città: CITTADELLA

Età: 62

Utente Senior

excel 2007/365

OFFLINE

13/04/2017 17:58

00#1

Ciao a tutti.
Questa parte di macro:

Dim utente As String    
  utente = Range("M1").Value '<<< cartella nome cella   
    
   sPathAndFileName = "C:\Users\" & utente & "\Desktop\foto\foto_90X50.doc" '<<<< indirizzo

serve per aprire un foglio.doc.
Perchè tutto funzioni sia il foglio xls che il foglio doc devono essere dentro la stessa cartella.
Ogni volta che cambio cartella dove sono inseririti i 2 file devo cambiare la parte di inderizzo in rosso:

sPathAndFileName = "C:\Users\" & utente & "\Desktop\foto\foto_90X50.doc" '<<<< indirizzo

è possibile inserire nell'inderizzo il nome della cartella che venga copiato da quello in cui è inserito il file doc senza ogni volta cambiarla manualmente?
Spero di essermi spiegato.
Un saluto e grazie.
max

[Modificato da maxma62 13/04/2017 18:05]

____________________________
versione excel 365 ufficio
versione excel 2007 casa

xam99

Post: 674

Registrato il: 18/02/2010

Città: MILANO

Età: 28

Utente Senior

excel 2003 / 2007

OFFLINE

13/04/2017 20:53

00#2

Ciao forse ho trovato come fare (trovato in rete):

Dim utente As String
  Dim Percorso
   
  Percorso = ActiveWorkbook.Path    '<<< percorso    
                        
  sPathAndFileName = "" & Percorso & "\foto_90X50.doc" '<<<< indirizzo nuovo

ai maghi di excel se è esatto.
xam

-------------------------------
excel 2003 ufficio / 2007 casa

patel45

Post: 3.831

Registrato il: 13/03/2012

Città: LIVORNO

Età: 78

Utente Master

2010

OFFLINE